---

Ich hätte gerne ein Makro das mir durch einen Klick das aktuelle Drawing speichert und zugleich noch von diesem ein PDF erstellt. Also 2 Dateien mit einem Klick erstellen.

Ich habe Probleme den aktuellen Dateinamen aus dem geöffneten Drawing herauszulesen. Diesen benötige ich zum speichern!!

Irgendwie bekomme ich es nicht hin, aber vielleicht kann mir ja hier einer kurz sagen wir geht bzw mir so ein Makro bereitstellen. Wäre super.

Danke Oli

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

---

Hallo Oli,

mit diesem Makro sollte es möglich sein, du mußt allerdings einen PDF Printer als Drucker installieren und als Standarddrucker festlegen. Da Catia so viel ich weiß keine Pdf Files erstellen kann.

Dim filesystem As Object
Set filesystem = CATIA.FileSystem

Dim DrwDocument As DrawingDocument
Set DrwDocument = CATIA.ActiveDocument

Dim drawingDokument As DrawingDocument
Set drawingDokument = Catia.ActiveDocument

Dim DrwSheets As DrawingSheets
Set DrwSheets = DrwDocument.Sheets

Dim DrwSheet As DrawingSheet
Set DrwSheet = DrwSheets.ActiveSheet

Dim DrwViews As DrawingViews
Set DrwViews = DrwSheet.Views

Dim DrwView As DrawingView
Set DrwView = DrwSheet.Views.ActiveView

Sub CATMain()

Dim DocFullName As CATBSTR
Dim Box

DocFullName = drawingDokument.FullName

DocPath = drawingDokument.Path

Box = MsgBox ("Ich speichere das Dokument " & Chr (34) &  DocFullName & Chr (34) & ".",64)
Catia.ActiveDocument.Save

DrwSheet.PrintOut

End Sub

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

---

Zitat:

---

Original erstellt von summertime:
Hallo Oli,

mit diesem Makro sollte es möglich sein, du mußt allerdings einen PDF Printer als Drucker installieren und als Standarddrucker festlegen. Da Catia so viel ich weiß keine Pdf Files erstellen kann.

Dim filesystem As Object
Set filesystem = CATIA.FileSystem

Dim DrwDocument As DrawingDocument
Set DrwDocument = CATIA.ActiveDocument

Dim drawingDokument As DrawingDocument
Set drawingDokument = Catia.ActiveDocument

Dim DrwSheets As DrawingSheets
Set DrwSheets = DrwDocument.Sheets

Dim DrwSheet As DrawingSheet
Set DrwSheet = DrwSheets.ActiveSheet

Dim DrwViews As DrawingViews
Set DrwViews = DrwSheet.Views

Dim DrwView As DrawingView
Set DrwView = DrwSheet.Views.ActiveView

Sub CATMain()

Dim DocFullName As CATBSTR
Dim Box

DocFullName = drawingDokument.FullName

DocPath = drawingDokument.Path

Box = MsgBox ("Ich speichere das Dokument " & Chr (34) &  DocFullName & Chr (34) & ".",64)
Catia.ActiveDocument.Save

DrwSheet.PrintOut

End Sub

---

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Ich hab hier nur Unix v5 und somit wird's mit Makros schwierig!!! Und mit nem Drucker installieren noch viel schwieriger!!! Aber man kann mit der Exportfunktion PDFs erstellen.

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

---

Hallo zusammen,
auf der Hilfeseite gibt es doch ein Makro, welches Zeichnungen (auch ganze Verzeichnisse) in PDF umwandelt.
Adresse: http://catia.cad.de/v5/download.htm
Das makro heißt: DRWTOPDF.CATscript

Vielleicht hilft das ja weiter.

Schöne Grüße

Jens Hansen

------------------
Inoffizielle CATIA-Hilfeseite
http:\\catia.cad.de

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

---

das Makro funktioniert auf Unix nicht!!!

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

---

So nochmals ich, ich habe jetzt aus meinem und aus dem anderen:
Adresse: http://catia.cad.de/v5/download.htm
Das makro heißt: DRWTOPDF.CATscript

Ein Makro gemacht, man braucht jetzt keinen Drucker mehr. Hab allerdings keine Ahnung ob es unter Unix funktioniert, habe als Testumgebung nur CatiaV5 unter Windows zur Verfügung.

Mfg Thomas

Dim filesystem As Object
Set filesystem = CATIA.FileSystem

Dim drawingDokument As DrawingDocument
Set drawingDokument = Catia.ActiveDocument

Dim DrwSheets As DrawingSheets
Set DrwSheets = DrwDocument.Sheets

Dim DrwSheet As DrawingSheet
Set DrwSheet = DrwSheets.ActiveSheet

Dim DrwViews As DrawingViews
Set DrwViews = DrwSheet.Views

Dim DrwView As DrawingView
Set DrwView = DrwSheet.Views.ActiveView

Sub CATMain()

Dim DocFullName As CATBSTR
Dim Box

DocFullName = drawingDokument.FullName

DocPath = drawingDokument.Path

'Box = MsgBox ("Ich speichere das Dokument " & Chr (34) &  DocFullName & Chr (34) & ".",64)
Catia.ActiveDocument.Save

PFAD =DocFullName & ".pdf"
DrawingDokument.ExportData PFAD, "pdf"

End Sub

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

---

Ich werd's probieren. Kannst mir mal ne Email schreiben mit diesem Makro und Kommentare zu jeder Zeile. Wäre super...

Hast mir auch nen Tipp für ein CATIA Makro Buch?

Danke.

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

---

Hallo sumertime.

Die Frage ist damit zwar tiptop beantwortet, aber ich habe da noch eine andere Frage zum PDF-Export. Gibt es eine Möglichkeit direkt aus CATIA ein mehrseitiges PDF zu erstellen?

Bisher merge ich das dann in ghostscript hinterher wieder zusammen. Geht es auch eleganter?

Christian

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

---

es geht nicht!

Zitat:

---

Original erstellt von uhde:
Hallo sumertime.

Die Frage ist damit zwar tiptop beantwortet, aber ich habe da noch eine andere Frage zum PDF-Export. Gibt es eine Möglichkeit direkt aus CATIA ein mehrseitiges PDF zu erstellen?

Bisher merge ich das dann in ghostscript hinterher wieder zusammen. Geht es auch eleganter?

Christian

---

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

---

natürlich geht das!
Innerhalb der R13/R14 noch mit einem Bug versehen (der aber nur sehr selten auftritt) - und seit der R15 sogar Bug-free!

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

---

Aus http://catia.cad.de/v5/download/CATIA_V5_Environments.pdf :

SAVE_AS_ONE_PDF=1
!mehrere Drawing Blätter werden in ein PDF gesichert.

Axel

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

---

oder etwas einfacher über "tools-options"

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

---

Hallo Zusammen,

da ich kein Doppelpost schreiben will, aber ich denke dass es eher in Programmierung passt. Setz ich den Link mal hier rein, ich hoffe das ist in Ordnung.

http://ww3.cad.de/foren/ubb/Forum133/HTML/008694.shtml

Schönes wochenende

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