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