---

Wie muss die Pfadeingabe richtig lauten ?

Code:

---

(defun c:Plt ( / )
  (foreach layoutname (vl-remove "Model" (layoutlist))
    (command "._layout" "set" layoutname)
    (command "_plot"
    "_y"      ; Detailed plot configuration? [Yes/No] <No>: y
    layoutname ; Enter a layout name or [?] <4111>:
    "Plt.pc3"  ; Enter an output device name or [?] <Plt.pc3>:
    "ISO A1 (594.00 x 841.00 MM)" ; Enter paper size or [?] <ISO expand A1 (594.00 x 841.00 MM)>:
    "Millimeters" ;Enter paper units [Inches/Millimeters] <Inches>:
    "Landscape" ; Enter drawing orientation [Portrait/Landscape] <Landscape>:
    "No" ; Plot upside down? [Yes/No] <No>:
    "_e" ; Enter plot area [Display/Extents/Layout/View/Window] <Extents>: e
    "1000=1" ; Enter plot scale (Plotted Millimeters=Drawing Units) or [Fit] <1000=1>:
    "_c" ; Enter plot offset (x,y) or [Center] <Center>: c
    "_y" ; Plot with plot styles? [Yes/No] <Yes>:
    "A1.ctb" ; Enter plot style table name or [?] (enter . for none) <A1.ctb>:
    "_y" ; Plot with lineweights? [Yes/No] <Yes>:
    "_y" ; Scale lineweights with plot scale? [Yes/No] <No>:
    "_n" ; Plot paper space first? [Yes/No] <No>:
    "_n" ;Hide paperspace objects? [Yes/No] <No>:
    "_y" "c:\\pdfplot\\" "";Write the plot to a file [Yes/No] <Y>:
    "_n" ; Save changes to page setup [Yes/No]? <N>
    "_y" ;Proceed with plot [Yes/No] <Y>:
    )
    )
  )

---

------------------
Gruss Dirk

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

---

Habs schon...

Code:

---

"_y" (strcat "c:\\pdfplot\\" (substr (setq str (getvar "dwgname")) 1 (- (strlen str) 4)) "-" layoutname)  ;Write the plot to a file [Yes/No] <Y>:

---

------------------
Gruss Dirk

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

---

Zitat:

---

(vl-remove "Model" (layoutlist))

---

Layoutlist spuckt doch meines wissens gar kein Model aus also kann man sich das wohl sparen. Nur so als Hinweis .

------------------
Gruß Wolfgang

Alias: Rabbit007 und Wolli1 die aus unerklärlichen Gründen aus dem System hier gelöscht wurden. 

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

---

korrekt Wolfgang

Command: (layoutlist)
=> ("Layout1" "Layout2")

------------------
Gruss Dirk

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