Returns a SampleCollection
containing each Sample object for this
geometry.
Note: This property returns a SampleCollection, not an IDispatch
object, which means that it will not give you access to the
Geometry methods and properties, only the methods and properties
that are available on Sample objects.
set oCube = ActiveSceneRoot.AddGeometry("Cube","MeshSurface") set oSamples = oCube.ActivePrimitive.Geometry.Samples Application.LogMessage "There's " & oSamples.Count &" sample in this geometry" |