Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  CATIA V5 Programmierung
  Produkt als Cgr mit PartNumber und Revision speichern

Antwort erstellen  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen nächster neuer Beitrag | nächster älterer Beitrag
Autor Thema:  Produkt als Cgr mit PartNumber und Revision speichern (1215 mal gelesen)
Bike
Mitglied


Sehen Sie sich das Profil von Bike an!   Senden Sie eine Private Message an Bike  Schreiben Sie einen Gästebucheintrag für Bike

Beiträge: 6
Registriert: 25.11.2007

erstellt am: 25. Nov. 2007 14:44    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

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


Sehen Sie sich das Profil von tberger an!   Senden Sie eine Private Message an tberger  Schreiben Sie einen Gästebucheintrag für tberger

Beiträge: 1385
Registriert: 13.01.2007

WIN 7 64bit
V5R21SP3HF49
3DX/V6 R2016x

erstellt am: 26. Nov. 2007 13:43    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Bike 10 Unities + Antwort hilfreich

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


Sehen Sie sich das Profil von Bike an!   Senden Sie eine Private Message an Bike  Schreiben Sie einen Gästebucheintrag für Bike

Beiträge: 6
Registriert: 25.11.2007

erstellt am: 26. Nov. 2007 22:17    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

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


Sehen Sie sich das Profil von bgrittmann an!   Senden Sie eine Private Message an bgrittmann  Schreiben Sie einen Gästebucheintrag für bgrittmann

Beiträge: 11780
Registriert: 30.11.2006

CATIA V5R19

erstellt am: 26. Nov. 2007 22:44    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Bike 10 Unities + Antwort hilfreich

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


Sehen Sie sich das Profil von tberger an!   Senden Sie eine Private Message an tberger  Schreiben Sie einen Gästebucheintrag für tberger

Beiträge: 1385
Registriert: 13.01.2007

WIN 7 64bit
V5R21SP3HF49
3DX/V6 R2016x

erstellt am: 27. Nov. 2007 08:13    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Bike 10 Unities + Antwort hilfreich

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


Sehen Sie sich das Profil von Bike an!   Senden Sie eine Private Message an Bike  Schreiben Sie einen Gästebucheintrag für Bike

Beiträge: 6
Registriert: 25.11.2007

erstellt am: 27. Nov. 2007 18:24    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Hallo Bernd,

leider funktioniert dein Vorschlag nicht.
Es wird kein CGR gespeichert, da der Abbruch durch den ":" passiert.

Was muss noch geändert werden?

Gruß
Bike

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

bgrittmann
Moderator
Konstrukteur


Sehen Sie sich das Profil von bgrittmann an!   Senden Sie eine Private Message an bgrittmann  Schreiben Sie einen Gästebucheintrag für bgrittmann

Beiträge: 11780
Registriert: 30.11.2006

CATIA V5R19

erstellt am: 27. Nov. 2007 19:22    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Bike 10 Unities + Antwort hilfreich

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ß
Bernd

PS: 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


Sehen Sie sich das Profil von Bike an!   Senden Sie eine Private Message an Bike  Schreiben Sie einen Gästebucheintrag für Bike

Beiträge: 6
Registriert: 25.11.2007

erstellt am: 02. Dez. 2007 18:29    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Hallo Bernd,

Super, Funktioniert einwandfrei.

Danke

Gruß
Bike

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

Anzeige.:

Anzeige: (Infos zum Werbeplatz >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag
Antwort erstellen


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!

Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2023 CAD.de | Impressum | Datenschutz