---

Hallo zusammen,
mache grad Zeichnungsableitung für ein paar Hundert Teile. Dabei reicht es leider nicht, die Zeichnung als CATdrawing zu sichern, sondern muß dies auch als .dwg und .pdf machen.
Also tippe ich nach dem Erstellen der Zeichnung auf den Button <Speichern>, vergeben im erscheinenden Sichern-unter-Fenster den Dateinamen und drücke dann abschließend auf den neuen Button <Speichern>. Es wird die CATdrawing erstellt.

Anschließend kommt diese immer gleiche Abfolge an Buttons und Tasten:
- Button <Speichern unter> (Sichern-unter-Fenster geht auf, Dateiname wird von vorherigen Speichervorgang übernommen)
- Taste <Tab> (um auf das pulldown-menu des Formats zu wechseln
- 2x Taste <d> (dadurch wechselst das Format erst auf dxf, dann dwg)
- Button <Speichern> (der vom Sichern-unter-Fenster) --> Fenster erlischt
- Button <Speichern unter> (Sichern-unter-Fenster geht auf, Dateiname wird von vorherigen Speichervorgang übernommen)
- Taste <Tab> (um auf das pulldown-menu des Formats zu wechseln
- 2x Taste <p> (dadurch wechselst das Format erst auf ps, dann pdf)
- Button <Speichern> (der vom Sichern-unter-Fenster) --> Fenster erlischt
Da ich ja keine Eingabe oder dgl. machen muß, wollte ich ein Makro aufzeichnen und dies als Button in einer Symbolleiste ablegen.
Aufzeichnen und ablegen funktioniert.
AABBER:
1. Das Makro wird so geschrieben, daß Dateipfad und Dateiname von der Datei her festgelegt werden, unter der ich das Ganze aufzeichne. Das bräuchte ich "allgemeingültig" oder ich bräuchte ein Makro, bei dem einfach nur die Tasten-/Buttonanschläge hinterlegt sind ohne daß das Makro eigentlich weiß was es damit tut.
2. Das Makro steht mir nur für die Zeichnung zur Verfügung, unter der ich es aufgenommen habe. Sobald die Zeichnung weg ist und ich eine neue erstelle, ist auch das Makro weg. Wie lege ich das Makro als dauerhaften Befehl ab?

Das Makro sieht so aus:

Language="VBSCRIPT"

Sub CATMain()

Set drawingDocument1 = CATIA.ActiveDocument

drawingDocument1.ExportData "C:\Users\*****\Desktop\P201609\Konstruktion\P201609-138.dwg", "dwg"

Set drawingDocument1 = CATIA.ActiveDocument

drawingDocument1.ExportData "C:\Users\*****\Desktop\P201609\Konstruktion\P201609-138.pdf", "pdf"

End Sub

Leider habe ich keine Ahnung vom Programmieren. Ich gehe aber davon aus, daß ich lediglich den Dateipfad und Namen auf was Allgemeines umschreiben und das Makro zur allg. Verwendung ablegen muß.

Für Hilfe dabei wäre ich sehr dankbar!

Cliff

------------------
Frei nach Pippi Langstrumpf: Widdewiddewitt - ich mach mir die Welt, wie sie mir gefällt!

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

---

Servus Cliff

Hast du schon mal auf Catia.cad.de geschaut?
Dort findest du ein Makro dass alle Zeichnungen aus einem Verzeichnis als PDF abspeichert. Diese Makro kannst du mit wenigen Änderungen auch für die DWG-Ausgabe verwenden.

Gruß
Bernd

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

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

---

FehlermeldungCatia-Makro.png

Hallo Bernd,
vielen Dank erstmal!
Der Ansatz ist zwar gut, leider bringtŽs bei mir eine Fehlermeldung, siehe Bild.

Das mit dem Ändern auf DWG denke ich krieg ich hin, soweit glaube ich reichen meine nicht vorhandenen Programmierkenntnisse.

Cliff

------------------
Frei nach Pippi Langstrumpf: Widdewiddewitt - ich mach mir die Welt, wie sie mir gefällt!

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

---

Servus
Speicher das Makro mal als CATScript und nicht als CATvbs.

Gruß
Bernd

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

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

---

DateiendungCATScript.png

Hallo Bernd,

Treffer und versenkt!
Schiffsuntergang mit leichtem Umweltschaden, siehe Bild.
Jeweils bei der PDF als auch der DWG bastelt mir das Ding noch ein ".CATDrawing" dazwischen. Was muß ich machen, daß das nicht dabeisteht?

Gruß,
Cliff

------------------
Frei nach Pippi Langstrumpf: Widdewiddewitt - ich mach mir die Welt, wie sie mir gefällt!

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

---

Servus

Du könntest zB mit Left und Len (siehe zB hier) nur die Zeichen bis zum .CATDrawing extrahieren.

Gruß
Bernd

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

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

---

FUNZT!

Da meine Dateinamen zwei verschiedene Längen haben, habe ich von der ausgegebenen Anzahl an Zeichen immer 11 abgezogen, um das .CATDrawing wegzubekommen. Somit wars mir wurscht, ob ich grad eine Datei mit kurzem oder langem Namen hab.

Vielen Dank, Bernd! Ideale Hilfe! Der virtuelle Kasten Bier ist unterwegs!

Gruß,
Cliff

------------------
Frei nach Pippi Langstrumpf: Widdewiddewitt - ich mach mir die Welt, wie sie mir gefällt!

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

---

*hicks*

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

---

SpeichernunterDWG.png SpeichernunterPDF.png

Hallo,

in diesem Thread bin ich noch was schuldig:
anbei die Makros die ich geschrieben habe. Für ein paar von euch sicher Kleinkram, andere könnens vllt brauchen.
Hab die Makros geschrieben, mit einem Befehlssymbol hinterlegt und in einem meiner Werkzeugkästen beim drafting abgelegt. Es ermöglich mir, eine erstellte Zeichnung mit nur einem Mausklick als gleichnamige DWG oder PDF abzuspeichern.
Wichtig: Vorher als "originale" CATDrawing sichern und Name und Dateipfad festlegen. Anschließend werden beim Anklicken eines der Befehle der Dateiname und -pfad übernommen und die Zeichnung als entsprechendes Dateiformat abgelegt. Betreib ich nun schon eine ganze Zeit lang ohne Probleme.
WerŽs brauchen kann: Viel Spaß damit!

Und nochmals vielen Dank an die Helfer!!!
Gruß,
Cliff

------------------
Frei nach Pippi Langstrumpf: Widdewiddewitt - ich mach mir die Welt, wie sie mir gefällt!

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