Už používám toto porovnání

Product.PartNumber = Document.Product.PartNumber

Můj problém je hlavně v tom, jak z Product objektu pro Part vyzískat referenci na ten objekt Part a následně s tím pracovat.

Toto by bylo ideální, ale nefunguje to.

Part = Product.ReferencedProduct.Part

Toto funguje, ale musím právě vyzjišťovávat který object Document odpovídá objektu Product.

Part = Document.Part

Hurá!!!
...už to asi mám z tvé rady, jen spojit více řádků... (doplnil jsem ještě .Parent.)

Part = Product.ReferenceProduct.Parent.Part 

Jinak .NET není problém. Už používám Visual Basic 2010Express, ale to až když mám doladěný základ pro Catii. VB 6 v Catii mi ukazuje strukturu objektů. VS2010 mi ukazuje jen že se jedná o COM instanci a nevidím struktůru objektu. Možná jen nevím jak to zapnout, ale spíš předpokládám, že to ani nejde. Každopádně veliké dík za radu.

Ještě ukázka z VS 2008 jak to napovídá...

Tohle funguje ale je to šílenost.

Private Sub Command3_Click()

On Error GoTo chyba





If Spusteni_Catie = False Then Exit Sub



Me.MousePointer = 11



Text1 = ""



 pocet_sestav = 0

  pocet_partu = 0



stat "Cekam na Catii"



Dim pr_catia As Application



Set pr_catia = CreateObject("Catia.application")

Dim doc_dokument As Document

Set doc_dokument = pr_catia.ActiveDocument



If InStr(1, doc_dokument.Name, ".CATProduct", vbTextCompare) Then

    

    Dim stromProduct As Product

    Set stromProduct = doc_dokument.Product

   

    zapsat "0" & vbTab & stromProduct.PartNumber

    OtevreniStromu stromProduct, stromProduct.PartNumber

Else

    Me.MousePointer = 0

    stat "Neni aktivni CATProduct"

    Exit Sub

End If



stat "Sestav: " & pocet_sestav & " Partu: " & pocet_partu



Command5_Click

Me.MousePointer = 0

Exit Sub



chyba:



ee = Err.Number & " " & Err.Description

Me.MousePointer = 0

stat ee

End Sub



Sub OtevreniStromu(stromProductTMP As Product, otec)



hloubka_tree = hloubka_tree + 1

DoEvents



pocet_sestav = pocet_sestav + 1



    For ff = 1 To stromProductTMP.Products.Count

    

        poc = stromProductTMP.Products.Item(ff).Products.Count

        

        stat "Product: " & stromProductTMP.PartNumber & " Part: " & stromProductTMP.Products.Item(ff).PartNumber

        

        If poc = 0 Then

            poc = ""

            pocet_partu = pocet_partu + 1

        Else

            poc = TreeView1.PathSeparator

        End If

        

        If poc = "" Then

            zapsat hloubka_tree & vbTab & poc & stromProductTMP.Products.Item(ff).PartNumber & vbTab & otec

        Else

            zapsat hloubka_tree & vbTab & stromProductTMP.Products.Item(ff).PartNumber & vbTab & otec & vbTab & otec & "|||||" & stromProductTMP.Products.Item(ff).PartNumber & "*" & pocet_sestav & "*"

        End If



        If stromProductTMP.Products.Item(ff).Products.Count > 0 Then

            OtevreniStromu stromProductTMP.Products.Item(ff), otec & "|||||" & stromProductTMP.Products.Item(ff).PartNumber & "*" & pocet_sestav & "*"

        End If

        

    Next ff



hloubka_tree = hloubka_tree - 1





End Sub

Zdravím ještě jednou k tomuto tématu. Potřeboval bych vyzjistit, jak v sestavě nějak bezpečně rozpoznat když mám seznam produktů, co je model z Catie V4. Part a Product rozeznat už umím, tím že přetypuji Product na Document a zněj už se ptám na typ. Ale přetypování z Productu na Document nefunguje u V4 modelu. Je nějaká vlastnost či funkce u Produktu co by mi řekla, že se jedná o V4 model. Minimálně mohu rozeznat podle jména, páč máme všechny V4 modely s počátečním prefixem, ale nezdá se mi to moc bezpečné a univerzální pro kohokoliv jiného mimo naší firmu.
Děkuji za případnou radu. Snad jsem to vysvětlil dostatečně

Public Sub ProduktExplorer(ByVal iProdukt As Product, ByVal iPodprodukty As System.Collections.Generic.List(Of cls_SubComponent))

        'Prozkoumá sestavu iProdukt Do hloubky a případné nalezené produkty přidá Do ArrayListu iPodprodukty

        'Příklad:

        'Dim Pole As ArrayList

        'ProduktExplorer (CATIA.ActiveDocument.Product, Pole)



        Dim locProdukty As Products 'Kolekce produktů uvnitř produktu iProdukt

        Dim locProdukt As Product   'Produkt z kolekce Produkty

        Dim locDocument As Document

        Dim locSubKomp As New cls_SubComponent

        Dim locPart As Part



        intAssyLevel += 1

        locProdukty = iProdukt.Products

        For Each locProdukt In locProdukty



            locDocument = CType(locProdukt.ReferenceProduct.Parent, Document)

            'pokud je V4 model tak neprovede přetypování a locDocument je referencí na předchozí úspěšné přetypování, nutno před tímto ověřit co je V4 model,

            ' ale jak zjistit je locProduct je V4 model





            If TypeName(locDocument) = "PartDocument" Then

                locPart = CType(locProdukt.ReferenceProduct.Parent.Part, Part)

                locSubKomp = StorePartInfo(locPart, intAssyLevel)

                iPodprodukty.Add(locSubKomp)

                'ještě projít jednotlivá Body

                For Each iBody As Body In locPart.Bodies

                    If iBody.InBooleanOperation = False Then

                        locSubKomp = StoreBodyInfo(locPart, iBody, intAssyLevel + 1)

                        iPodprodukty.Add(locSubKomp)

                    End If

                Next

            ElseIf TypeName(locDocument) = "ProductDocument" Then

                locSubKomp = StoreProductInfo(locProdukt, intAssyLevel)



                'If locDocument.FullName.Contains("model") Then  'TOTO ZATIM NEFUNGUJE NUTNO OPRAVIT !!!!!!!!!!!!!!!!

                '    locSubKomp.Type = cls_SubComponent.SubComponentType.Model

                'End If

                iPodprodukty.Add(locSubKomp)

            Else

                'dokument není ani Part ani Product, neznámý object

                locSubKomp.Name = locDocument.FullName

                locSubKomp.Type = cls_SubComponent.SubComponentType.Unknown

                iPodprodukty.Add(locSubKomp)

            End If

            ProduktExplorer(locProdukt, iPodprodukty) 'Rekurzivní volání

        Next locProdukt

        intAssyLevel -= 1

    End Sub 'ProduktExplorer