v1.0
A collection of Cluster objects. The
ClusterCollection is accessed from the Clusters property of the
Geometry object.
This collection is 0-based.
set oRoot = Application.ActiveProject.ActiveScene.Root
set oObj = oRoot.AddGeometry( "Cube", "MeshSurface" )
set oCluster = oObj.ActivePrimitive.Geometry.AddCluster(siVertexCluster)
set oCluster2 = oObj.ActivePrimitive.Geometry.AddCluster(siPolygonCluster)
set oGeometry = oObj.ActivePrimitive.Geometry
for each oCls in oGeometry.Clusters
LogMessage oCls.FullName & " has " & oCls.Elements.Count & " elements"
next
|