| Parameter | Type | Description | ||||
|---|---|---|---|---|---|---|
| compIdx | Integer | Index of the component
|
'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
|