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 |