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

set oEndPos = XSIMath.CreateVector3()

' Loop on all the 1D geometry

for i = 0 to oNb1D - 1

o1DGeometry.ExtremitiesPositions i, oStartPos, oEndPos

LogMessage "Component [" & i & "] start position : " & oStartPos.x & " | " & oStartPos.y & " | " & oStartPos.z 

LogMessage "Component [" & i & "] end position : " & oEndPos.x & " | " & oEndPos.y & " | " & oEndPos.z 

next