Как программно устнавливать область печати?

(defun plotmodel (ttt printer format tabulka / a cmd xy1 xy2)
    (princ ttt)
  (setq    cmd (getvar "cmdecho")
    xy1 (getpoint "\n Первый угол рамки:")
    xy2 (getcorner xy1 "\n Второй угол рамки:")
    a   (angle xy1 xy2)
  )
  (if (or (and (> a (* pi 0.25)) (< a (* pi 0.75)))
      (and (> a (* pi 1.25)) (< a (* pi 1.75)))
      )
    (setq a "Portrait")
    (setq a "Landscape")
  )
  (setvar "cmdecho" 0)
  (command "-plot"            ;сама команда
       "y"                ;нужны настройки
       "model"            ; Лист или модель
       printer            ; Собственно принтер
       format                  ;Формат листа
       "Millimeters"        ;Ед. измерения
       a                ;Ориентация листа
       "N"                ;Зеркалить лист
       "Window"            ;Область печати
       xy1                ;Первая точка окна
       xy2            ;Вторая точка окна
       "fit"            ;Масштаб
       "center"            ;Сдвиг листа
       "yes"            ;Печать со стилем
       tabulka            ;Стиль
       "Yes"            ;Учитывать заданные толщины линий
       "No"                ;Удалять скрытые линии
       "No"                ;Печатать в файл
       "No"                ;Сохранить настройки
       "Yes"                ;Старт печати
      )
;;;  (command "preview")
  (setvar "cmdecho" cmd)
   (princ)
)

(setq L (distance xy1 xy2))
  (setq    format
     (cond
       ((and (> L 0) (<= L 363.743)) "A4")
       ((and (> L 363.743) (<= L 514.4016)) "A3")
       ((and (> L 514.4016) (<= L 727.4861)) "A2")
     )
  )