PolygonFace の各PolygonNodeオブジェクトを含むPolygonNodeCollectionを戻します。
set oObject = Application.ActiveProject.ActiveScene.Root.AddGeometry("Cube","MeshSurface")
set oPolygonMesh = oObject.ActivePrimitive.Geometry
set oPolygonFace = oPolygonMesh.Polygons(0)
set oPolygonNodes = oPolygonFace.Nodes
|