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