---

Guten Morgen allerseits,
ich hätte da mal gerne ein Problem:

Ich möchte ein Makro erstellen, welches in 244 verschiedenen Teilen einer Baugruppe jeweils das feature namens Tasche.3 hinter das Feature namens Bohrung.13 verschiebt.

Ich möchte bitte NICHT jedes Teil manuell bearbeiten, oder aktivieren, oder öffnen müssen...

Ist sowas machbar, oder muß man dafür zum Programmierer werden ?

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

---

Hallo Alix,

das ist so nicht möglich, weil sich das "Graph Tree Reorder" nicht ohne Zugriff auf Windows-Libraries automatisieren lässt.

Ich habe in einem anderen Forum (catiav5forum.de) mal einen Beitrag gesehen, der das dann noch in einem elend komplizierten Skript mit Fensterabfragen etc. realisiert hat. Das Ganze war glaube ich aber nur als Video zu sehen, später auch ausschnittweise als Code.
Das Skript behandelte aber nur den Tausch innerhalb eines Parts. Du bräuchtest also jemand mit Programmierkenntnissen, der dir das Skript erweitert auf deine Bedürfnisse hin.

Ich fürchte, wenn dir keiner sonst den kompletten Code postet, wirst du es 244 mal manuell machen müssen.

EDIT: da hätte ich mal besser genauer gelesen, es ging ja nicht um Reordern im Product, sondern im Part ...
Rick hat die Lösung weiter unten beschrieben.

------------------
Grüße aus dem Thurgau
Thomas

+++++++++++++++++++++++++++++++++

CATIA - eine Laune der Natur ...

[Diese Nachricht wurde von tberger am 16. Sep. 2011 editiert.]

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

---

Hallo Alix,
ich habe das gerade mal probiert.

Ich habe eigentlich nur ein Problem, was sich nicht lösen lässt, und zwar die Tatsache, dass ich dem Fenster/der Funktion "Reorder/neu anordnen" nicht beigebracht bekomme, hinterwelches Element die ausgewählte Komponente gehangen werden soll. Hier wird explizit ein Klick verlangt. Aktiviert und Markiert bekomme ich die Dinge, aber diese werden nicht übernommen. Das Fenster scheint auf das Mausklickereigniss zu reagieren. Einen Klick auszuführen ist kein Problem, aber wohin  wenn ich die Position hätte, wäre das auch kein Problem, aber dafür müsste die Baumanordnung, die Position und die größe immer gleich sein.

In meinen Augen, dürfte das in diesem Fall nicht lösbar sein bzw. zumindest nicht einfach so!

------------------
MFG
Rick Schulz

Nettiquette (CAD.de)  -  Was ist die Systeminfo?  -  Wie man Fragen richtig stellt.  -  Unities

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

---

Hallo Rick,

das klingt doch schonmal nicht schlecht !

Plan B wäre nämlich, in allen 244 Teilen das Feature Kantenverrundung.3 auszuschneiden und (am Baumende) wieder einzufügen.

Wenn DAS mit EINEM Knopfdruck für ALLE 244 Teile ginge, wär' ja garnicht auszuhalten... 

Gruß aus Dresden, Alex.

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

---

Gut wenn es so einfach ist...   
Ich habe dir schnell etwas gebastelt, damit müsste es funktionieren.  Bei allen in CATIA geöffneten Parts (die können auch in Produkten sein) würde nun die "Kantenverrundung.3" ausgeschnitten und am Ende wieder angefügt werden.
Du musst diesen Code nur noch in ein catvba einfügen und als Makro in eine Symbolleiste ablegen.

Code:

---

Sub CATMain()

Dim Document As Document
Dim PartDoc As PartDocument
Dim Part As Part
Dim Bodies As Bodies
Dim Body As Body
Dim Shapes As Shapes
Dim EdgeFillet As ConstRadEdgeFillet
Dim Sel As Selection

    For Each Document In CATIA.Documents

        If InStr(1, Document.name, ".CATPart") > 0 Then
            Set PartDoc = Document

            Set Sel = PartDoc.Selection
            Sel.Clear

            Set Part = PartDoc.Part
            Part.Update

            Set Bodies = Part.Bodies
            Set Body = Bodies.Item("Hauptkörper")
            Set Shapes = Body.Shapes
            Set EdgeFillet = Shapes.Item("Kantenverrundung.3")

            Sel.Add EdgeFillet
            Sel.Cut
            Sel.Clear
            Sel.Add Body
            Sel.Paste
            Part.Update
            Sel.clear
        End If
           
    Next

End Sub

---

Eine Fehlerbehandlung ist allerdings nicht drin. Würde demnach ein Part vorhanden sein, dass keine Kantenverrundung.3 hat, würde das Makro einen Fehler auswerfen.

HTH und schau dir mal an, wofür man die Unities verwenden kann 

------------------
MFG
Rick Schulz

Nettiquette (CAD.de)  -  Was ist die Systeminfo?  -  Wie man Fragen richtig stellt.  -  Unities

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

---

Hallo Rick,

anbei 10 Unities !

Ist zwar etwas tricky in der Anwendung, weil es eine Fehlermeldung gibt,
wenn ein Teil in der Baugruppe im Design-Mode ist, und Kantenverrundung.3 enthält.
Evtl. fehlt da sowas wie activatePart im Makro
(zumindest schreibt Catia das rein, wenn man das Makro aufzeichnet...)

Aber halb so schlimm, das konnte ich umgehen:

-BGR laden
-betr. Teile laden (ohne Design-Mode)
-betr. Teile in eigenen fenstern öffnen
-Makro ausführen
-optional: in BGR Endknoten aktivieren zwecks Aktualisierung abhängiger Teile
-speichern, fertig.

Vielen Dank, bis zum nächsten Mal, Gruß, Alex. 

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

---

Freut mich  Ich habe allerdings nicht aktivieren müssen. BTW Die Aufzeichnung macht einige Sachen, die total unnötig sind.

------------------
MFG
Rick Schulz

Nettiquette (CAD.de)  -  Was ist die Systeminfo?  -  Wie man Fragen richtig stellt.  -  Unities

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

---

Ok. Vielleicht liegt's ja an meiner R18 ...

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