法線を2DArrayとして戻します。x,y,z 値は最初の次元に含まれます。
set oRoot = Application.ActiveProject.ActiveScene.Root
set oObj = oRoot.AddGeometry( "Cube", "MeshSurface" )
set oGeometry = oObj.ActivePrimitive.Geometry
' Offset all x positions
aNormals = oGeometry.Segments.NormalArray
for i = LBound(aNormals, 2) to UBound(aNormals, 2)
LogMessage "normal[" & i & "] =" & aNormals(0,i) & "," & aNormals(1,i) & "," & aNormals(2,i)
next
|