set oRoot = application.activeproject.activescene.root
set oObj = oRoot.addgeometry( "Cube", "MeshSurface" )
set oGeometry = oObj.activeprimitive.geometry
for each oFacet in oGeometry.Facets
        LogMessage "Geometry.Facet.Index = " & oFacet.Index
next