set oRoot = Application.ActiveProject.ActiveScene.Root
set oObj = oRoot.AddGeometry( "Cube", "MeshSurface" )
set oGeometry = oObj.ActivePrimitive.Geometry
' Get array from geometry.segments 
aIndices = oGeometry.Segments.IndexArray
for i = LBound(aIndices, 1) to UBound(aIndices, 1)
        set oSegment = oGeometry.Segments(aIndices(i))
        ' Print oSegment.index
        LogMessage "segment[" & i & "].index = " &oSegment.index
next