---

Hallo Profis,
als User stehe ich vor dem Problem alle Zeichnungen
eines Verzeichnisses in PDF Dateien umwandeln zu müssen.
Ich hoffe aber, daß schon mal jemand zu einer ähnlichen Arbeit verdammt wurde und es mit einem Makro erledigt hat.

DANKE

Christian

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

---

DRWTOPDF.CATScript.txt

Hallo Christian

Ich habe dir ein Beispielscript im Anhang hinterlegt,
es funktioniert mit geringen Anpassungen auch
bei anderen Formaten.

Gruß Michael

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

---

Hallo Michael,
Das Script funktioniert SUPER
Vielen Dank!!!
Wenn Du ein update schreibst bei dem alle Seiten rausgelassen werden,
währe ich froh um eine Kopie.
Aber das Skript erschlägt schon mal 95%

Christian

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

---

Hallo Christian und Michael,

habe bei uns das Problem, daß einige Drawings nicht das Blatt.1 beinhalten und dann meckert das Script. Habt Ihr hier eine Lösung gefunden wie ich die Zeile:

Set drawingSheet1 = drawingSheets1.Item("Blatt .1")

modifizieren kann

Grüße und schonmal vielen Dank    Norbert

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

---

@Michael

Ich bitte auch Script!

Es ist nicht mehr auf dem Server, wäre ganz nett wenn ich es auch habe könnte!

lg
Bruno

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

---

Hallo Bruno,

das Script ist im Downloadbereich von CAD.DE .
http://catia.cad.de/v5/download.htm

Grüße Dieter

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

---

Noch ein kleiner genereller Hinweis:

die pdf Dateien direkt aus V5 sind von der Grösse her eine Katastrophe, d.h mit anderen Tools werden die Dateien um etwa den Faktor 10 kleiner.

Axel

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

---

Hallo Axel,
welche Tools meinst Du? Ich habe auch das Problem, dass die Standard-PDF-Dateien einfach zu groß sind, diese vernünftig zu händeln.
Schöne Grüße
Thomas

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

---

Hallo Thomas

wir Plotten teilweise über einen Plotserver (Plossys), eine andere Lösung ist dann halt der Acroba oder andere pdf Drucktools. Du musst dann halt eine pdf-Druckerqueue einrichten und über diese deine pdf's erzeugen.

Axel

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

---

Hallo,
ich habe die betreffenden Zeilen einfach auskommentiert und dann
als ps gespeichert -> dann acrobat distiller mit der hohen Kompression drüber und schon sind es richtig gute PDF's
wenn man dann auch noch in den Umgebungsvariablen den Wert
SAVE_AS_ONE_PDF erzeugt und auf 1 setzt nimmt es alle Seiten mit.
Leider ist die Größe der Seiten immer gleich der ersten Seite...
Dafür ist mir noch kein Workaround eingefallen.
Würde mich freuen wenn Ihr da was hättet.

Christian

Language="VBSCRIPT"

'CATDRAWING nach PDF konvertieren
'--------------------------------------------------------------------------------
' Script um .CATDRAWING Dateien nach .PDF zu konvertieren
'
' Michael Rösch  /  roesch-m@kasto.de
'--------------------------------------------------------------------------------

Sub CATMain()

