'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