---

Man kann ja z.B. Zeichnungen als PDF rauschreiben, bietet zumindest das Menü an, aber irgend klappt das nicht. Muss man dafür den Acrobat installiert haben oder kommt da von V5 ne ganz eigene Engine und wir müssen da nur noch was konfigurieren?

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

---

1) Möglichkeit
Zeichnung aufmachen
Speichern unter / pdf auswählen

2) Möglichkeit:
einen pdf V5 Drucker definieren
drucken

Axel

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

---

Zitat:

---

Original erstellt von unglaublicher:
Man kann ja z.B. Zeichnungen als PDF rauschreiben, bietet zumindest das Menü an, aber irgend klappt das nicht. Muss man dafür den Acrobat installiert haben oder kommt da von V5 ne ganz eigene Engine und wir müssen da nur noch was konfigurieren?

---

Mit folgendem CATSCript kannst Du alle CATDrawings, die in einem Verzeichnis und dessen Unterverzeichnissen liegen, in PDFs rausschreiben:

-------------------------------------------------------------
Language="VBSCRIPT"

'--------------------------------------------------------------------------------
' Script um CATDrawings nach PDF zu konvertieren.
' Script written by Dipl.-Ing. Maximilianus (CAD.DE)
'
' !!! Die Verwendung dieses Skripts erfolgt auf eigene Gefahr! !!!

' Es wird keine Garantie für Datenverlust, die Datenqualität oder für sonstige
' vertragliche oder rechtliche Verpflichtungen übernommen, die der Anwender dieses
' Skriptes gegenüber seinem Kunden oder Dritten eingegangen ist.
'--------------------------------------------------------------------------------

Sub CATMain()
CATIA.DisplayFileAlerts = False
s1="Script um CATDrawings nach PDF zu konvertieren." & vbCrLf &  "Script written by Dipl.-Ing. Maximilianus (CAD.DE)"
s2="!!! Die Verwendung dieses Skripts erfolgt auf eigene Gefahr! !!!"
s3="Es wird keine Garantie für Datenverlust, die Datenqualität oder für sonstige" & vbCrLf & "vertragliche oder rechtliche Verpflichtungen übernommen, die der Anwender dieses" & vbCrLf & "Skriptes gegenüber seinem Kunden oder Dritten eingegangen ist."
MsgBox s1 & vbCrLf & vbCrLf & s2 & vbCrLf & vbCrLf & s3 & vbCrLf

set ShellApp=CreateObject("Shell.Application") 'erzeuge ein neues Objekt "Shell Application"
set FolBrowser=ShellApp.BrowseForFolder(0,"Quellverzeichnis ist C:\Temp. Zum Übernehmen 'Abbrechen', oder wählen Sie ein Verzeichnis, in dem die CATDrawings gespeichert sind:",16,17)
folderinput = "C:\Temp"
If not FolBrowser is Nothing then 'wenn nicht Abbrechen gedrückt oder aus sonstigen Gründen
'nichts im Objekt "FolBrowser" steht, dann...
folderinput=FolBrowser.Self.Path '...speichere den Pfad d. Ordners in die Variable "folderinput"
End If

Dim fs, fso, fld, sfld, ssfld, sssfld, ssssfld, f, f1, fc, s, filename, t
Dim SheetCollection As DrawingSheets
Set fs = CreateObject("Scripting.FileSystemObject")
Set fso = CreateObject("Scripting.FileSystemObject")

Set fld = fso.GetFolder(folderinput)

Set fc = fld.Files
For Each fil In fc
t = fil.Type
If t = "CATIA Drawing" then
  filename = fil.Name
  Pos1 = instr(1, s, filename)
  If Pos1 = 0 Then
Set documents1 = CATIA.Documents
PFADEINGABE =  fld & "\" & fil.name
Set document1 = documents1.Open(PFADEINGABE)
CATIA.ActiveWindow.WindowState = 0
Set drawingDocument1 = CATIA.ActiveDocument
fileoutname = replace(fil.name,".CATDrawing","")
PFADAUSGABE = fld & "\" & fileoutname & ".pdf"
drawingDocument1.ExportData PFADAUSGABE, "pdf"
drawingDocument1.Close
s = s & PFADEINGABE & ";" & PFADAUSGABE
s = s & vbCrLf
  End if
End if
Next

