(DEFUN c:layoutplt ()
  (SETQ laycnt 0)
  (FOREACH l (LAYOUTLIST)
    (COMMAND "-PLOT" "Yes")
    (SETQ this l)
    (COMMAND this)
    (SETQ this "TIFF Version 6 (CCITT G4 2D Compression)")
    (COMMAND this)
    (SETQ this "34X22 300dpi (10200.00 x 6600.00 Pixels)")
    (COMMAND this)
    (SETQ this "Landscape")
    (COMMAND this)
    (SETQ this "No")
    (COMMAND this)
    (SETQ this "Window")
    (COMMAND this)
    (SETQ this (GETVAR "limmin"))
    (COMMAND this)
    (SETQ this (GETVAR "limmax"))
    (COMMAND this)
    (SETQ this "300=1")
    (COMMAND this)
    (SETQ this "Center")
    (COMMAND this)
    (SETQ this "Yes")
    (COMMAND this)
    (SETQ this "TIFF 300dpi.ctb")
    (COMMAND this)
    (SETQ this "Yes")
    (COMMAND this)
    (SETQ this "No")
    (COMMAND this)
    (SETQ this "Yes")
    (COMMAND this)
    (SETQ this "No")
    (COMMAND this)
    (SETQ
      this (STRCAT
             (GETVAR "dwgprefix")
             "Plots\\34x22\\"
             (GETVAR "dwgname")
             "_"
             l
             ".plt"
           ) ;_ end of STRCAT
    ) ;_ end of SETQ
    (COMMAND this)
    (SETQ this "Yes")
    (COMMAND this)
    (SETQ this "Yes")
    (COMMAND this)
;;;    (SETQ this "No")
;;;    (COMMAND this)
;;;    (SETQ this "Yes")
;;;    (COMMAND this)
    (SETQ fstr "  TIFF Version 6 (CCITT G4 2D Compression) Plotted:  ")
    (SETQ laycnt (1+ laycnt))
  ) ;_ end of FOREACH
  (PRINC)
) ;_ end of PROGN
;|«Visual LISP© Format Options»
(72 2 40 2 T "end of " 60 9 2 1 0 nil T nil T)
;*** DO NOT add text below the comment! ***|;