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 |