For Each sfld In fld.SubFolders
  Set fc = sfld.Files
  For Each fil In fc
t = fil.Type
If t = "CATIA Drawing" then
  filename = fil.Name
  Pos1 = instr(1, s, filename)
      If Pos1 = 0 Then
  Set documents1 = CATIA.Documents
  PFADEINGABE =  sfld & "\" & fil.name
  Set document1 = documents1.Open(PFADEINGABE)
CATIA.ActiveWindow.WindowState = 0
Set drawingDocument1 = CATIA.ActiveDocument
fileoutname = replace(fil.name,".CATDrawing","")
PFADAUSGABE = sfld & "\" & fileoutname & ".pdf"
drawingDocument1.ExportData PFADAUSGABE, "pdf"
drawingDocument1.Close
s = s & PFADEINGABE & ";" & PFADAUSGABE
s = s & vbCrLf
  End if
End if
  Next

For Each ssfld In sfld.SubFolders
  Set fc = ssfld.Files
  For Each fil In fc
t = fil.Type
If t = "CATIA Drawing" then
  filename = fil.Name
  Pos1 = instr(1, s, filename)
  If Pos1 = 0 Then
  Set documents1 = CATIA.Documents
  PFADEINGABE =  ssfld & "\" & fil.name
  Set document1 = documents1.Open(PFADEINGABE)
CATIA.ActiveWindow.WindowState = 0
Set drawingDocument1 = CATIA.ActiveDocument
fileoutname = replace(fil.name,".CATDrawing","")
PFADAUSGABE = ssfld & "\" & fileoutname & ".pdf"
drawingDocument1.ExportData PFADAUSGABE, "pdf"
drawingDocument1.Close
s = s & PFADEINGABE & ";" & PFADAUSGABE
s = s & vbCrLf
  End if
End if
  Next

For Each sssfld In ssfld.SubFolders
  Set fc = sssfld.Files
  For Each fil In fc
t = fil.Type
If t = "CATIA Drawing" then
  filename = fil.Name
  Pos1 = instr(1, s, filename)
  If Pos1 = 0 Then
  Set documents1 = CATIA.Documents
  PFADEINGABE =  sssfld & "\" & fil.name
  Set document1 = documents1.Open(PFADEINGABE)
CATIA.ActiveWindow.WindowState = 0
Set drawingDocument1 = CATIA.ActiveDocument
fileoutname = replace(fil.name,".CATDrawing","")
PFADAUSGABE = sssfld & "\" & fileoutname & ".pdf"
drawingDocument1.ExportData PFADAUSGABE, "pdf"
drawingDocument1.Close
s = s & PFADEINGABE & ";" & PFADAUSGABE
s = s & vbCrLf
  End if
End if
  Next

For Each ssssfld In sssfld.SubFolders
  Set fc = ssssfld.Files
  For Each fil In fc
t = fil.Type
If t = "CATIA Drawing" then
  filename = fil.Name
  Pos1 = instr(1, s, filename)
    If Pos1 = 0 Then
Set documents1 = CATIA.Documents
PFADEINGABE =  ssssfld & "\" & fil.name
Set document1 = documents1.Open(PFADEINGABE)
CATIA.ActiveWindow.WindowState = 0
Set drawingDocument1 = CATIA.ActiveDocument
fileoutname = replace(fil.name,".CATDrawing","")
PFADAUSGABE = ssssfld & "\" & fileoutname & ".pdf"
drawingDocument1.ExportData PFADAUSGABE, "pdf"
drawingDocument1.Close
s = s & PFADEINGABE & ";" & PFADAUSGABE
s = s & vbCrLf
  End if
End if
  Next
  Next
Next
Next
Next

' FileSystemObject objFs oeffnen
Set objFs= CreateObject("Scripting.FileSystemObject")
strDateiname = folderinput + "\" + "Drawing2PDF-DeepStructure-Report.csv"
Set objTextStream = objFs.CreateTextFile(strDateiname, True)
strWriteString = s
objTextStream.Write strWriteString
objTextStream.Close
Set objTextStream = Nothing
Set objFs = Nothing

MsgBox "fertig !" & vbCrLf & s & vbCrLf
End Sub
-----------------------------------------------------------

Das ganze als XXX.CATScript speichern und aus Catia heraus starten.
Maximilianus

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

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

---

