---

Hallo

Bin auf der Suche nach einem Makro, Script oder Lisp, mit welchem einfach pdf-Dateien aus einer AutoCAD-Zeichnung erstellt werden können.

Ich stelle mir das folgendermassen vor:
Zuerst soll geprüft werden, ob bereits eine pdf-Datei mit gleichem Dateinamen wie CAD-Zeichnung in einem entsprechendem Verzeichnis existiert. (wahrscheinlich irgendwie mit "Findfile")

Wenn bereits pdf-Datei mit entsprechendem Dateiname vorhanden, soll eine Meldung erscheinen und das Makro, Script oder Lisp beendet werden. (alert ".....")

Wenn noch keine pdf-Datei mit Dateiname wie CAD-Zeichnung vorhanden, soll eine pdf-Datei generiert werden (entsprechendes Layout mit "dwg to pdf" in CAD-Zeichnung vorhanden) und in einem separaten Verzeichnis abgelegt werden. (command "-plot" ......)

Bin mir fast sicher, dass so etwas bereits irgendwo existiert und hoffe, ihr könnt mir weiterhelfen.

Beste Grüsse
Chregu

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

---

Hi Chregu,
hier habe ich mal was über Adobe-PDF als Plotter erstellt gehabt.
https://ww3.cad.de/foren/ubb/Forum54/HTML/034681.shtml#000009
Zu den ersten zwei Themen, mit den PDF suchen, kann ich nichts Beitragen.

------------------
Gruß
Manuel

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

---

Habe mal was in VBA gebastelt.

evtl hilft dir das schon weiter.

Sub a_Dateisuche()
Dim layout As Variant

'====OPTIONEN====
strPfad = "H:\_xref_temp\" 'Pfad festlegen
layout = "123" 'Layout festlegen welches gedruckt werden soll
'====OPTIONEN ENDE====

strDatei = Replace(Application.ActiveDocument.Name, ".dwg", "") 'Dateiname wird ermittelt
Dateiname = strPfad & strDatei & ".pdf" 'Dateipfad und Dateiname zusammensetzen

    If Dir(Dateiname) <> "" Then    'Prüfen ob Datei existiert
        MsgBox "Datei vorhanden"
    Else
        ThisDrawing.ActiveLayout = ThisDrawing.layouts.Item(layout)
        ThisDrawing.ActiveLayout.ConfigName = "DWG to PDF.pc3"
        ThisDrawing.Plot.PlotToFile (Dateiname)
    End If

End Sub

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