Returns a 2-dimensional Array containing the x,y,z normal values for the PolygonFace in the collection.
set oObject = Application.ActiveProject.ActiveScene.Root.AddGeometry("Cube","MeshSurface")
set oPolygonMesh = oObject.ActivePrimitive.Geometry
set oPolygonFaceCollection = oPolygonMesh.Polygons
aNormals = oPolygonFaceCollection.NormalArray
for i = LBound(aNormals, 2) to UBound(aNormals, 2)
logmessage "normal[" & i & "] =" & _
aNormals(0,i) & _
"," & aNormals(1,i) & _
"," & aNormals(2,i)
next
|