ノードインデックスの順番で、各PolygonNodeの法線x,y,z 値を含む2DArrayを戻します。一部のポリゴン配列では、すべてのノードの法線が戻されることに注意してください。
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
|