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

set oPolygonMesh = oObject.ActivePrimitive.Geometry

set oPolygonFaceCollection = oPolygonMesh.Polygons

aPolygonNodeNormalArray = oPolygonFaceCollection.PolygonNodeNormalArray

for i = LBound(aPolygonNodeNormalArray,2) to UBound(aPolygonNodeNormalArray,2)

	logmessage "PolygonNode: " & i 

	logmessage "Normal : " & aPolygonNodeNormalArray(0,i) & _

				", " & aPolygonNodeNormalArray(1,i) & _

				 ", " & aPolygonNodeNormalArray(2,i)

next