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