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