' This example illustrates how to enumerate the triangles
' of a polygon mesh an print out the position of each
' triangle vertex
set oRoot = Application.ActiveProject.ActiveScene.root
set oCube = oRoot.AddGeometry( "Cube", "MeshSurface" )
set oGeometry = oCube.ActivePrimitive.Geometry
set oTriangles = oGeometry.Triangles
Application.LogMessage "Object: " & oCube.Name
Application.LogMessage "Number of triangles: " & oTriangles.Count
for each oTriangle in oTriangles
	Application.LogMessage oTriangle.Name
	for each oVertex in oTriangle.Points
		set oPosition = oVertex.Position
		Application.LogMessage vbTab & oPosition.x & "," & _
			oPosition.y & "," & _
			oPosition.z
	next
next