'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