set oRoot = Application.ActiveProject.ActiveScene.Root
set oObj = oRoot.AddGeometry( "Cube", "MeshSurface" )
set oGeometry = oObj.ActivePrimitive.Geometry
for each oSegment in oGeometry.Segments
        LogMessage "segment[" & oSegment.Index & "]"
        for each oPoint in oSegment.Points
                LogMessage oPoint.Position.x & "," & oPoint.Position.y & "," &oPoint.Position.z
        next
next