Forum:CATIA V5 Programmierung
Thema:Drawing Export Multi-Document Monochrom
Möchten Sie sich registrieren?
Wer darf antworten? Registrierte Benutzer können Beiträge verfassen.
Hinweise zur Registrierung Sie müssen registriert sein, um Beiträge oder Antworten auf Beiträge schreiben zu können.
Ihr Benutzername:
Ihr Kennwort:   Kennwort vergessen?
Anhang:    Datei(en) anhängen  <?>   Anhänge verwalten  <?>
Grafik für den Beitrag:                                                
                                                       
Ihre Antwort:

Fachbegriff
URL
Email
Fett
Kursiv
Durchgestr.
Liste
*
Bild
Zitat
Code

*HTML ist AUS
*UBB-Code ist AN
Smilies Legende
Netiquette

10 20 40

Optionen Smilies in diesem Beitrag deaktivieren.
Signatur anfügen: die Sie bei den Voreinstellungen angegeben haben.

Wenn Sie bereits registriert sind, aber Ihr Kennwort vergessen haben, klicken Sie bitte hier.

Bitte drücken Sie nicht mehrfach auf "Antwort speichern".

*Ist HTML- und/oder UBB-Code aktiviert, dann können Sie HTML und/oder UBB Code in Ihrem Beitrag verwenden.

T H E M A     A N S E H E N
C.Samer

Beiträge: 70 / 0

Hallo Leute,

ich würde gerne ein Drawing mit mehreren Sheets und Detail-Sheets als PDF speichern.
Und zwar

    *alle Sheets in einem PDF
    *ohne den Detail-Sheets
    *monochrom (schwarz weiss)

Habe jetzt zwei Ansätze probiert.

    *Alles elektieren und visProperties auf 0 0 0 0 zu stellen, funktioniert aber leider nicht bei Area Fill und eingefügten Excel Tabellen
    *Mit PrintToFile drucken und vorher die Sheet.PageSetup.color = catColorMonochrome zu stellen. Funktioniert super, nur leider nicht
    Multisheet!

Jemand eine Idee wie ich PrintToFile Multisheet ohne Details bekomme?
Oder eine andere Idee? In den Druckeinstellungen von Catia kann man auf Multi-Documents -> All Sheets einstellen und
"print detail sheet" rausnehmwen.

Danke und Gruß,
Christoph

[Diese Nachricht wurde von C.Samer am 23. Okt. 2019 editiert.]

bgrittmann

Beiträge: 10899 / 18

CATIA V5R19

Servus

Schon mal probiert einzelnen PDFs zB mit Ghostscript zusammen zufassen (ohne die Detail Sheets)?

Gruß
Bernd

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

C.Samer

Beiträge: 70 / 0

Hallo Bernd,

danke soweit für deine Antwort.
Leider kenne ich mich mit Ghostscript nicht aus,
wie würde denn das funktionieren?

Muss man (jeder Client) das extra herunterladen und installieren?

Edit: Oder weißt du vielleicht wie ich die anderen Varianten zum Laufen bekommen könnte?

Gruß,
Christoph

[Diese Nachricht wurde von C.Samer am 14. Okt. 2019 editiert.]

bgrittmann

Beiträge: 10899 / 18

CATIA V5R19

Servus

Da es von GhostScript eine portable Version gibt, vermute dass du die Anwendung (zB ExecuteProcessus) direkt aufrufen kannst (siehe zB hier)

Gruß
Bernd

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

C.Samer

Beiträge: 70 / 0

Schade, hätte mir gewunschen, es gibt eine Lösung in Catia mit welcher ich
PDF, ohne Detail-Sheets, schwarz weiß, in ein File erstellen kann.

Mit Ghostscript kenn ich mich leider nicht aus und wirkt etwas mit der Kirche ums Kreuz 

Danke trotzdem! Falls jemand einmal eine Lösung findet, bitte, bitte Bescheit geben!

Danke und Gruß,
Christoph

Randle

Beiträge: 562 / 0

Win7 Pro x64/Win10
CATIA V5 R18, R19, R21, R24, R26

Moin,

muss die Zeichnung abschließend gespeichert werden?

Gruß
Randle

------------------
Wer für nichts steht, fällt für alles!

C.Samer

Beiträge: 70 / 0

Hallo Randle!

Nein, das Drawing selbst muss anschließend nicht gespeichert werden :-)

Gruß,
Christoph

Randle

Beiträge: 562 / 0

Win7 Pro x64/Win10
CATIA V5 R18, R19, R21, R24, R26

... dann könntest du die Detailblätter vor der PDF Erstellung löschen und dann die Zeichnung ohne zu speichern schließen.

Vorher solltest du allerdings alle 2D Komponenten auf den regulären Blättern zerlegen (die sind sonst weg wenn du die Detailblätter löscht).

Und noch eine Anmerkung:
Ghostscript lässt sich auch aus einem CATIA Makro (zumindest aus catvba) heraus nutzen.

