このオブジェクトの各Facetを含むFacetCollectionを戻します。
set oRoot = Application.ActiveProject.ActiveScene.Root set oObj = oRoot.AddGeometry( "Cube", "MeshSurface" ) set oGeometry = oObj.ActivePrimitive.Geometry set oFacets = oGeometry.Facets
Facet Geometry.Points Geometry.Segments Geometry