set oObject = Application.ActiveProject.ActiveScene.Root.AddGeometry("Cube","MeshSurface")
set oPolygonMesh = oObject.ActivePrimitive.Geometry
set oPolygonFace = oPolygonMesh.Polygons(0)
set oPolygonNode = oPolygonFace.Nodes(0)
set oNormal = oPolygonNode.Normal
logmessage "Normal: " & " x = " & oNormal.x & " y = " & oNormal.y & " z = " & oNormal.z