この Triangle のTrianglePoint法線を、x,y,z 値の 2DArray([x,y,z values][TrianglePoint])
同じポリゴンに属する三角形は、同じ法線値を持ちます。
set root = Application.ActiveProject.ActiveScene.Root
set obj = root.AddGeometry( "Cube", "MeshSurface" )
set triangles = obj.ActivePrimitive.Geometry.Triangles
for i=0 to triangles.count - 1
set t = triangles(i)
a = t.polygonnodenormalarray
for j=LBound( a, 2 ) to UBound( a, 2 )
Application.LogMessage "t" & i & ".p" & j & ".normal: " & a(0,j) & "," & a(1,j) & "," & a(2,j)
next
next
|