Returns a SampleCollection
containing each Sample object on this
point.
Note: This property returns a SampleCollection, not an IDispatch
object, which means that it will not give you access to the Point
methods and properties, only the methods and properties that are
available on Sample objects.
set oCube = ActiveSceneRoot.AddGeometry("Cube","MeshSurface")
set oPoints = oCube.ActivePrimitive.Geometry.Points
set oSamples = oPoints(1).Samples
str = "The sample indices for Point(1) of this geometry are: "
for each oSample in oSamples
str = str & " " & oSample.Index
next
logmessage str
|