Autor
|
Thema: Produkt als Cgr mit PartNumber und Revision speichern (1215 mal gelesen)
|
Bike Mitglied
Beiträge: 6 Registriert: 25.11.2007
|
erstellt am: 25. Nov. 2007 14:44 <-- editieren / zitieren --> Unities abgeben:
Hallo Zusammen, ich würde gerne ein Produkt als CGR speichern. Das CGR sollte mit dem Namen der Properties benannt sein. Mit der Part Number und der Revision, z.b. Part Number XXX Revision YYY. Gespeichert als XXX_YYY.cgr. Gibt es hier irgendwie Möglichkeiten dies zu verwirklichen? Gruß Bike Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
tberger Mitglied Application Manager CATIA V5 / V6
Beiträge: 1385 Registriert: 13.01.2007 WIN 7 64bit V5R21SP3HF49 3DX/V6 R2016x
|
erstellt am: 26. Nov. 2007 13:43 <-- editieren / zitieren --> Unities abgeben: Nur für Bike
Hallo Bike, mit einem kleinen Makro geht das schon. Es müsste die Part/Product-Bezeichnung abfragen (vom Active Document) und ebenso die Revision, damit einen neuen String = Sicherungsnamen bilden und mit z.B. "product.Document.ExportData "Pfad\String.cgr", "cgr" sichern. Grüße aus dem Rheinland Thomas
------------------ CATIA - eine Laune der Natur ... PS: hier noch das Script, der Pfad muss noch angepasst werden, dann geht's.
Sub CATMain() Dim MyProduct As Product Dim Definition As String Dim Revision As String Dim productDocument1 As Document Set productDocument1 = CATIA.ActiveDocument Set MyProduct = CATIA.ActiveDocument.Product Definition = MyProduct.PartNumber Revision = MyProduct.Revision productDocument1.ExportData "C:\Dokumente und Einstellungen\Eigene Dateien\"&Definition&"_"&Revision&".cgr", "cgr"
MsgBox ("CGR Created.")
End Sub [Diese Nachricht wurde von tberger am 26. Nov. 2007 editiert.] [Diese Nachricht wurde von tberger am 27. Nov. 2007 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Bike Mitglied
Beiträge: 6 Registriert: 25.11.2007
|
erstellt am: 26. Nov. 2007 22:17 <-- editieren / zitieren --> Unities abgeben:
Hallo Thomas, funktioniert. ein Problem ist aufgetaucht, in der zweiten Spalte der Revision sollte ein "_" sein. In der fünften Spalte, sollte ein ":" gelöscht werden. Catia verträgt kein Doppelpunkt. Gibt es die Möglichkeit, wenn ein Produkt mehrere Unterprodukte hat, diese automatisch als CGR zu speichern? Danke im Voraus. Gruß Bike 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: 26. Nov. 2007 22:44 <-- editieren / zitieren --> Unities abgeben: Nur für Bike
Servus Vor dem Abspeichern könntest du den Dateinamen überprüfen lasse:
Code:
Filename = Definition&"_"&Revision Korrektur(Filename) productDocument1.ExportData "C:\Dokumente und Einstellungen\Eigene Dateien\"&Filename&".cgr", "cgr" End Sub Function Korrektur(TEXT) Korrektur = Replace ( Replace ( Replace(TEXT, "\", "_"), "/", "_"), ":", "_") End Function
Gruß Bernd------------------ Warum einfach, wenn es auch kompliziert geht. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
tberger Mitglied Application Manager CATIA V5 / V6
Beiträge: 1385 Registriert: 13.01.2007 WIN 7 64bit V5R21SP3HF49 3DX/V6 R2016x
|
erstellt am: 27. Nov. 2007 08:13 <-- editieren / zitieren --> Unities abgeben: Nur für Bike
Hallo Bike, das wird dann schon etwas mehr Aufwand (Schleifen = Anzahl Product Counts etc.) und Replace der Sub-Products-Inhalte durch während der Laufzeit des Makros erzeugte cgr's. Ich hab's noch nicht ausprobiert, müsste aber gehen. Grüße aus dem Rheinland Thomas ------------------ CATIA - eine Laune der Natur ... Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Bike Mitglied
Beiträge: 6 Registriert: 25.11.2007
|
erstellt am: 27. Nov. 2007 18:24 <-- editieren / zitieren --> Unities abgeben:
|
bgrittmann Moderator Konstrukteur
Beiträge: 11780 Registriert: 30.11.2006 CATIA V5R19
|
erstellt am: 27. Nov. 2007 19:22 <-- editieren / zitieren --> Unities abgeben: Nur für Bike
Servus Sorry, das kann ja nicht gehen. Die Korrekturfunktion wurde nicht mal aufgerufen.
Code: Name = Definition&"_"&Revision Filename = Korrektur(Name)productDocument1.ExportData "C:\Dokumente und Einstellungen\Eigene Dateien\"&Filename&".cgr", "cgr" End Sub Function Korrektur(TEXT) Korrektur = Replace ( Replace ( Replace(TEXT, "\", "_"), "/", "_"), ":", "_") End Function
Gruß BerndPS: Ohne Garantie, ist mal wieder nicht getestet (copy & paste) ------------------ Warum einfach, wenn es auch kompliziert geht. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Bike Mitglied
Beiträge: 6 Registriert: 25.11.2007
|
erstellt am: 02. Dez. 2007 18:29 <-- editieren / zitieren --> Unities abgeben:
|