'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