Na procházení sestavy stačí opravdu jednoduchá rekurze, jde jen o to, co bude parametrem funkce. Buď to může být produkt (top sestava) nebo kolekce (produkty v top sestavě). Každý způsob má svoje pro i proti.

V každém případě potřebujete dvě funkce. První získá objekt top sestavy (nebo kolekci jejích podproduktů) a pak zavolá vlastní rekurzivní funkci, např takhle.

' hlavni fce

Sub Main()



   Set oProduct = CATIA.ActiveDocument.Product



   Explore oProduct



End Sub



' rekurzivni prochazeni

Sub Explore (oProduct)



   For Each oSubProduct in oProduct.Products



   ' vlastni skript

   

   '  pokud ma podsestava potomky, zavolame prochazeni znovu

   If oSubProduct.Products.Count > 0 Then



      Explore oSubProduct



   End If

   

   Next 



End Sub 

Při tomto způsobu se musí buď v hlavní fci nebo v rekurzi s nějakou podmínkou zpracovat hlavní u sestava, kterou rekurze nezahrne.

A to je celé, nic víc k procházení nepotřebujete. Kam si budete ukládat názvy nebo celé objekty a jejich počty už je na Vás.

Struktura se dá i načíst do TreeView a pak se s ní dá pracovat, viz obrázek.

ad 1) To samozřejmě nestačí. Deklarace se musí přesunout do funkce Explore, pak bz to mělo fungovat. Explore neí příkaz, ale procedura (Sub), která v okamžiku, kdy právě procházená sestava obsahuje podstastavy, volá sama sebe - tomu se právě říká rekurze.

ad 2) buď se dá do rekurzivní fce část kódu, která stejným způsobem jako oSubProduct zpracuje i oProduct, ale jen za podmínky, že je počet produktů rovný 1 (první procházený produkt se top sestava. Nebo se top sestava zpracuje v hlavním programu a rekurze se nemění..

Tímto Vaším způsobem projdete všechny dokumenty a dostanete se na jejich User Defined properties (ale třeba už na na parametry). Rekurze prochází celou sestavu podle její struktury, tj. projde popořadě každou jednotlivou instanci partu a productu. Používá se třeba při sjednocení PartNumber a InstanceName (pak je to např. Soucast(Soucast.1) atd.)

Klasický příklad na rekurzi je třeba vytvoření kusovníku, kdy potřebujete počty jednotlivých instancí a jejich názvy. To jinak udělat nejde.

Tohle vytvoří strom s načtenými produkty. Stačí přidat rekurzi na procházení sestavy a předávat jí současně i příslušný Node.

Předpokládá komponent TreView a v něm vložený top node.

' nacte seznam otevrenych sestav

Public Sub Iniciate() Handles MyBase.Load

    Dim Parts()

    Dim oNode As TreeNode

    ' spojeni

    oConnection = New Connection ' tohle jsou moje knihovny - musite nahradit 

    CATIA = oConnection.Connection ' tohle jsou moje knihovny - musite nahradit 

    ' vycistime strom

    AssyTree.Nodes.Item(0).Nodes.Clear()

    ' prochazime dokumenty a sestavy vkladame Do stromu

    For Each oDocument As Document In CATIA.Documents()

        Parts = oDocument.Name.Split(".")

        If Parts(UBound(Parts)) = "CATProduct" Then

            ' vytvorime novy uzel

            oNode = New TreeNode(oDocument.Product.PartNumber, 0, 0)

            oNode.Tag = oDocument.Name

            ' vlozime ho Do stromu

            AssyTree.Nodes.Item(0).Nodes.Add(oNode)

        End If

    Next

    ' rozbalime strom

    AssyTree.ExpandAll()

End Sub