Habe das Skript probiert - funktioniert aber nicht.
Was mache ich falsch? (habe bisher noch keine Erfahrung mit Skripts)

Habe Catia geöffnet gehabt und führe dann mit Doppelklick im Explorer das Skript aus.
Es kommt auch das erste Fenster und ich kann auch Verzeichnis wählen in dem ein Drawing liegt.
Allerdings dann kommt gleich das "Fertig" fenster und ich habe nur die leere CSV-Datei im Verzeichnis. Was ist hier falsch. Erfordert das programm evtl. den Distiller von Adobe, bzw. muß man im Skript etwas umschreiben bezgl. des PDF-Druckers? (wir benutzen Win2PDF Drucker)

bitte um Hilfe, da das Skript uns helfen würde

mfg
Walter

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

---

Zitat:

---

Original erstellt von CADWalter:
Habe das Skript probiert - funktioniert aber nicht.
bitte um Hilfe, da das Skript uns helfen würde

---

Welche Catia-Version setzt Du ein?

Das Script ist unabhängig von Drucker- oder PDF-Treibern, weil die in Catia integrierte PDF-Exportfunktion verwendet wird.

Ich habe eben den Quellcode von hier kopiert und in eine neue Datei test.CATScript eingefügt, funktioniert ohne Probleme.

Poste mal das Script, dann schau ich mir den Quelltext noch einmal an.

Maximilianus

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

[Diese Nachricht wurde von Maximilianus am 20. Jul. 2006 editiert.]

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

---

PDF.txt

Habe Skript wie ich es verwende angehängt. (Extension habe ich umbennant).
Wir verwenden R10 und R14 (immer beide Versionen installiert MD1 oder MD2)

Wäre super wenn es funktioniert.
Danke im Voraus.

mfg
Walter

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

---

Zitat:

---

Original erstellt von CADWalter:
Habe Skript wie ich es verwende angehängt. (Extension habe ich umbennant).
Wir verwenden R10 und R14 (immer beide Versionen installiert MD1 oder MD2)

---

Also hier läuft das Skript von Dir einwandfrei. Da fällt mir nur folgendes noch ein:

Evtl. ist das von der Lizenz abhängig!

Öffne mal eine CATDrawing und gehe auf -> File -> Save As

Kannst Du dort PDF als Dateityp auswählen?

Wenn das dort nicht verfügbar ist, wird dsas Skript auch nicht funktionieren.

Maximilianus

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

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

---

Funktioniert leider nicht.
Ich bekomme nur die leere csv-Datei in das Verzeichnis gespeichert.

obwohl ich unter "Save-As" ein PDF abspeichern kann.

Es ist mir ein Rätsel. Wie gesagt ich starte das Skript mit Doppelklick von einem Serververzeichnis (User hat nur Leserechte darauf). Habe es aber auch probiert wenn ich es lokal auf C: kopiere (alle Rechte für User) - ebenfalls nichts.

Muß man evtl. ein Skriptumgebung definieren (in den optionen....) - wie gesagt ich bin da neu in diesem Thema. Nur bei Autocad z.B. muß ein Skript (LSP) vorher geladen werden um es nachher ausführen zu können.

mfg
Walter

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

---

Hallo CADWalter,

versuche mal das Script über den "klassischen CATIA-Weg" zu starten, also im CATIA mittels Tools->Macros->Macro, dann über den Button "Select" das Script suchen und auswählen, danach in der Auflistung der Scripte eventuell nochmals selektieren und mittels Button "Run" starten.
Der Start über den Explorer greift auf "was weiß ich?" zu und kann dadurch schon zum Fehler führen...

Ansonsten bleibt noch der "Debug-Weg" über den VB-Editor im CATIA (muß mit CATIA installiert werden!), da Du ja unter Windows arbeitest. Dort einfach des Script importieren, die Zeile Language="VBSCRIPT" mittels ' auskommentieren und dann mal mit "Break-Pointen" testen.

mfg,
Lusilnie

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

Alle Aussagen zu DassaultSystemes-Produkten sind sehr optimistisch, selbst diese!!!

frei nach größeren Geistern

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

---

Zitat:

---

Original erstellt von CADWalter:
[B][/B]

---

Hast Du inzwischen mal den Vorschlag von Lusilnie getestet?

Gruß,
Maximilianus

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

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