このセグメントの各Sampleオブジェクトを含むSampleCollectionを戻します。
注：このプロパティは IDispatch オブジェクトではなくSampleCollectionを戻します。つまり、Segment
メソッドとプロパティへのアクセスが可能になるのではなく、Sampleオブジェクトで使用できるメソッドとプロパティにのみアクセスできます。
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
|