set oRoot = ActiveProject.ActiveScene.Root
set oCube = oRoot.AddGeometry( "Cube", "MeshSurface" )
set oGeometry = oCube.ActivePrimitive.Geometry
set oFacets = oGeometry.Facets
LogMessage typename(oFacets)
for each oFacet in oFacets
        for each oSegment in oFacet.Segments 
                LogMessage "Facet.Segment.Index " & oSegment.Index 
        next
next