set oCube = ActiveSceneRoot.AddGeometry("Cube","MeshSurface")
set oNodes = oCube.ActivePrimitive.Geometry.Nodes
for each oNode in oNodes
        logmessage "Index of the polygonnode: " & oNode.Index
next