---

Hallo liebe Leute,

ich bin recht neu auf dem Gebiet im Catia V5R24 - Makros schreiben.
Ich versuche hier schon eine halbe Ewigkeit ein Makro selbst zu schreiben um die Nomenclature in den Properties zu löschen.

Ich habe es schon geschafft das es bei einem einzelnen Teil funktioniert!

__________________________________________
Language="VBSCRIPT"

Sub CATMain()

Dim Product As Product
Set Product = CATIA.ActiveDocument.Product

Product.Nomenclature = ""

End Sub
__________________________________

Ich benötige aber ein Makro das alle Teile in der geöffneten Baugruppe ausliest und in den Inhalt der Zeile Nomenclature löscht!

Kann mir da einer der Profis hier behilflich sein?

Vielen lieben Dank

MfG Spiglix

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

---

Servus
Schau mal hier im Forum nach Rekursion/Rekursiv/Treewalk da findest du schon einige Vorlagen.
Oder nutze die Suche (Selektion) um alle Product zu finden.

Gruß
Bernd

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

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

---

Danke für die schnelle Antwort.:-)

Ich habe mich schon ne Weile damit beschäftigt aber ich würde ja hier nicht Fragen wenn ich nicht weiter wüsste.
Bin nur ein Konstrukteur/Zeichner und kein Programmierer:-(

LG Spiglix

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

---

Guten Tag,

Am schnellsten geht es über eine recursive Funktion:

Code:

---

Sub CATMain()

Dim oProd As Product
Set oProd = CATIA.ActiveDocument.Product
oProd.Nomenclature = ""
TraverseProduct oProd
End Sub

Sub TraverseProduct(oProd As Product)
    Dim SubProd As Product
    For Each SubProd In oProd.Products
        Debug.Print SubProd.Name
        oProd.Nomenclature = ""
        TraverseProduct SubProd
    Next
End Sub

---

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

---

Ich danke dir für die Antwort ptit.tom

Ich werde es morgen gleich mal versuchen.

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

---

fehlermeldung_macro.JPG

Hallo,

also Ich habe es gerade versucht zu testen.
Leider ohne Erfolg:-( bekomme immer wieder diese Fehlermeldung (im Anhang)
Ich Checks echt nicht. So ein ähnliches Makro haben wir schon bei uns und dort gibt es an der Stelle keine Fehlermeldung. Was mach Ich falsch?

LG Spiglix

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

---

kommentiere einfach

Code:

---

'Debug.Print SubProd.Name

---

aus

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

---

Hey super es funktioniert.:-)

Nur leider liest/schreibt er immer noch nicht die Parts in dem Product mit!
Ich bin ja nicht nur an einem funktionierenden Makro interessiert, sondern will es auch verstehen was Ich (/Ihr) da mache. Leute die nur "Copy und Paste" machen werden nicht schlauer!;-)

Vielen Dank bisher

LG Spiglix

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

---

Servus
IMHO ist ein Fehler im Makro. In de Unterroutine muss auch das jeweilige Product (auch Parts sind  in der Baugruppe Products) angesprochen werden.

Code:

---

Sub TraverseProduct(oProd As Product)
    Dim SubProd As Product
    For Each SubProd In oProd.Products
        SubProd.Nomenclature = ""
        TraverseProduct SubProd
    Next
End Sub

---

Gruß
Bernd

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

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

---

Jawohl jetzt check Ich langsam wie der Hase lang läuft!

Code:
_______________________________________
Sub CATMain()

Dim oProd As Product
Set oProd = CATIA.ActiveDocument.Product
oProd.Nomenclature = ""
TraverseProduct oProd
End Sub

Sub TraverseProduct(oProd As Product)
    Dim SubProd As Product
    For Each SubProd In oProd.Products
        SubProd.Nomenclature = ""
        TraverseProduct SubProd
    Next
End Sub
_______________________________________

Vielen lieben Dank für eure Hilfe!!!:-)

LG Spiglix

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

---

