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