set oObject = Application.ActiveProject.ActiveScene.Root.AddGeometry("Cube","MeshSurface")

set oPolygonMesh = oObject.ActivePrimitive.Geometry

set oPolygonFace = oPolygonMesh.Polygons(0)

set oPolygonNode = oPolygonFace.Nodes(0)

logmessage "The index is: " & oPolygonNode.Index