このエッジに隣接する各PolygonNodeオブジェクトを含むPolygonNodeCollectionを戻します。
set oObject = ActiveSceneRoot.AddGeometry("Cube","MeshSurface") set oPolygonMesh = oObject.ActivePrimitive.Geometry set oEdge = oPolygonMesh.Edges(2) set oVertices = oEdge.Nodes