set oRoot = application.activeproject.activescene.root

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

set oGeometry = oObj.activeprimitive.geometry

' print the index and position of each point

for each oPoint in oGeometry.Points

	logmessage "Point[" & oPoint.Index & "] = " & _

		oPoint.Position.x & ", " & _ 

		oPoint.Position.y & ", " & _ 

		oPoint.Position.z 

next