Gruß
Randle

------------------
Wer für nichts steht, fällt für alles!

tobul

Beiträge: 185 / 26

Catia-V5 R18-R28
Delmia R19-R26
NX 12
Windoof 7,10

Hallo!

Mir ist bisher auch keine elegante Lösung ausschließlich in Catia bekannt.

Um die per "Druck" erzeugten einzelnen pdf zusammenzufassen ist nicht unbedingt Ghostscript nötig, das geht (einfacher) mit spezalisierten pdf-Manipulations-Tools wie z.B. pdftk.
cpdf ist auch ein super Tool, aber für kommerziellen Einsatz definitiv kostenpflichtig.

Muss nicht installiert werden, die exe kann einfach irgendwo liegen.
Ansteuerung aus VBA relativ simpel.
Und die pdf werden nicht neu gerendert, was bei Ghostscript u.U. passieren kann.

salu'
tobul

C.Samer

Beiträge: 70 / 0

Danke für all eure Antworten!

Wenn ich die Details vor dem Export lösche, dann müsste ich trotzdem noch alles auf dem Drawing befindliche schwarz-weiß bekommen. Bei VisProperties auf 0 0 0 0 sind leider Area Fill und das importierte Excel farbig geblieben (und wer weiß was sonst noch). Wenn das noch jemand lösen kann (Vor allem das Excel, welches ja quasi nur als "Bild" vorliegt, wenn man das Original-Excel nicht hat), dann würde ich das Makro so basteln 

Schade dass es scheinbar keine Möglichkeit gibt alle Blätter direkt aus Catia in ein pdf in schwarz weiß zu exportieren 

Mit Ghostscript kenne ich mich halt leider wirklich nicht aus, mit welchem Befehl ich das von außerhalb starten würde, wenn ich mir die Portable wo ablege, damit er das macht. Und ich glaube, es ist auch weniger erwünscht alle Mitarbeiter dazu zu bringen, sich noch ein Programm auf den Rechner zu ziehen 

Vielen Dank auf jeden Fall und Gruß,
Christoph

bgrittmann

Beiträge: 10899 / 18

CATIA V5R19

Servus

Hast du mal die Links geöffnet?
Bei Ghostscript sollte es wohl reichen die entsprechende exe in den Aufruf mit einbauen.
Oder bei PDFtk (Server) auch die Zeile anzupassen (vermutlich auch die exe mit Pfad ergänzen).

Gruß
Bernd

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

C.Samer

Beiträge: 70 / 0

Hallo Bernd!

Bin schlussendlich nicht um Ghostscript herum gekommen. Danke nochmal an euch alle für die Hilfe!
Für alle die vor dem gleichen Problem stehen, hier mein Code für Schwarz Weiß MultiSheet PDF.

Musste ich leider als Anhang hochladen.
Kann den Code nicht direkt posten, da ich immer folgende Meldung bekomme    :

Gruß,
Christoph

[Diese Nachricht wurde von C.Samer am 23. Okt. 2019 editiert.]

Lionel Hutz

Beiträge: 124 / 0

CATIA V5 R20

Es folgt Christophs Code:
Code:
' Const glbProject = "Schwarz Weiss PDF"
' Const glbVersion = "1.0"
' Const glbLanguage = "CATSCRIPT"
' Const glbAuthor = "Samer Christoph"
' Const glbCreationDate = "17.Oct.2019, 08:00"
' Const glbLastUpdate = "23.Oct.2019, 16:00"
' Const glbLastUpdatedBy = "Samer Christoph"

Dim objShell
Dim objCMDRun
Dim objFileSystem

Dim strComputer
Dim strProcess

strComputer = "." ' local computer
strProcess = "gswin32c.exe"

sDestinationFile = C:\PDFName

oDrawingDoc.ExportData sDestinationFile, "ps"
Set objShell = CreateObject("WScript.Shell")
objCMDRun = objShell.Run("" & Chr(34) & Chr(37) & "ProgramFiles(x86)" & Chr(37) & _
"\gs\gs9.50\bin\gswin32c.exe" & Chr(34) & " -sBATCH -dNOPAUSE -q" & _
" -sDEVICE=pdfwrite -sColorConversionStrategy=Gray -sProcessColorModel=DeviceGray" & _
" -sOutputFile=" & Chr(34) & sDestinationFile & ".pdf" & Chr(34) & " -c " & Chr(34) & _
"/setrgbcolor{0 mul 3 1 roll 0 mul 3 1 roll 0 mul 3 1 roll 0 mul add add setgray}def" & Chr(34) & _
" -f " & Chr(34) & sDestinationFile & ".ps" & Chr(34), 0, True)

Set objFileSystem = CreateObject("Scripting.FileSystemObject")
Do While isProcessRunning(strComputer, strProcess)
DoEvents
Loop
 
objFileSystem.DeleteFile ("" & sDestinationFile & ".ps")