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 o0DSubComp = o2DComponent.SubComponent0D( i ) for j = LBound( o0DSubComp, 1 ) to UBound( o0DSubComp, 1 ) LogMessage "Component [" & i & "] 0D SubComponent : " & o0DSubComp(j) next next |