set oRoot = ActiveProject.ActiveScene.Root
set oCube = oRoot.AddGeometry( "Cube", "MeshSurface" )
set oGeometry = oCube.ActivePrimitive.Geometry
set oFacets = oGeometry.Facets
LogMessage typename(oFacets(0).Points)
for each oFacet in oFacets
        for each oPoint in oFacet.Points
                LogMessage "Facet.Point  : " & oPoint.Position.X & "," & oPoint.Position.y & "," & oPoint.Position.z 
        next
next