---

Hallo Zusammen,
ein Problem, das mich seit her plagt. In einem Produkt befinden sich mehrere Parts. ich möchte wissen, welches der Parts aktiv(rechte MT und "Edit") ist und ihm eine HybridShapeFactory zuweisen.
Kann mir jemand helfen... Vielen Dank im Voraus!

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

---

Das Part dem du die HybridShapeFactory zuweisen möchtest musst du vorher deklarieren. Entweder fest oder über eine Selektion. Anders funktioniert das ganze nicht.

Beschreib mal in groben zügen was dein Makro machen soll, vielleicht kann man dir dann besser helfen.

------------------
Wenn alle Stricke reissen, nehm ich ein Drahtseil

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

---

Das Part, das sich in einem Produkt befindet hat keine feste Position und keinen festen Namen. In ihm soll Geometrie erzeugt werden. Ich habe es mit der Selektion probiert es klappt Teilweise, aber ich erzeuge vom Endergebnis der Geometrie eine tote Geometrie... dies lässt sich aber nicht im Makro machen, wenn ein anderes Part im Produkt aktiv ist. D.h. das löschen von Geometrien oder Parameter in dem selektierten aber nicht aktiven Part lassen sich nicht löschen!

Zitat:

---

Original erstellt von Timberwolve:
Das Part dem du die HybridShapeFactory zuweisen möchtest musst du vorher deklarieren. Entweder fest oder über eine Selektion. Anders funktioniert das ganze nicht.

Beschreib mal in groben zügen was dein Makro machen soll, vielleicht kann man dir dann besser helfen.

---

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

---

In diesem Fall muss über eine Selektion das gewünschte CATPart ausgewählt werden, dann als aktives Document, bzw. part deklariert werden und dann die jeweiligen Operationen durchgeführt.
Das ganze müsste normalerweise machbar sein.
Habe gerade nur kaum zeit um einen Code zu schreiben. Werde dies bei gelegenheit tun.

Eine Ähnliche abfolge habe ich schon einmal programmiert. Ich schau mal nach ob ich da noch was finde.

Ich bitte um etwas geduld 

------------------
Wenn alle Stricke reissen, nehm ich ein Drahtseil

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

---

Super! Danke!
brauchst du nicht zu schicken hack mir in meinen Code das Nötige, wenn es sein sollte!
*************************************************************
Set sel = CATIA.ActiveDocument.Selection
    If TypeName(CATIA.ActiveDocument) = "ProductDocument" Then
        MsgBox "Bitte das PartDocument in dem die Geometrie erzeugt werden soll aus dem CATIA-Baum selektieren"
        Dim docutype(0)
        docutype(0) = "Part"
        Status = sel.SelectElement(docutype, "Bitte Part auswählen, Abbrechen mit 'Esc'", True)
        If Status = "Cancel" Then Exit Sub
        Set bauteil = sel.Item(1).Value
        sel.EndSelectElement
       
    ElseIf TypeName(CATIA.ActiveDocument) = "PartDocument" Then
        Set bauteil = CATIA.ActiveDocument.Part
    Else
        MsgBox "Das geöffnete Dokument ist kein Part und ist für den Durchlauf des Makros nicht geeignet!!" + Chr(10) + "Bitte öffnen Sie Ihren Part in einem neuen Fenster und starten das Makro erneut."
        Exit Sub
    End If
    Set wzk3d = bauteil.HybridShapeFactory
.
.
.

*****************************************************

Zitat:

---

Original erstellt von Timberwolve:
In diesem Fall muss über eine Selektion das gewünschte CATPart ausgewählt werden, dann als aktives Document, bzw. part deklariert werden und dann die jeweiligen Operationen durchgeführt.
Das ganze müsste normalerweise machbar sein.
Habe gerade nur kaum zeit um einen Code zu schreiben. Werde dies bei gelegenheit tun.

Eine Ähnliche abfolge habe ich schon einmal programmiert. Ich schau mal nach ob ich da noch was finde.

Ich bitte um etwas geduld 

---

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

---

Ich habe es probiert... Es klappt jetzt mit der selektion des Parts... Danke!

Zitat:

---

Original erstellt von Timberwolve:
Das Part dem du die HybridShapeFactory zuweisen möchtest musst du vorher deklarieren. Entweder fest oder über eine Selektion. Anders funktioniert das ganze nicht.

Beschreib mal in groben zügen was dein Makro machen soll, vielleicht kann man dir dann besser helfen.

---

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