set oObject = Application.ActiveProject.ActiveScene.Root.AddGeometry("Cube","MeshSurface")
set oPolygonMesh = oObject.ActivePrimitive.Geometry
set oPolygonFaces = oPolygonMesh.Polygons
for each oPolygonFace in oPolygonFaces
        logmessage "Index of the polygon: " & oPolygonFace.Index
next