set oRoot = application.activeproject.activescene.root

set oObj = oRoot.addgeometry( "Cube", "MeshSurface" )

set oGeometry = oObj.activeprimitive.geometry

' get the points indices as an 

aIndices = oGeometry.Points.IndexArray

' get the geometry points as an array of x,y,z values

aPositions = oGeometry.Points.PositionArray

logmessage "Geometry Information: " & oObj.Name

' print the index and position of each point

for i = LBound(aIndices, 1) to UBound(aIndices, 1)

	logmessage "Point[" & aIndices(i) & "] = " & _

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

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

		aPositions(2,i) 

next