PolygonFace オブジェクトを使用すると、X3DObject の PrimitiveGeometry にアクセスできます。

GrowNeighborPolygons	IsClassOf	IsEqualTo	Navigate
NeighborEdges	NeighborPolygons	NeighborVertices

Application	Categories	Edges	FullName
Help	Index	Name	NbPoints
NestedObjects	Nodes	Origin	OriginPath
Parent	Points	Samples	Segments
SubComponent	TriangleSubIndexArray	TurnInternalEdgeOffset	Type
Vertices

VBScript の例

set oObject = Application.ActiveProject.ActiveScene.Root.AddGeometry("Cube","MeshSurface")

set oPolygonMesh = oObject.ActivePrimitive.Geometry

set oPolygonFace = oPolygonMesh.Polygons(0)

PolygonMesh Geometry PolygonMesh.Polygons Geometry.Facets PolygonNode Edge Vertex