このトライアングルを含むポリゴンのインデックスをIntegerとして戻します。
set root = Application.ActiveProject.ActiveScene.Root set obj = root.AddGeometry( "Cube", "MeshSurface" ) set geometry = obj.ActivePrimitive.Geometry Application.LogMessage "Nb Of Polygons: " & geometry.polygons.Count set triColl = geometry.triangles Application.LogMessage "Nb Of Triangles: " & triColl.Count for each tri in triColl Application.LogMessage "Name: " & tri & ", PolyIdx : " & tri.PolygonIndex next |