Hallo zusammen!
Ich habe aus diesem Forum ein Makro zur Erstellung von PDF Dateien. Dieses funktioniert recht gut.
Jedoch ist die Qualität der PDF nicht so gut gegen über der direkt abgespeicherten. (Schraffuren sind Zu dick und Strichstärken verändern sich)
Kann man das Makro so umschreiben, dass die Qualität der PDF besser wird?
Angefügt das Vorhandene Makro. und ein Beispiel.
Language="VBSCRIPT"
'CATDRAWING nach PDF konvertieren
'--------------------------------------------------------------------------------
' Script um .CATDRAWING Dateien nach .PDF zu konvertieren
'
' Michael Rösch / roesch-m@kasto.de
'Geändert von Drago Boras am 30.09.2008
'Geändert von Jens Hansen am 01.10.2008
'Geändert von Drago Boras am 01.10.2008
'--------------------------------------------------------------------------------
Sub CATMain()
folderinput = InputBox ("Bitte den Ursprungsordner eingeben","Eingabe","X:\PDF\EINGABE\",500,1000)
folderoutput = InputBox ("Bitte das Zielordner eingeben","Eingabe","X:\PDF\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
Counter1 = drawingSheets1.Count
For I=1 to Counter1
Name1 = CATIA.ActiveDocument.Sheets.Item(I).Name
' MsgBox ( CATIA.ActiveDocument.Sheets.Item(I).Name )
Set drawingSheet1 = drawingSheets1.Item( I )
drawingSheet1.Activate
Next
trennzeichen = "."
SaveName=f1.name As String
values = Split ( SaveName, trennzeichen )
PFADAUSGABE = folderoutput &values(0) & ".pdf"
drawingDocument1.ExportData PFADAUSGABE, "pdf"
'PFADAUSGABE = folderoutput & f1.name & ".pdf"
'PFADAUSGABE = Replace(PFADAUSGABE,"CATDrawing","pdf")
'drawingDocument1.ExportData PFADAUSGABE, "pdf"
Dim specsAndGeomWindow1 As Window
Set specsAndGeomWindow1 = CATIA.ActiveWindow
specsAndGeomWindow1.Close
drawingDocument1.Close
s = s & f1.name
s = s & vbCrLf
Next
MsgBox "fertig !" & vbCrLf & s
End Sub
------------------
Gruss
Klaus
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
Foren auf CAD.de
| 
