Code:
(DEFUN C:epall (/ layout_prev)
(vl-load-com)
(SETQ layout_prev (getvar "ctab"))
(SETQ layout_LIST (LAYOUTLIST))
(vl-mkdir (STRCAT (getvar "dwgprefix") "pdf")) (FOREACH layout_cur layout_LIST
;(PRINC "/n* >")(PRINC layout_cur)(PRINC "< */n")
; (IF (/= (SUBSTR layoutname 1 6) "Layout")
(progn
(SETQ layoutname (STRCAT (getvar "dwgprefix") "pdf\\" layout_cur))
(SETQ file nil)
(WHILE (NOT (SETQ file (OPEN (STRCAT layoutname ".pdf") "w")))
(IF file (CLOSE file)
(ALERT (STRCAT "Bitte die pdf-Datei" layoutname ".pdf schliessen"))))
(IF file (CLOSE file))
(PRINC "/n* >")(PRINC layoutname)(PRINC "< */n")
(SETVAR "CTAB" layout_cur)
(SETQ size (PLANFORMAT))
;;; (IF size (PROGN
(COND
((= SIZE "A3Q")(SETQ orientation "_Landscape" paper "A3" scale "10:1"))
((= SIZE "A3H")(SETQ orientation "_Portrait" paper "A3H" scale "10:1"))
((= SIZE "A4Q")(SETQ orientation "_Landscape" paper "A4Q" scale "10:1"))
((= SIZE "A4H")(SETQ orientation "_Portrait" paper "A4H" scale "10:1"))
((= SIZE "A3QK")(SETQ orientation "_Landscape" paper "A3" scale "1000:1"))
((= SIZE "A3HK")(SETQ orientation "_Portrait" paper "A3H" scale "1000:1"))
((= SIZE "M60")(SETQ orientation "_Landscape" paper "M60" scale "10:1"))
((= SIZE "L60")(SETQ orientation "_Landscape" paper "L60" scale "10:1"))
((= SIZE "XL60")(SETQ orientation "_Landscape" paper "XL60" scale "10:1"))
((= SIZE "X2-60")(SETQ orientation "_Landscape" paper "X2-60" scale "10:1"))
((= SIZE "M90")(SETQ orientation "_Landscape" paper "M90" scale "10:1"))
((= SIZE "L90")(SETQ orientation "_Landscape" paper "L90" scale "10:1"))
((= SIZE "XL90")(SETQ orientation "_Landscape" paper "XL90" scale "10:1"))
((= SIZE "X2-90")(SETQ orientation "_Landscape" paper "X2-90" scale "10:1"))
((= SIZE nil)(SETQ orientation "_Landscape" paper "MAX" scale "10:1"))
)
(setvar "cmdecho" 1)
(COMMAND ".PLOT" "_Yes" "" "eplotPDF.pc3" paper "Millimeter" orientation "_No"
"_Extents" scale "_center" "_yes" "Laserjet Fein.ctb"
"_Yes" "_No" "_No" "_No" layoutname "_Yes" "_Yes" )
(setq ALAYO (vla-get-activelayout (vla-get-activedocument (vlax-get-acad-object)) ))
(vla-put-showplotstyles ALAYO :vlax-true)
)
);)))
(SETVAR "ctab" layout_prev)
(princ)
)