PolygonFace の各Vertexオブジェクトを含むVertexCollectionを戻します。
set oObject = ActiveSceneRoot.AddGeometry("Cube","MeshSurface")
set oPolygonMesh = oObject.ActivePrimitive.Geometry
set oPolygonFace = oPolygonMesh.Polygons(0)
set oVertices = oPolygonFace.Vertices
|