'Create a cube

CreatePrim "Cube", "MeshSurface"

set oSelList = GetValue("SelectionList")

set oItem = oSelList(0)

set oGeometry = oItem.obj

oNb2D = oGeometry.Nb2D

set o2DComponent = oGeometry.Geometry2D

' Loop on all the 2D Component

for i = 0 to oNb2D - 1

o0D2DSubComp = o2DComponent.SubComponent0D2D( i )

for j = LBound( o0D2DSubComp, 1 ) to UBound( o0D2DSubComp, 1 )

LogMessage "Component [" & i & "] 0D2D SubComponent : " & o0D2DSubComp(j) 

next

next