Text dotazu:
Zdravím, snažím se vyzískat informaci o zdrojových CATPartech a CATProduktech, ze kterých je vytvořený CATDrawing. Níže je i část kódu. Možná jsem si vybral příliš krkolomnou cestu. U mého postupu jsem narazil na problém, že nevím jak u pohledu, který je generovaný ze scény určit Product objekt. Nevíte někdo jak se dostat ze Scena na Product? Eventuelně budu rád, pokud se se mnou podělíte o jiný lepší způsob jak zjisit všechny CATParty a CATProdukty, které jsou použity pro tvorbu výkresu. Díky.

        For Each locfView As DrawingView In locViews

            If locfView.ViewType = CatDrawingViewType.catViewMain Or locfView.ViewType = CatDrawingViewType.catViewBackground Then

                'skip views #1(sheet level) and #2(Background View)

            Else

                'jedná se o generovaný pohled z 3D?

                If locfView.IsGenerative() Then

                    locGenLink = locfView.GenerativeLinks

                    locGenBeh = locfView.GenerativeBehavior

                    'strLinkName = locGenLink.FirstLink.Name

                    strTyp = TypeName(locGenBeh.Document)



                    If strTyp = "Product" Then

                        strLinkName = locGenBeh.Document.Parent.FullName.ToString

                        locDoc = CType(locGenBeh.Document.Parent, INFITF.Document)



                    ElseIf strTyp = "Body" Then

                        bdyBody = CType(locGenBeh.Document, Body)

                        'Body      -> Bodies -> Part   -> Document 

                        'Body Doc. -> Parent -> Parent -> Parent

                        strLinkName = locGenBeh.Document.Parent.Parent.Parent.FullName.ToString

                        locDoc = CType(locGenBeh.Document.Parent.Parent.Parent, INFITF.Document)



                    ElseIf strTyp = "ProductScene" Then

                        'Set oScenes = oProdDoc.Product.GetTechnologicalObject("ScenesCollection")

                        strTyp = TypeName(locGenBeh.Document)

                        pdScene = CType(locGenBeh.Document, ProductScene)

                        strTyp = TypeName(locGenBeh.Document.Parent.Parent)



                        'ZDE NEVÍM............NEVÍM.............JAK SE DOSTAT NA PRODUCT



                    End If



                    If TypeName(locDoc) = "ProductDocument" Then

                        locSubComp = StoreProductInfo(CType(locDoc.Product, Product))

                    ElseIf TypeName(locDoc) = "PartDocument" Then

                        locSubComp = StorePartInfo(CType(locDoc.Part, Part))

                    Else

                        'ani Part ani Product, tak nic nedělej

                    End If



                    blnIsInList = False



                    If loclstSubComp.Count > 0 Then

                        For i As Integer = 0 To loclstSubComp.Count - 1

                            If loclstSubComp(i).CADNumber = locSubComp.CADNumber Then blnIsInList = True

                        Next i

                    End If



                    If Not blnIsInList Then loclstSubComp.Add(locSubComp)



                    'blnNextLink = True



                    'Do While blnNextLink

                    '    Try

                    '        strLinkName = locGenLink.NextLink.Name

                    '        If Not loclstStr.Contains(strLinkName) Then loclstStr.Add(strLinkName)

                    '    Catch ex As Exception

                    '        'již není Next link -> vypnout smyčku

                    '        blnNextLink = False

                    '    End Try

                    'Loop



                End If

                End If



        Next locfView