set oRoot = Application.ActiveProject.ActiveScene.Root
set oObj = oRoot.AddGeometry( "Cube", "MeshSurface" )
set oGeometry = oObj.ActivePrimitive.Geometry
for i=0 to oGeometry.Points.Count - 1
        set oPos = oGeometry.Points(i).Position
        Application.LogMessage oPos.x & "," & oPos.y & "," & oPos.z
next