' This example show how to print out the point positions and

' the triangle data for a polygon mesh

set oRoot = Application.ActiveProject.ActiveScene.root

set oCube = oRoot.AddGeometry( "Cube", "MeshSurface" )

set oGeometry = oCube.ActivePrimitive.Geometry

set oTriangles = oGeometry.Triangles

aIndexArray = oTriangles.IndexArray

aPointArray = oGeometry.Points.PositionArray

Application.LogMessage "Object: " & oCube.Name

Application.LogMessage "points: " & UBound( aPointArray, 2 )-LBound( aPointArray, 2 )+1

' print out the x,y,z positions of each point

for i=LBound( aPointArray, 2 ) to UBound( aPointArray, 2 )

	Application.LogMessage vbTab & _

		aPointArray(0,i) & "," & _

		aPointArray(1,i) & "," & _

		aPointArray(2,i)

next

Application.LogMessage "triangles: " & UBound( aIndexArray, 2 )-LBound( aIndexArray, 2 )+1

' print out the point indices for each triangle

for i=LBound( aIndexArray, 2 ) to UBound( aIndexArray, 2 )

	Application.LogMessage vbTab & _

		aIndexArray(0,i) & "," & _

		aIndexArray(1,i) & "," & _

		aIndexArray(2,i)

next