---

Hallo,
ich habe mir zum Thema "PDF mit einem Klick" noch mal Gedanken gemacht. Im Moment benutze ich ein Makro mit MacroX, welches mit einer EXE startet. Da aber nicht jeder MacroX hat und möchte, habe ich noch mal überlegt ob es nicht auch ohne geht.
Der PDFCreator sollte dabei verwendet werden, da er kostenlos ist.

Nach viel lesen in den Foren denke ich mal das Problem wird sein die Papierformate richtig zu übergeben.

Es soll dann so sein, daß im Layout die Abmessungen für das PDF automatisch erfasst werden (Grenzen). Diese dann aber im Drucker unter benutzerspezifische Papiergröße einzutragen halte ich für das Problem.

Da stellt sich auch die Frage was da besser ist - LISP oder VBA.

Was würdet ihr sagen - ist es überhaupt möglich?

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

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

---

Brauchst Du das überhaupt noch? Exportpdf erledigt doch so ziemlich alles - auf einen Klick...

Grüsse, Henning

------------------
zur Abstimmung

Henning Jesse
VoxelManufaktur
Computer-Dienstleistungen für Architekten und Ingenieure

  http://www.voxelman.de

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

---

exportpdf - sieht ganz nett aus

nur wird kein PDF erstellt und kommt auch keine Fehlermeldung

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

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

---

Hi,

>> nur wird kein PDF erstellt und kommt auch keine Fehlermeldung

SCNR: und glaubst Du, dass das so vorgesehen ist   
Oder folgt ev. noch ein Screenshot, was Du eingestellt hast, eine Zeichnung mit der das nicht funktioniert oder irgendwelche anderen Hinweise, um dem auf die Spur zu kommen?

Nur soviel: bei mir funktioniert EXPORTPDF.

- alfred -

------------------
www.hollaus.at

---

Screenshot_15092010_125637.jpg Screenshot_15092010_125620.jpg

Neue Zeichnung -> auf Layout1 -> exportpdf -> ende

kein PDF - keine Meldung

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

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

---

Hi,

probier mal:

a) nicht am Desktop speichern (könnte Sicherheitseinstellungen geben, die das nicht wollen)
b) nicht die zugewiesene Seiteneinrichtung zu verwenden

- alfred -

------------------
www.hollaus.at

---

a) auch auf C:\ kein PDF
b) auch kein PDF

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

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

---

und lesen: http://ww3.cad.de/foren/ubb/Forum54/HTML/022512.shtml  hört sich ähnlich an. Alles lesen, weiterführende links beachten.

------------------
Gruß,
runkelruebe          Herr Kann-ich-nich wohnt in der Will-ich-nich-Straße...

System-Info | Dateianhänge | FAQ-ACAD | CAD.de-Hilfe | Sei eine Antilope

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

---

Es wird der DWG To PDF.pc3 dazu benötigt!

Ich werde mal testen und melde mich dann noch mal.

Danke schon mal!

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

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

---

Also, funktionieren tut es soweit ganz gut. Ist aber nichts anderes wie mit dem PDFCreator zu drucken, da es über den DWG to PDF.pc3 läuft.

+ die Layer können mit ausgegeben werden

- die Papierformate werden erst aus der Standardliste verwendet und wenn kein annähernd gleiches vorhanden ist ein neues erstellt.
- die PDF sind um 1/4 größer bei gleicher DPI

Da wären wir wieder bei was handgemachten. Ist es überhaupt möglich dem Drucker immer ein neues Papierformat vorzugeben? Sprich - kommt man da überhaupt hin in AutoCAD?

Ich habe hier mal was gefunden wo auch die Höhe und Weite drin stehen, habe aber kein Plan ob es in die Richtung geht.

Code:

---

;-------------------------------------------------------------GetCanonicalMediaNames--------------
(defun GetCanonicalMediaNames (/ ad)
(setq ad (vla-get-activedocument (vlax-get-acad-object )))
(vla-RefreshPlotDeviceInfo (vla-get-activelayout ad))
(vlax-safearray->list (vlax-variant-value (vla-GetCanonicalMediaNames (vla-item (vla-get-layouts ad) "Model"))))
)
;-------------------------------------------------------------GetLocaleMediaName------------------
(defun GetLocaleMediaName (pd / ad la al)
(setq ad (vla-get-activedocument (vlax-get-acad-object))
la (vla-item (vla-get-layouts ad) "Model")
al (vla-get-activelayout ad)
)
(vla-put-configname al pd)
(princ "\n\n\nSetting:\n")
(princ (showDeviceProp al))
(princ "\n\n\nMedia:\n")
(mapcar '(lambda(mn)(vla-GetLocaleMediaName la mn)) (GetCanonicalMediaNames))
)
;-------------------------------------------------------------GetPlotDevices----------------------
(defun GetPlotDevices (/ ad)
(setq ad (vla-get-activedocument (vlax-get-acad-object)))
(vla-RefreshPlotDeviceInfo (vla-get-activelayout ad))
(vlax-safearray->list (vlax-variant-value (vla-getplotdevicenames (vla-item (vla-get-layouts ad) "Model"))))
)
;-------------------------------------------------------------showDeviceProps----------------------
(defun showDeviceProp (actlay / cusscl Numerator Denominator papmrg LowerLeft UpperRight papsiz Width Height window LLeft URight pltConfigLst)
(setq cusscl (vla-GetCustomScale actlay 'Numerator 'Denominator)
papmrg (vla-GetPaperMargins actlay 'LowerLeft 'UpperRight)
papsiz (vla-GetPaperSize actlay 'Width 'Height)
window (vla-GetWindowToPlot actlay 'LLeft 'URight)
)
(setq pltConfigLst (list (cons "ConfigName" (vla-get-Configname actlay))
(cons "StyleSheet" (vla-get-StyleSheet actlay))
(cons "CanonicalMediaName" (vla-get-CanonicalMediaName actlay))
(cons "CenterPlot" (vla-get-CenterPlot actlay))
(cons "PaperUnits" (vla-get-PaperUnits actlay))
(cons "PlotHidden" (vla-get-PlotHidden actlay))
(cons "PlotRotation" (vla-get-PlotRotation actlay))
(cons "PlotType" (vla-get-PlotType actlay))
(cons "PlotOrigin" (vlax-safearray->list(vlax-variant-value(vla-get-PlotOrigin actlay))))
(cons "PlotWithPlotStyles" (vla-get-PlotWithPlotStyles actlay))
(cons "ScaleLineweights" (vla-get-ScaleLineweights actlay))
(cons "UseStandardScale" (vla-get-UseStandardScale actlay))
(cons "StandardScale" (vla-get-StandardScale actlay))
(cons "Paper Height" height)(cons "Paper Width" Width)
(cons "Margin LowerLeft" (vlax-safearray->list lowerleft))
(cons "Margin UpperRight" (vlax-safearray->list upperright))
(cons "Plot Window Lower Left" (vlax-safearray->list LLeft))
(cons "Plot Window Upper Right" (vlax-safearray->list URight))
(cons "Custom Scale Numerator" numerator)
(cons "Custom Scale Denominator" denominator)
(cons "Custom Scale" (/ denominator numerator)))
)
pltConfigLst
)
;-------------------------------------------------------------c:Test----------------------
;(GetLocaleMediaName "YourDevice.pc3") where "YourDevice.pc3" is a device witch is available from (GetPlotDevices)
(defun c:Test ()
(vl-load-com)
(princ "\nDevices:\n")
(princ (GetPlotDevices))
(GetLocaleMediaName "None")
)

---

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

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