Dobrý den,

s linky je to obecně řehole. Kromě linků ve výkresu jsem zatím nenašel nic, s čím by se daly externí linky zjistit nebo s nimi dokonce pracovat.

Syntaxi pro hledání také neznám, tj. najít všechny Shapes a porovnávat podle typu (zdlouhavé).

Desk se asi ovládat nedá, v API jsem zatím nic nenašel. Kdysi mi fungovalo vybrat referenci podle PN a vycentrovat jí pomocí Center graph (hnul se strom v Desku) ale nic víc. Linky v sestavě zjistíte, ale max. to co si sestava drží jako seznam referencí (procházení stromu), ale import, kontext nebo CCP linky se podle mě zjistit nedají.

Už jste něco zkoušel?

Solid.SourceElement

bude možná řešením, každopádně to musím ještě ozkoušet a dám vědět. Při prvních pokusech jsem zapomněl, že mám v sestavě Solidy bez linku.

Nevím zda je vše OK, ale zde je můj výsledek, který mi zatím funguje na procházení Solid linků v Partu. Je třeba mít všechny Party na desku Loaded, jinak nerozpozná SourceElement. Asi není vše ošetřeno, ale to už si poradíte. ;-)

    ''' <summary>

    ''' Rekurzivní funkce pro procházení dílu CATPartu

    ''' </summary>

    ''' <param name="iPart">Definuje Product který se má projít</param>

    ''' <param name="iAssyLevel">Aktuální úroveň Productu v sestavě</param>

    ''' <param name="iParty">

    ''' Kolekce vyzískaných Partu

    ''' Přidává se cls_SubComponent Do kolekce iPodprodukty

    ''' </param>

    ''' <remarks>

    ''' Prozkoumá iPart Do hloubky a případné nalezené další Párty přidá Do kolekce iParty

    ''' Příklad:

    ''' Dim Pole As System.Collections.Generic.List(Of cls_SubComponent)

    ''' PartCPPExplorer (Part, Level, Pole)

    ''' </remarks>

    Public Sub PartCPPExplorer(ByVal iPart As Part, ByVal iAssyLevel As Integer, ByVal iParty As System.Collections.Generic.List(Of cls_SubComponent))



        Dim locSubKomp As New cls_SubComponent

        Dim intAssyLevel As Integer = iAssyLevel

        Dim locShapes As MECMOD.Shapes

        Dim locSolid As MECMOD.Solid

        Dim locSourceElem As INFITF.AnyObject

        Dim locPart As Part

        Dim blnIsCPP, blnIsIn As Boolean

        Dim locColParty As New System.Collections.Generic.List(Of Part)



        intAssyLevel += 1

        locColParty.Clear()

        For Each iBody As Body In iPart.Bodies

            locShapes = iBody.Shapes

            For Each locfShape As Shape In locShapes

                If Not IsNothing(locfShape) Then

                    If TypeName(locfShape) = "Solid" Then

                        blnIsCPP = False

                        'pokud je to Solid, tak mi ho dej mySp

                        locSolid = CType(locfShape, MECMOD.Solid)





                        Try 'zkus zjistit zdroj Solidu, né všechny Solidy jsou s linkem, některé jsou mrtvoly

                            locSourceElem = locSolid.SourceElement

                            'locSourceElem je Body -> parent je Bodies -> paret je Part

                            locPart = CType(locSourceElem.Parent.Parent, Part)



                            If Not ReferenceEquals(iPart, locPart) Then

                                blnIsCPP = True



                                blnIsIn = False

                                For Each locfPart As Part In locColParty 'procházení již zařazených dílů

                                    If ReferenceEquals(locfPart, locPart) Then  'porovnání    

                                        blnIsIn = True 'pokud bude někdy shoda, tak přepni na TRUE

                                    End If

                                Next locfPart



                                If Not blnIsIn Then 'pokud ještě není v seznamu, tak přidej díl

                                    locColParty.Add(locPart)

                                End If

                            End If

                        Catch ex As Exception 'pokud vyhodí chybu, tak je solid mrtvola a né CPP link

                            blnIsCPP = False

                        Finally

                        End Try



                    End If

                End If

            Next locfShape

        Next iBody





        For Each locfPart As Part In locColParty

            locSubKomp = StorePartInfo(locfPart, intAssyLevel, 0) 'dej Do třídy info o Partu

            locSubKomp.CPPLinked = True

            iParty.Add(locSubKomp) 'přidat na seznam

            PartCPPExplorer(locfPart, intAssyLevel, iParty) 'Rekurzivní volání

        Next locfPart



        intAssyLevel -= 1

    End Sub 'PartCPPExplorer