Hot News aus dem CAD.de-Newsletter:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  CATIA V5 Programmierung
  Drawing Export Multi-Document Monochrom

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:   Drawing Export Multi-Document Monochrom (471 mal gelesen)
C.Samer
Mitglied
CAD Administrator


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

Beiträge: 70
Registriert: 03.05.2017

erstellt am: 14. Okt. 2019 15: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

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.]

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: 10840
Registriert: 30.11.2006

CATIA V5R19

erstellt am: 14. Okt. 2019 15:51    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 C.Samer 10 Unities + Antwort hilfreich

Servus

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

Gruß
Bernd

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

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

C.Samer
Mitglied
CAD Administrator


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

Beiträge: 70
Registriert: 03.05.2017

erstellt am: 14. Okt. 2019 16:04    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,

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.]

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: 10840
Registriert: 30.11.2006

CATIA V5R19

erstellt am: 14. Okt. 2019 19: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 C.Samer 10 Unities + Antwort hilfreich

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.

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

C.Samer
Mitglied
CAD Administrator


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

Beiträge: 70
Registriert: 03.05.2017

erstellt am: 15. Okt. 2019 09:23    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

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

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

Randle
Mitglied
CAD/PLM Consultant


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

Beiträge: 551
Registriert: 12.04.2003

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

erstellt am: 15. Okt. 2019 10:46    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 C.Samer 10 Unities + Antwort hilfreich

Moin,

muss die Zeichnung abschließend gespeichert werden?

Gruß
Randle

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

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

C.Samer
Mitglied
CAD Administrator


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

Beiträge: 70
Registriert: 03.05.2017

erstellt am: 15. Okt. 2019 10:55    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 Randle!

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

Gruß,
Christoph

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

Randle
Mitglied
CAD/PLM Consultant


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

Beiträge: 551
Registriert: 12.04.2003

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

erstellt am: 15. Okt. 2019 11:05    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 C.Samer 10 Unities + Antwort hilfreich

... 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!

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

tobul
Mitglied
Physiker


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

Beiträge: 185
Registriert: 06.05.2003

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

erstellt am: 15. Okt. 2019 11:21    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 C.Samer 10 Unities + Antwort hilfreich

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

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

C.Samer
Mitglied
CAD Administrator


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

Beiträge: 70
Registriert: 03.05.2017

erstellt am: 18. Okt. 2019 09:20    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

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

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: 10840
Registriert: 30.11.2006

CATIA V5R19

erstellt am: 18. Okt. 2019 16:49    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 C.Samer 10 Unities + Antwort hilfreich

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.

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

C.Samer
Mitglied
CAD Administrator


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

Beiträge: 70
Registriert: 03.05.2017

erstellt am: 23. Okt. 2019 16:02    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


SchwarzWeissPDF.zip

 
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.]

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

Lionel Hutz
Mitglied



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

Beiträge: 112
Registriert: 26.03.2014

CATIA V5 R20

erstellt am: 24. Okt. 2019 14:54    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 C.Samer 10 Unities + Antwort hilfreich

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")


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)2019 CAD.de | Impressum | Datenschutz