'Create a cube
CreatePrim "Cube", "MeshSurface"
set oSelList = GetValue("SelectionList")
set oItem = oSelList(0)
set oGeometry = oItem.obj
oNb2D = oGeometry.Nb2D
set o2DComponent = oGeometry.Geometry2D
set oNor = XSIMath.CreateVector3()
' Construct an array containing the indices 0,1,2,3
dim oIndicesArray
oIndicesArray = Array( 0, 1, 2, 3 )
if o2DComponent.AverageNormal( oIndicesArray, oNor ) then
LogMessage "Average normal of Component (0, 1, 2, 3) : " & oNor.x & " | " & oNor.y & " | " & oNor.z
end if |