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