Параметрические изображения объектов проектирования на основе использования языка АВТОЛИСП в среде АВТОКАД. Притыкин Ф.Н. - 74 стр.

           Рис. 5.4. Пример создания слайда текстовой программы

(defun st() ;программа позволяет формировать параметрические
            ; изображения видов при различных заданных размерах
            ;детали
 (command "vslide" "st");вывод изображения слайда
 ;блок задание значений переменным ************************************
      (setq d1 (getreal "Задaйте - D1") d2 (getreal "Задaйте - D2")
             d3 (getreal "Задaйте - D3") d4 (getreal "Задaйте - D4")
             …
             l3 (getreal "Задaйте - L3") l4 (getreal "Задaйте - L4")
      ); окончание ввода значений переменным
  (command "redraw"); удаление изображения слайда
  ;блок создания среды черчения*****************************************
    (command "ERASE" "WINDOW" (getvar "VSmin") (getvar "VSmax")
                 "" "redraw") ; удаление изображения с экрана монитора
    (command "Limits" "0,0" "425,297");задание размеров чертежа
    (command "Zoom" "all")(command "SNAP" "off")
     ;задание системных размерных переменных
       (setvar "DIMASZ" 5.)( setvar "DIMTXT" 5.)( setvar "LUPREC" 0.)

                                   74