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

4.4. Пример составления программы построения изображения
        детали с использованием наборов примитивов

    Пусть необходимо изобразить разрез детали, в котором может при-
сутствовать отверстие заданного диаметра d или нет (рис. 4.2). Реализа-
ция команды построения изображения штриховок рассмотрена в п. 3.2.


      р4                          р3
                                          Изображение разреза де-
                                          тали, если диаметр d = 0
     р1                   р9      р2
            h                       р3
     р4          р7         р8
                                          Изображение разреза де-
                                          тали, если диаметр d ≠ 0
           р1   р5         р6       р2
                      d     р10
                      l

   Рис. 4.2. Получение изображения штриховки с использованием функций
                           доступа к примитивам

    Приведенный ниже пример текста программы позволяет в зависимо-
сти от значения размера диаметра отверстия строить изображение разреза
как с отверстием, так и без него. Для этого использованы логические
функции. Программа построения изображения детали будет состоять из
двух частей. Первая часть будет соответствовать, когда параметр d будет
равен нулю, а вторая часть − когда указанный параметр соответственно не
равен нулю. Текст программы будет иметь следующий вид:

  (defun kontur1()
    ;блок ввода значений геометрических параметров
    ;изображения разреза
    (setq h (getreal "Задайте длину–d: ") h (getreal "Задайте высоту–
    h: ")
             р1 (getpoint "введите базовую точку: ")
             d (getreal "Задайте диаметр отверстия – d: ")


                                  56