| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für CATIA & Co. |
| |
| KISTERS 3DViewStation optimiert die Lizenzverwaltung für ihre Kunden, eine Pressemitteilung
|
Autor
|
Thema: Makro zu propertis füllen (1969 mal gelesen)
|
xyon126 Mitglied Ingenieur
Beiträge: 74 Registriert: 07.11.2011
|
erstellt am: 12. Sep. 2012 13:00 <-- editieren / zitieren --> Unities abgeben:
|
DasDon Mitglied Konstruktuer
Beiträge: 169 Registriert: 25.07.2011 R18 SP2. WIN
|
erstellt am: 12. Sep. 2012 15:25 <-- editieren / zitieren --> Unities abgeben: Nur für xyon126
|
xyon126 Mitglied Ingenieur
Beiträge: 74 Registriert: 07.11.2011
|
erstellt am: 12. Sep. 2012 18:26 <-- editieren / zitieren --> Unities abgeben:
Hallo DasDon! Dies ist ein Foto von dem, was ich brauche, um mit dem Makro zu tun. Benenne ich mehr als 600 Dateien in 30 CATProducts und müsste ein Makro für sie aus einem CATProduct machen und CATParts locker. Vielen Dank Manuel Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
DasDon Mitglied Konstruktuer
Beiträge: 169 Registriert: 25.07.2011 R18 SP2. WIN
|
erstellt am: 13. Sep. 2012 09:41 <-- editieren / zitieren --> Unities abgeben: Nur für xyon126
|
DasDon Mitglied Konstruktuer
Beiträge: 169 Registriert: 25.07.2011 R18 SP2. WIN
|
erstellt am: 13. Sep. 2012 10:28 <-- editieren / zitieren --> Unities abgeben: Nur für xyon126
Moin moin, dieses makro setzt die Werte der ersten beiden USER DEFINED PROPERTIES in allen Bauteilen des geöffneten Produkts als PART NUMBER!
This macro sets the first two USER DEFINED PROPERTIES values as the PART NUMBER. Code:
MACRO_NAME = "RenameForXyon126" MACRO_VERS = "beta_V1.0"'VER: -- 'DESC: RESETS THE FIRST TWO USER DEFINED PROPERTIES VALUES OF ALL PRODUCTS AND CHILDREN IN OPEN PRODUCT 'PREP: ACTIVE DOCUMENT MUST BE OF TYPE CATPRODUCT; THE FIRST TWO USERVAIRABLES MUST BE OF TYPE STRING AND THE VALUES TO CHANGE 'LANG: CATSCRIPT 'DATE: 13/09/2012 'CREA: DasDon '------------------------------------------- '---------------------------------------- SUB CATMain() '-------------------- 'CHECK IF DOCUMENT OPENED IS CORRECT FORMAT IF CATIA.Documents.Count = 0 THEN MSGBOX "no documents are opened in CATIA!" & CHR(10) & "please open a document",16,"DOCUMENT ERROR" EXIT SUB END IF IF TYPENAME(CATIA.ActiveDocument) <> "ProductDocument" THEN MSGBOX "the active document must be of type CATProduct!" & CHR(10) & "please open correct document type",16,"DOCUMENT ERROR" EXIT SUB END IF '-------------------- CATIA.ActiveDocument.Product.ApplyWorkMode DESIGN_MODE TreeWalk CATIA.ActiveDocument.Product.ReferenceProduct '-------------------- 'macro finished END_MESSAGE END SUB '---------------------------------------- '---------------------------------------- SUB TreeWalk (oProd) DIM UserRef As Parameters IF oProd.Products.Count > 0 THEN For Each oChild In oProd.Products TreeWalk oChild.ReferenceProduct Next END IF IF oProd.UserRefProperties.Count > 0 THEN SET UserRef = oProd.UserRefProperties UserRef.Item(1).ValuateFromString (oProd.PartNumber) IF UserRef.Count > 1 THEN UserRef.Item(2).ValuateFromString (oProd.PartNumber) END IF END SUB '---------------------------------------- '---------------------------------------- SUB END_MESSAGE() MSGBOX MACRO_NAME & " " & MACRO_VERS & " finished." _ & vbLF & "Please check results" & vbLF & _ "-----------------------------------" & vbLF & _ "-----------------------------------" & vbLF & _ "macro written by:" & vbLF & _ "DasDon" , vbyes, MACRO_NAME & " " & MACRO_VERS END SUB '----------------------------------------
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
xyon126 Mitglied Ingenieur
Beiträge: 74 Registriert: 07.11.2011
|
erstellt am: 13. Sep. 2012 12:07 <-- editieren / zitieren --> Unities abgeben:
Hallo Dasdon! Das Makro ich zunächst nicht, was ich brauche ich danke Ihnen sehr, wenn Sie zu Fuß durch Barcelona haben das Abendessen bezahlt. Über die Englisch oder Deutsch, nicht Englisch sprechen, ich lese nur die Microsoft Windows, usw., Deutsch, obwohl ich nicht schreibe auch besser verteidigen mich, wie ich alle 3 Monate zwei oder drei Tage in Fulda bin. Vielen Danke Manuel Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
DasDon Mitglied Konstruktuer
Beiträge: 169 Registriert: 25.07.2011 R18 SP2. WIN
|
erstellt am: 13. Sep. 2012 12:27 <-- editieren / zitieren --> Unities abgeben: Nur für xyon126
|
xyon126 Mitglied Ingenieur
Beiträge: 74 Registriert: 07.11.2011
|
erstellt am: 13. Sep. 2012 12:34 <-- editieren / zitieren --> Unities abgeben:
|
DasDon Mitglied Konstruktuer
Beiträge: 169 Registriert: 25.07.2011 R18 SP2. WIN
|
erstellt am: 13. Sep. 2012 13:22 <-- editieren / zitieren --> Unities abgeben: Nur für xyon126
|
xyon126 Mitglied Ingenieur
Beiträge: 74 Registriert: 07.11.2011
|
erstellt am: 13. Sep. 2012 19:05 <-- editieren / zitieren --> Unities abgeben:
Hallo Dasdon! Das Makro funktioniert perfekt von einem Produkt.Um nur von einem CATPart, dass ein Teil des Codes Ich kann arbeiten? Ist es zu verstehen und zu begreifen Ihrem Makro. Vielen Dank M.f.G. Manuel Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |