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

                  P2 … P4;блок программы расчета точек Р2 – Р4
      )         ; Если диаметр отверстия d ≠ 0
      (if (= d 0) ()
                    (setq р5…р10) ;блок программы расчета точек
      )
 ; Построение разреза
       (sl0)(command "точка" "0,0") (setq ew entlast))
        (if (= d 0)
             (prong ;построение изображения разреза без отверстия
               (sl0) (command "line" p1 p2 p3 p4 p1 "")(sl1) (strix 45 2)
              ) ; Если диаметр отверстия d ≠ 0
             (prong ;построение изображения разреза с отверстием
               (sl0) (command "line" p1 p4 p5 p7 p1 "")
                     (command "line" p6 p8 p3 p2 p6 "") (sl1) (stiix 45 2)
               (sl0) (command "line" p7 p8 "" "line" p5 p6 "")
                   (sl3) (command "line" p9 p10 "" )
            )
   ) ; окончание функции – defun

        Функции и команды, используемые в программе kontur1:
• (command "точка" "0,0") – примитив, необходимый для задания прими-
         тива, от которого начинается отсчет примитивов, помещае-
         мых в набор. Этот набор определяет замкнутый контур, подле-
         жащий штриховке. C помощью функций (setq ew entlast))
         данному примитиву присваивается имя ew.
• (entlast) – функция присваивает код примитива точки переменной ew,
            которая используется функцией strix.
• (strix 45 2) – подпрограмма, строящая изображение штриховки замкнутого
             контура. Данная программа определяет набор из примитивов, ко-
             торый определяет замкнутый контур и заштриховывает его.
           Текст этой программы приведен ниже.
• (sl0) (sl1) (sl3) – функции для установки слоев (см. п. 3.1).



                                     57