---

Hallo,
ich möchte aus einem solid_body den Pfad nach oben bis zum Hauptkoerper auslesen.
Über dem Body sind 2 Boolsche Operationen (jeweils add), bis zum Hauptkörper.

Mein Ergebnis soll dann so aus sehen

path_body.14 : Hauptkoerper/add/Body.5/add/body.14

Leider ist das parent element jedes bodies das Part selber.
Leafprodukt funktioniert innerhalb eines parts nicht.

Danke für eure Hilfe

------------------
------------------------
warum immer so schwer

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Servus

Du könntest dich von oben nach unten durch die Bodies arbeiten:

• im Body nach Boole'schen Operationen suchen (über Selection oder Schleife)
  
• für jede Operation den "verboole'ten" Body auslesen
  
• in diesem Body wieder nach Boole'schen Operationen suchen

Meine ursprüngliche Idee per GetNameToUseInRelation geht scheinbar nur für GeoSets.

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo,

Von unten geht es wirklich leider nicht.
Man muss von oben nach unten durch das fanze Part um dann zu finden,
wo man hoch will.

Naja, die Solid Funktion von CATIA mochte ich noch nie so.

Danke

------------------
------------------------
warum immer so schwer

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Servus

Hier ein Code wie es funktionieren könnte (kaum getestet):

Code:

---

Sub CATMain()

Dim oPartDocument as PartDocument
Dim oPart as Part
Dim oSel as Selection
Dim oBodies as Bodies
Dim oBody as Body

Set oPartDocument = CATIA.ActiveDocument
Set oSel = oPartDocument.Selection
Set oPart = oPartDocument.Part

Set oBodies = oPart.Bodies
Set oBody = oBodies.Item("Körper.2")

MsgBox GetPathOfBody(oBody,oSel)

End Sub

Function GetPathOfBody(oBody as Body, oSel as Selection) as String

    'Delivers the path of the given body. The path is seperated by "\"

    Dim oCurrentBody as Body
    Dim i as Integer
    Dim oCurrentBooleanOperation as BooleanShape
   
    Set oCurrentBody = oBody
    GetPathOfBody = oBody.Name

    if Not oBody.InBooleanOperation then       
        exit function
    end if

    'search all Boolean operations: Assemble, Add and Remove
    oSel.Search "(CATPrtSearch.Assemble + CATPrtSearch.Add + CATPrtSearch.Remove),all"
    if oSel.Count2 = 0 then
        exit function
    end if

    do while oCurrentBody.InBooleanOperation
        for i = 1 to oSel.Count2
            Set oCurrentBooleanOperation = oSel.Item2(i).Value
            if oCurrentBooleanOperation.Body.Name = oCurrentBody.Name then
                Set oCurrentBody = oCurrentBooleanOperation.Parent.Parent
                GetPathOfBody = oCurrentBody.Name & "\" & oCurrentBooleanOperation.Name & "\" & GetPathOfBody
                exit for
            end if
        next
    loop

End Function

---

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

danke,
ich arbeite mich mal rein, 8-).
Hast mir aber schon sehr geholfen.

Schönen Wochenstart.

------------------
------------------------
warum immer so schwer

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP