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

(defun svarka ()
 ; Расчет размера катета шва сварного соединения в зависимости от
  ;толщины свариваемых деталей
  (if (and (= b "T1") (= b "T3")) (setq K 0)) ; в этой строке параметр b
          ;определяет буквенно-цифровое обозначение сварного шва.
  (if (= K 0) (setq e1 (/ S 3); в этой строке параметр S определяет
                            ;наименьшую толщину свариваемой пластины.
                     e (rtos e1 2 0)
             )
   )
   ;определение строковой константы обозначения сварки на чертеже
   ; с помощью переменных, значения которых введены с помощью
   ;функции svarka
   ; соединение строковых констант, вводимых в интерактивном ре-
жиме.
   (if (= k 0) (setq tt (strcat a "-" b "-" c "-" d))
               (setq tt (strcаt a "-" b "-" " " "-" e "-" c "-" d ..))
   )
   ; расчет и формирование изображения выноски (изображение
   ;односторонней стрелки и текстовой полки)
   (setq lt (* 5 (strlen tt))
        p1 (getpoint "Укажите точку обозначения сварки")
        p2 (polar p1 1.2 5)      p3 (polar p1 0.78 20) p4 (polar p3 0 lt)
        p5 (polar p3 1.57 2)
   )
  ;формирование изображения выноски
  (command "line" p2 p1 р3 р4 "")
  ;формирование изображения текста обозначения сварки
  (command "text" p5 "5" "0" tt )
); окончание функции – defun




                                   62