folderinput = InputBox ("Bitte den Ursprungsordner eingeben","Eingabe","C:\EINGABE\",500,1000)
folderoutput = InputBox ("Bitte das Zielordner eingeben","Eingabe","C:\AUSGABE\",500,1000)

Dim fs, f, f1, fc, s
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(folderinput)
Set fc = f.Files

For Each f1 in fc

Dim documents1 As Documents
Set documents1 = CATIA.Documents
Dim document1 As Document

PFADEINGABE =  folderinput & f1.name
Set document1 = documents1.Open(PFADEINGABE)

Dim drawingDocument1 As Document
Set drawingDocument1 = CATIA.ActiveDocument

' drawingDocument1.Standard = 1

' Dim drawingSheets1 As DrawingSheets
' Set drawingSheets1 = drawingDocument1.Sheets

' Dim drawingSheet1 As DrawingSheet
' Set drawingSheet1 = drawingSheets1.Item("Blatt .1")

' drawingSheet1.Activate

' Set drawingDocument1 = CATIA.ActiveDocument

PFADAUSGABE = folderoutput & f1.name & ".ps"
drawingDocument1.ExportData PFADAUSGABE, "ps"

Dim specsAndGeomWindow1 As Window
Set specsAndGeomWindow1 = CATIA.ActiveWindow

specsAndGeomWindow1.Close

Set drawingDocument1 = CATIA.ActiveDocument

drawingDocument1.Close

s = s & f1.name
s = s & vbCrLf

Next

MsgBox "fertig !" & vbCrLf & s

End Sub

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

---

Hallo nochmal,
das mit dem PS haut nicht hin,
da wieder nur die erste Seite gespeichert wird.
ABER man kann es als PDF lassen und dann im
Acrobat -> Datei -> Stapelverarbeitung ->
schnelle Web Anzeige
drüberlaufen lassen.
Dateigröße ca 25%

Christian

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

---

Habe inzwischen noch einen weiteren Ansatzpunkt, der funktionieren müsste aber noch in keinem vbs realisiert ist (Einzelschritte habe ich manuell versucht und da gehts   ):

Zum Mergen und Optimieren ghostscript verwenden. Ghostscript ist als Batchcommando aufrufbar, braucht keine grosse Installation und ist Freeware. Durch die Parameter kann man die Qualität des pdfs sehr gut beeinflussen. Habe ein Catia pdf über ghostscript in ein pdf "konvertiert" und die Grösse ist (mit den Standardparametern) auf 1/3 "geschrumpft". Darüber lassen sich auch mehrere pdfs in ein pdf "konvertieren". Nachdem bei "Speichern unter" für jedes Blatt ein separates File mit der richtigen Grösse generiert wird, müsste man das Script jetzt so anpassen, dass alle Blätter als Input genommen werden und ein Outputfile erzeugt wird   . (Dazu hatte ich noch nicht die Zeit zum Probieren   ).

Axel 

[Diese Nachricht wurde von Axel.Strasser am 19. Aug. 2004 editiert.]

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

---

Hallo zusammen

wie kann ich eigentlich nur das Blatt 1 speichern? Bei mir speichert immer alle Blätter (auch Detail-Blätter).

------------------
Gruss BADU

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

---

Ich hänge das hier mal ran, falls es jemand in der Suche findet:

Hier http://ww3.cad.de/foren/ubb/Forum141/HTML/000450.shtml  habe ich mehrere Scripte um CATDrawings im Batch nach PDF, DWG, TIF und DXF auszugeben und zwar über mehrere Verzeichnisebenen hinweg.

Maximilianus

------------------
Maximilianus
Dipl.-Ing. (Wi-Ing ET)
PLM-Consultant

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

---

Zitat:

---

Original erstellt von Maximilianus:
Hier http://ww3.cad.de/foren/ubb/Forum141/HTML/000450.shtml  habe ich mehrere Scripte um CATDrawings im Batch nach PDF, DWG, TIF und DXF auszugeben und zwar über mehrere Verzeichnisebenen hinweg.

---

Das aktuelle Script-Paket liegt hier zum Download: http://ww3.cad.de/foren/ubb/uploads/Maximilianus/Scripts.zip

Maximilianus

------------------
Maximilianus
Dipl.-Ing. (Wi-Ing ET)
PLM-Consultant

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

---

Servus ich habe auch gerade so ein speicher Problem.
Ich habe das unten stehende Makro welches die Zeichnungsblätter prüft
ob es ein Detailsheet ist oder nicht. Wenn es keins ist soll dieses
in einem bestimmten Format gespeichert werden (alle Blätter einzeln).
Merkwürdig ist bloß (und ich komm nicht drauf warum?!):

Speicher ich in einem Bildformat (z.B. tif) so arbeitet das Makro
exakt so wie ich das will. Alle Blätter welche kein Detailsheet sind
werden gespeichert und sobald die Zeichnung abgearbeitet ist beendet
das Makro.

Will ich nun als pdf oder dwg speichern (dies Formate benötigen wir)
so speichert das Makro alle Blätter egal ob Detailsheet oder nicht
und darüberhinaus befindet es sich dann in einer Dauerschleife und
Catia muss "erschlagen" werdem damit das aufhört?!

Weiß jemand warum oO?

------------------------------------------------------

Sub CATMain()
  Set oDoc = CATIA.ActiveDocument
  Set oSheets = oDoc.Sheets

      DocName = oDoc.Name
      DocPath = Inputbox("Bitte hier das gewünschte Verzeichnis eintragen!","Speicherpfad","")

      For i = 1 To oSheets.Count
        Set ActiveSheet = CATIA.ActiveDocument.Sheets.Item(i)
        SheetName = ActiveSheet.Name
      ActiveSheet.Activate

        If (ActiveSheet.IsDetail = False) Then

        DWGPath = DocPath & "\" & Left(DocName, Len(DocName) - 11) & "_" & SheetName &".pdf"
        CATIA.ActiveDocument.ExportData DWGPath, "pdf"

      End If
  Next
End Sub

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

---

Hallo,

In Tools, Optionen, Kompatibilität, Grafikformate ist vermutlich der Schalter "Dokument mit mehreren Blättern in einer einzelnen Vektordatei sichern". Dies führt zur Speicherung des kompletten Dokumentes.

Gruß,
Michael

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

---

Nein daran liegt es nicht. Der Schalter ist nicht aktiviert.

Ich will ja auch das die Blätter einzeln gespeichert werden aber ohne die
Detailsheets eben. Und das Makro funktioniert wunderbar wenn man z.B. als tif
speichert. Bei pdf und dwg werden jedoch alle Blätter gespeichert und das in
einer Dauerschleife und man muss Catia beenden damit das aufhört.

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

---

Servus
Schau mal auch hier.

Gruß
Bernd

PS: Bitte keine Doppelposts.

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

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

---

Hallo!

Catia verhält sich bei der Erzeugung von Sekundär-Formaten stark unterschiedlich, wie schon öfters hier diskutiert.
Siehe z.B.:
http://ww3.cad.de/foren/ubb/Forum137/HTML/004944.shtml#000002

Um wirklich pdf von einzelnen Blättern zu erzeugen, wäre als eine Möglichkeit alternativ zum SaveAs der Weg über "Drucken" in einen "PDF-Drucker" möglich (wie in dieser Dikussion auch schon vorgeschlagen; ist imho aber etwas aufwändiger).

salu'
tobul

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