Zitat:

---

Original erstellt von bgrittmann:
Servus
IMHO ist ein Fehler im Makro. In de Unterroutine muss auch das jeweilige Product (auch Parts sind  in der Baugruppe Products) angesprochen werden.

Gruß
Bernd

---

Hallo,

Das Makro bearbeitet alle Product-Objekte (sowohl Part als Product). Die Eigenschaft Nomenclature ist dort verfügbar.
Da es rekursiv ist, werden alle Elemente im Baum erfasst. Nur das root-Product wird separat im Main() bearbeitet.

[Diese Nachricht wurde von ptit.tom am 23. Jun. 2015 editiert.]

[Diese Nachricht wurde von ptit.tom am 23. Jun. 2015 editiert.]

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

---

Properties_1.jpg

Hallo Zusammen,

kann man irgendwie diese Checkbox's per Makro auslesen/ändern?
(color on import Management -> Manage the color transfer)

Über Tools/Options würde es gehen, aber ich möchte gerne nur "lokal" ändern.

Danke im Voraus

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

---

Servus
IMHO: nein

Gruß
Bernd

PS: Vielleicht geht es umständlich über die WindosAPI ("Klicks nachbilden")

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

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

---

Hallo imation,

wie/wo öffnest den Dialog?
(ist bei mir augegraut)

Tschau,
Joe

------------------
The problem with the world is that the intelligent people are full of doubts, while the stupid ones are full of confidence.
~Charles Bukowski

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

---

Properties_2.jpg

Hallo Joe,

im Part Design oder im Generativ Shape Design, RMT auf PartNumber (im Baum ganz oben), dann Properties und Colors!

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

---

über RMT wird's schwierig.
Aber über StartCommand könnt's gehen.
Ich spiel heut abend mal damit.

Hast Du 'ne Idee, was ich umstellen muss, damit die Option aktiv wird?

Tschau,
Joe

------------------
The problem with the world is that the intelligent people are full of doubts, while the stupid ones are full of confidence.
~Charles Bukowski

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

---

Properties_3.jpg

Tools/options/Infrasktukture/Part Infrastukture/Color....

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

---

Hallo imation,

eine gute Nachricht, eine schlechte.

Zwar lässt sich die Option setzen/löschen, aber nur wenn der richtige Tab bei den Properties aktiv ist.

Ich hab noch keine Idee, wie ich einen anderen Tab auswählen kann.

Sorry,
Joe

------------------
The problem with the world is that the intelligent people are full of doubts, while the stupid ones are full of confidence.
~Charles Bukowski

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

---

Morgen Joe,

danke für deine Mühe. Ich bin genauso weit, wie du. 

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

---

Hallo imation,

ich hab noch 'ne Lösung für den Seitenwechsel gefunden. Siehe hier:

http://catia2.cad.de/index.php/de/tipps-tricks/programmierung/296-zwischen-catpart-property-pages-wechseln

Tschau,
Joe

------------------
The problem with the world is that the intelligent people are full of doubts, while the stupid ones are full of confidence.
~Charles Bukowski

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

---

Hallo Joe,

es ist Wahnsinn! Ich werde ausprobieren.
Vielen Dank nochmal Deine Mühe.

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

---

Hallo imation,

hab' grad gesehen, dass die Buttons falsch beschriftet sind. Wundere Dich also nicht.
Edit: Vielleicht doch nicht. Die Lage der Tabs wechselt von Fall zu Fall?!

Wofür ich bisher keine Lösung gefunden habe, ist zu bestimmen welcher Tab aktiv ist.
Vielleicht fällt Dir da was ein.

Ausserdem: Beim ersten - und nur beim ersten - Öffnen der 'Mass'-Seite hängt das Makro.
Die Warnung lässt sich nicht wegdrücken.
Ich weiss nicht weshalb.

Have fun,
Joe

------------------
The problem with the world is that the intelligent people are full of doubts, while the stupid ones are full of confidence.
~Charles Bukowski

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