---

Hallo
durch mehrfache Recherche bin ich darauf hingeiessen "ghostscript"
zum Erzeugen von PDF'saus CATDrawings zu verwende.
Beim Aufruf der gibt es das Problem, das er den CATOUT nicht findet bzw.
das die Syntax nicht passt!
Wer kann helfen?
Anbei der Auszug aus meinem Script -
CATOUT = "C:\Temp\HUGO.pdf"
A = CATIA.SystemService.ExecuteBackgroundProcessus("\\...\Tools\gs\gs9.52\bin\gswin64.exe -o PDFFILE.pdf -sDEVICE=pdfwrite -dCompatibilityLevel=1.6 " & CATOUT)

------------------
mfg
Erich

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

---

Servus Erich

Was soll den CUTOUT sein?
Für welchen Parameter des Funktionsaufrufen von Ghostscript soll den der String von CUTOUT verwendet werden?

Gruß
Bernd

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

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

---

Hallo Bernd
CATOUT steht am Ende und soll den Ort und den Dateinamen beinhalten.
Also auf "C:\temp\hugo.pdf"
Aufgelöst wird es in (C:\\temp\\HUGO.pdf) im Ghostscript-Fenster.

------------------
mfg
Erich

[Diese Nachricht wurde von Erich am 21. Jun. 2024 editiert.]

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

---

Servus

Wird der Pfad/Dateinamen nicht über den Parameter -sOutputFile bzw -o definiert?

Gruß
Bernd

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

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

---

Hallo Bernd
das dachte ich auch aber die Syntax passte offentsichtlich nicht.
Hast Du gerade ein Beispiel dazu?
Ich hatte folgendes verwendet -
sOutputFile =  "C:\temp\test.pdf"
A = CATIA.SystemService.ExecuteBackgroundProcessus("\\...\Tools\gs\gs9.52\bin\gswin64.exe -o PDFFILE.pdf -sDEVICE=pdfwrite -dCompatibilityLevel=1.6 -sOutputFile")

------------------
mfg
Erich

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

---

Servus Erich

Was soll den die Zeile machen (was ist Input, was ist Output)?
Ich befürchte du verhaspelst dich etwas (ggf nochmal ein Beispiel anschauen)
ggf erstmal in der Kommando-Zeile den Aufruf von Ghostscript ausprobieren

Gruß
Bernd

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

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

---

Hallo Bernd
so sieht der Rest des Scriptes aus falls das hilft, wo ich hin möchte -

Sub CATMain()
Dim oDrawingDoc As Document
Set oDrawingDoc = CATIA.ActiveDocument

sOutputFile =  "C:\temp\test.pdf"
A = CATIA.SystemService.ExecuteBackgroundProcessus("\\...\Tools\gs\gs9.52\bin\gswin64.exe -o PDFFILE.pdf -sDEVICE=pdfwrite -dCompatibilityLevel=1.6 -sOutputFile")

End Sub

------------------
mfg
Erich

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

---

Servus Erich

Und was soll das Makro bzw Ghostscript machen?
Hast du eine pdf- oder ps-Datei die mit Ghostscript konvertiert/verändert werden soll?

Gruß
Bernd

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

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

---

Hallo Bernd
das aktive CATDrawing soll komplett als PDF gespeichert werden, mit der zusätzlichen
Option monochrome, die fehlt noch, denke ich.

------------------
mfg
Erich

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

---

Servus

Dann musst du erst die Zeichnung exportieren und dann mit GS in ein pdf konvertieren
(siehe zB hier)

Gruß
Bernd

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

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

---

Hallo Zusammen
anbei meine Lösung für GHOSTSCRIPT.
...

'DUMMY.ps erzeugen
oDraw.ExportData "C:\temp\DUMMY", "ps"
'Ghostscript für PDF-Erzeugung
Set objShell = CreateObject("WScript.Shell")
objCMDRun = objShell.Run("...\gswin64.exe -o C:\temp\DUMMY.pdf -sColorConversionStrategy=Gray -sDEVICE=pdfwrite -dCompatibilityLevel=1.6 " & "C:\temp\DUMMY.ps")

'Warten bis PDF geschrieben
MyWait 15  '15 Sekunden warten
'
'Kopieren der PDF-Datei, loeschen in C:\temp optional.
CATIA.FileSystem.CopyFile "C:\temp\DUMMY.pdf", DocPath & Left(DocName, Len(DocName)-11) & "_" & Revision & ".pdf", true
...

Sub MyWait(SecToWait)
'Jetzige Zeit merken
MyStartTime = Timer
Do
'Nochmal Zeit merken
MyStopTime = Timer
'Bis die gewünschte Wartezeit erreicht ist
Loop Until MyStopTime - MyStartTime > SecToWait
End Sub

Ergebnis ist ein schwarz/weisses PDF.
Achtung die Weiterverarbeitung, wie KOPIEREN in ein anderes Verzeichnis findet asynchron statt. D.h. hier muß auf das Schreiben des PDF gewartet werden, bis kopiert werden kann.
Achtung der Eintrag -o C:\temp\DUMMY.pdf kann nicht parametrisert werden.(Oder ich hab nichts gefunden)
Hier beim Kopieren in ein weiteres Verzeichnis umbenennen.

------------------
mfg
Erich

[Diese Nachricht wurde von Erich am 04. Jul. 2024 editiert.]

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

---

Servus Erich

Kleiner Hinweis:
Wenn du GhostScript über SystemService.ExecuteProcessus startest, wartet dein Script bis der Prozess abgeschlossen ist (sollte objShell.Run auch irgendwie gehen (siehe hier))
Wenn du den String für den GhostScript-Aufruf aus Strings zusammensetzt, sollte auch der der Ausgabepfad parametrisiert werden können.

Gruß
Bernd

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

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

---

Hallo Bernd,
vielen Dank für Deinen Hinweis. Aber die Seite lässt sich nicht aufrufen. Könntest Du diesen Link nochmal erneuern?
Zum Thema String-Aufruf zusammenbauen - ich hab mich ziemlich bemüht und das Ergebnis letztlich so gestaltet.
Ich würde mich über Deinen Vorschlag freuen wenn Du den String in Deiner Weise zusammensetzt und in hier vorstellst.

------------------
mfg
Erich

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

---

Ich hab es editiert

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

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