Hallo,
ich habe ein Problem bei der automatischen Erstellung von PDF aus AutoCAD
ich benutze folgenden Code:
'PDF Vorgaben einstellen
With tempDWG.ActiveDocument.ActiveLayout
.ConfigName = "AutoCAD PDF (High Quality Print).pc3"
.CanonicalMediaName = "ISO_full_bleed_A4_(297.00_x_210.00_MM)"
.StyleSheet = "acad.ctb"
.PlotType = acExtents
.CenterPlot = True
.PlotRotation = ac0degrees
.PlotHidden = False
End With
'PDF erstellen
tempDWG.ActiveDocument.Plot.PlotToDevice "AutoCAD PDF (High Quality Print).pc3"
'Warten bis PDF erzeugt
Do While Dir(tempPDF) = ""
Loop
Application.Wait (Now + TimeValue("0:00:02"))
'PDF kopieren und temporäre PDF löschen
FileCopy tempPDF, ZielPDF & "\" & PDFname
Kill (tempPDF)
Beim ersten Durchlauf ist auch alles wunderbar. Aber beim 2. Mal stoppt der Durchlauf mit der Meldung "PlotToDevice" ist nicht erlaubt. Wenn ich dann auf Debug gehe und mit F5 weiterlaufen lasse ist alles gut bis zum nächsten Plot
Ich habe schon die Fehlerbehandlung ausgeschaltet mit "on Error resume next", ein zusätzlicher Timer, ich setze nach dem Plot tempDWG auf Nothing aber nicht hilft.
Hat irgend jemand eine Idee.
Vielen Dank
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP