'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 oXAxis = XSIMath.CreateVector3()

set oYAxis = XSIMath.CreateVector3()

set oZAxis = XSIMath.CreateVector3()

' Construct an array containing the indices 0,1,2,3

dim oIndicesArray

oIndicesArray = Array( 0, 1, 2, 3 )

o1DGeometry.AverageLocalReferenceFrame oIndicesArray, oXAxis, oXAxisValid, oYAxis, oYAxisValid, oZAxis, oZAxisValid

if oXAxisValid then

LogMessage "Component (0, 1, 2, 3) average X axis : " & oXAxis.x & " | " & oXAxis.y & " | " & oXAxis.z 

else

LogMessage "Component (0, 1, 2, 3) INVALID average X axis"

end if

if oYAxisValid then

LogMessage "Component (0, 1, 2, 3) average Y axis : " & oYAxis.x & " | " & oYAxis.y & " | " & oYAxis.z 

else

LogMessage "Component (0, 1, 2, 3) INVALID average Y axis"

end if

if oZAxisValid then

LogMessage "Component (0, 1, 2, 3) average Z axis : " & oZAxis.x & " | " & oZAxis.y & " | " & oZAxis.z 

else

LogMessage "Component (0, 1, 2, 3) INVALID average Z axis"

end if