oRootBodies = oPart.Bodies

'  pak 

For i = 1 to oRootBodies.Count

   ' skript

Next 

For i = 1 To oSelection.Count

   If oBody.InBooleanOperation = True Then

      ' skript

   End If

Next 

Public Shared Function Selekce(ByVal iCATIA As INFITF.Application, ByVal strVyzva As String, ByVal strTypy As String) As Object



        Dim oSelekce As INFITF.Selection

        Dim objFilterArr() As Object

        Dim strDocasne() As String

        Dim strStatus As String

        Dim intFiltrPocet As Integer



        'Dim oParam As KnowledgewareTypeLib.Parameter



        'převod String na pole pro funkci SelectElement

        strDocasne = strTypy.Split(CChar(","))

        For Each s As String In strDocasne

            s.Trim()

        Next s



        intFiltrPocet = strDocasne.Length()



        'pokud vstupní parametr strTypy je prazdný, tak nic nevracej, uživatel špatně používá funkci

        If intFiltrPocet < 1 Then

            Return (Nothing)

        End If



        ReDim objFilterArr(intFiltrPocet - 1)



        For i As Integer = 0 To intFiltrPocet - 1

            objFilterArr(i) = strDocasne(i)



        Next i



        strVyzva = strVyzva & "    [ESC]=Strono"

        oSelekce = iCATIA.Application.ActiveDocument.Selection

        oSelekce.Clear()



        iCATIA.Application.Visible = True



        strStatus = oSelekce.SelectElement3(objFilterArr, strVyzva, False, INFITF.CATMultiSelectionMode.CATMultiSelTriggWhenSelPerf, False)