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

    Пример программы с использованием набора примитивов при по-
строении изображения штриховки:

(defun strix($u $r); программа построения штриховки замкнутого контура
                        ;определяемого набором примитивов
;$u – параметр определяющий угол наклона штриховки
;$r – параметр определяющий расстояние между штрихами
     (command "штрих" "с" $u $r ""
          (setq ew1 (entlast) ss (ssadd) ss
             (while (setq ew (entnext ew)) (setq ss (ssadd ew ss)) )
          ) ""
      ) ; окончание функции - command
) ; окончание функции – defun

    В программе strix используют следующие переменные и функции для
работы с примитивами.
• ew − параметр, определяющий начало отсчета примитивов для опреде-
ления набора, который определяет замкнутый контур, подлежащий штри-
ховке.
• (ssadd) − функция создает нулевой набор (в данном примере ss).
• (ssadd ew ss) − функция дополняет набор (ss) новым примитивом.
• (entnext ew) − функция возвращает имя примитива, следующего в базе
данных за примитивом с указанным именем (ew).
• (while <выражение1> <выражением2>) − функция организует цикл над
           <выражением2> до тех пор, пока <выражение1>
           (setq ew (entnext ew)) не примет значение nill.

                      4.5. Строковые функции

    Строковые константы и функции используют для автоматизированно-
го формирования текстовых документов, а также текстов технологических
обозначений чертежей деталей и сборочных чертежей. В качестве строко-
вых констант выступают ключевые слова, числа и др. С помощью стро-
ковых функций возможно формирование слов, обозначений, предложений
и др. Ниже приведены строковые функции:

                                  58