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 |