ジオメトリに定義されている各Clusterを含むClusterCollectionを戻します。
set oRoot = Application.ActiveProject.ActiveScene.Root
set oObj = oRoot.AddGeometry( "Cube", "MeshSurface" )
set oGeometry = oObj.ActivePrimitive.Geometry
set oClusters = oGeometry.Clusters
for each oCluster in oClusters
Application.LogMessage oCluster.Type
next
|