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