v1.0
Cluster オブジェクトのコレクションです。ClusterCollection にはGeometryオブジェクトの Clusters プロパティからアクセスします。
このコレクションは 0 から 開始されます。
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 |