habe zwar was im downloadbereich bei cad. de gefunden, nun die frage : wo wie was abspeichern?
und zwar dieses:
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 & ".pdf"
drawingDocument1.ExportData PFADAUSGABE, "pdf"
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
ist das das was ich suche?
------------------
[Diese Nachricht wurde von suzzy am 16. Aug. 2007 editiert.]
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP