Autor
|
Thema: Makro Properties bearbeiten (2807 mal gelesen)
|
Spiglix Mitglied Technischer Zeichner / Teilkonstukteur
Beiträge: 18 Registriert: 17.12.2008 FEST INTEL Xeon E3-1270 V2 3,5GHz 32 GB RAM NVidia Quadro 2000 WINDOWS ULTIMATE 64 Bit MOBIL MEDION ERAZOR X6817 INTEL i7 2670QM (2.2GHz) NVidia GTX 560M 16GB RAM WINDOWS ULTIMATE 64 Bit<P>AIP 2009-15 CATIA V5/R16/R18/R19/R24
|
erstellt am: 16. Jun. 2015 11:00 <-- editieren / zitieren --> Unities abgeben:
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 |
bgrittmann Moderator Konstrukteur
Beiträge: 11780 Registriert: 30.11.2006 CATIA V5R19
|
erstellt am: 16. Jun. 2015 12:26 <-- editieren / zitieren --> Unities abgeben: Nur für Spiglix
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 |
Spiglix Mitglied Technischer Zeichner / Teilkonstukteur
Beiträge: 18 Registriert: 17.12.2008 FEST INTEL Xeon E3-1270 V2 3,5GHz 32 GB RAM NVidia Quadro 2000 WINDOWS ULTIMATE 64 Bit MOBIL MEDION ERAZOR X6817 INTEL i7 2670QM (2.2GHz) NVidia GTX 560M 16GB RAM WINDOWS ULTIMATE 64 Bit<P>AIP 2009-15 CATIA V5/R16/R18/R19/R24
|
erstellt am: 16. Jun. 2015 12:56 <-- editieren / zitieren --> Unities abgeben:
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 |
ptit.tom Mitglied CAD-Berater
Beiträge: 114 Registriert: 11.02.2005 win10, CATIA R19 bis R30
|
erstellt am: 16. Jun. 2015 14:56 <-- editieren / zitieren --> Unities abgeben: Nur für Spiglix
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 |
Spiglix Mitglied Technischer Zeichner / Teilkonstukteur
Beiträge: 18 Registriert: 17.12.2008 FEST INTEL Xeon E3-1270 V2 3,5GHz 32 GB RAM NVidia Quadro 2000 WINDOWS ULTIMATE 64 Bit MOBIL MEDION ERAZOR X6817 INTEL i7 2670QM (2.2GHz) NVidia GTX 560M 16GB RAM WINDOWS ULTIMATE 64 Bit<P>AIP 2009-15 CATIA V5/R16/R18/R19/R24
|
erstellt am: 16. Jun. 2015 15:34 <-- editieren / zitieren --> Unities abgeben:
|
Spiglix Mitglied Technischer Zeichner / Teilkonstukteur
Beiträge: 18 Registriert: 17.12.2008 FEST INTEL Xeon E3-1270 V2 3,5GHz 32 GB RAM NVidia Quadro 2000 WINDOWS ULTIMATE 64 Bit MOBIL MEDION ERAZOR X6817 INTEL i7 2670QM (2.2GHz) NVidia GTX 560M 16GB RAM WINDOWS ULTIMATE 64 Bit<P>AIP 2009-15 CATIA V5/R16/R18/R19/R24
|
erstellt am: 17. Jun. 2015 07:55 <-- editieren / zitieren --> Unities abgeben:
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 |
Thomas Harmening Ehrenmitglied V.I.P. h.c. Arbeiter ツ
Beiträge: 2897 Registriert: 06.07.2001 NX 10 Win 7
|
erstellt am: 17. Jun. 2015 08:00 <-- editieren / zitieren --> Unities abgeben: Nur für Spiglix
|
Spiglix Mitglied Technischer Zeichner / Teilkonstukteur
Beiträge: 18 Registriert: 17.12.2008 FEST INTEL Xeon E3-1270 V2 3,5GHz 32 GB RAM NVidia Quadro 2000 WINDOWS ULTIMATE 64 Bit MOBIL MEDION ERAZOR X6817 INTEL i7 2670QM (2.2GHz) NVidia GTX 560M 16GB RAM WINDOWS ULTIMATE 64 Bit<P>AIP 2009-15 CATIA V5/R16/R18/R19/R24
|
erstellt am: 17. Jun. 2015 10:25 <-- editieren / zitieren --> Unities abgeben:
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 |
bgrittmann Moderator Konstrukteur
Beiträge: 11780 Registriert: 30.11.2006 CATIA V5R19
|
erstellt am: 17. Jun. 2015 12:29 <-- editieren / zitieren --> Unities abgeben: Nur für Spiglix
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 |
Spiglix Mitglied Technischer Zeichner / Teilkonstukteur
Beiträge: 18 Registriert: 17.12.2008 FEST INTEL Xeon E3-1270 V2 3,5GHz 32 GB RAM NVidia Quadro 2000 WINDOWS ULTIMATE 64 Bit MOBIL MEDION ERAZOR X6817 INTEL i7 2670QM (2.2GHz) NVidia GTX 560M 16GB RAM WINDOWS ULTIMATE 64 Bit<P>AIP 2009-15 CATIA V5/R16/R18/R19/R24
|
erstellt am: 17. Jun. 2015 13:04 <-- editieren / zitieren --> Unities abgeben:
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 |
ptit.tom Mitglied CAD-Berater
Beiträge: 114 Registriert: 11.02.2005 win10, CATIA R19 bis R30
|
erstellt am: 23. Jun. 2015 13:15 <-- editieren / zitieren --> Unities abgeben: Nur für Spiglix
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 |
imation1999 Mitglied dipl.-ing. Maschinenbau
Beiträge: 276 Registriert: 02.08.2011 Dell Precision T3500 Intel® Xeon® Quad Core NVIDIA Quadro® 5000 Win7 x64 Ultimate CATIA V5 R20 SP2
|
erstellt am: 27. Aug. 2015 11:58 <-- editieren / zitieren --> Unities abgeben: Nur für Spiglix
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 |
bgrittmann Moderator Konstrukteur
Beiträge: 11780 Registriert: 30.11.2006 CATIA V5R19
|
erstellt am: 27. Aug. 2015 12:02 <-- editieren / zitieren --> Unities abgeben: Nur für Spiglix
|
joehz Moderator Freiberuflicher Konstrukteur
Beiträge: 1057 Registriert: 25.11.2006 Win7 Pro 64 + Ubuntu + Irix6.5.20 Dell Precision M6600 i7-2960XM 2.7GHz 16GB NVidia Quadro M5010 Catia V5R19 VB6Pro.SP6/VBA 6.5.1053
|
erstellt am: 27. Aug. 2015 13:54 <-- editieren / zitieren --> Unities abgeben: Nur für Spiglix
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 |
imation1999 Mitglied dipl.-ing. Maschinenbau
Beiträge: 276 Registriert: 02.08.2011 Dell Precision T3500 Intel® Xeon® Quad Core NVIDIA Quadro® 5000 Win7 x64 Ultimate CATIA V5 R20 SP2
|
erstellt am: 27. Aug. 2015 15:03 <-- editieren / zitieren --> Unities abgeben: Nur für Spiglix
|
joehz Moderator Freiberuflicher Konstrukteur
Beiträge: 1057 Registriert: 25.11.2006 Win7 Pro 64 + Ubuntu + Irix6.5.20 Dell Precision M6600 i7-2960XM 2.7GHz 16GB NVidia Quadro M5010 Catia V5R19 VB6Pro.SP6/VBA 6.5.1053
|
erstellt am: 27. Aug. 2015 15:11 <-- editieren / zitieren --> Unities abgeben: Nur für Spiglix
ü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 |
imation1999 Mitglied dipl.-ing. Maschinenbau
Beiträge: 276 Registriert: 02.08.2011 Dell Precision T3500 Intel® Xeon® Quad Core NVIDIA Quadro® 5000 Win7 x64 Ultimate CATIA V5 R20 SP2
|
erstellt am: 27. Aug. 2015 15:22 <-- editieren / zitieren --> Unities abgeben: Nur für Spiglix
|
joehz Moderator Freiberuflicher Konstrukteur
Beiträge: 1057 Registriert: 25.11.2006 Win7 Pro 64 + Ubuntu + Irix6.5.20 Dell Precision M6600 i7-2960XM 2.7GHz 16GB NVidia Quadro M5010 Catia V5R19 VB6Pro.SP6/VBA 6.5.1053
|
erstellt am: 27. Aug. 2015 23:23 <-- editieren / zitieren --> Unities abgeben: Nur für Spiglix
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 |
imation1999 Mitglied dipl.-ing. Maschinenbau
Beiträge: 276 Registriert: 02.08.2011 Dell Precision T3500 Intel® Xeon® Quad Core NVIDIA Quadro® 5000 Win7 x64 Ultimate CATIA V5 R20 SP2
|
erstellt am: 28. Aug. 2015 06:53 <-- editieren / zitieren --> Unities abgeben: Nur für Spiglix
|
joehz Moderator Freiberuflicher Konstrukteur
Beiträge: 1057 Registriert: 25.11.2006 Win7 Pro 64 + Ubuntu + Irix6.5.20 Dell Precision M6600 i7-2960XM 2.7GHz 16GB NVidia Quadro M5010 Catia V5R19 VB6Pro.SP6/VBA 6.5.1053
|
erstellt am: 29. Aug. 2015 13:41 <-- editieren / zitieren --> Unities abgeben: Nur für Spiglix
|
imation1999 Mitglied dipl.-ing. Maschinenbau
Beiträge: 276 Registriert: 02.08.2011 Dell Precision T3500 Intel® Xeon® Quad Core NVIDIA Quadro® 5000 Win7 x64 Ultimate CATIA V5 R20 SP2
|
erstellt am: 29. Aug. 2015 15:51 <-- editieren / zitieren --> Unities abgeben: Nur für Spiglix
|
joehz Moderator Freiberuflicher Konstrukteur
Beiträge: 1057 Registriert: 25.11.2006 Win7 Pro 64 + Ubuntu + Irix6.5.20 Dell Precision M6600 i7-2960XM 2.7GHz 16GB NVidia Quadro M5010 Catia V5R19 VB6Pro.SP6/VBA 6.5.1053
|
erstellt am: 29. Aug. 2015 17:11 <-- editieren / zitieren --> Unities abgeben: Nur für Spiglix
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 |