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

             4.3. Функции для работы с данными примитивов

    Приведенные ниже функции, совместно с рассмотренными ранее, по-
зволяют извлекать и изменять данные о примитивах.
       • (entdel <примитив>). Эта функция позволяет в течение одного се-
анса редактировать, удалять и восстанавливать <примитив> в рисунке.
Окончательно <примитив> удаляется из рисунка только после выхода из
режима редактирования. Примеры:
(setq prim1 (entlast)) − устанавливает в prim1 имя последнего примитива,
добавленного в рисунок,
(entdel prim1) − удаляет примитив priml,
(entdel prim1) – восстанавливает удаленный примитив prim1.
      • (entget <примитив>) позволяет выбирать <примитив> из базы
данных. Функция возвращает список, который состоит из параметров, оп-
ределяющих этот примитив. Такой список состоит из двух частей. Первая
часть включает в себя код DXF (флаг), а вторая − данные. Конкретные
данные о примитиве могут быть извлечены из этого списка с помощью
функции assoc. При необходимости эти данные могут быть изменены, а
следовательно, измены свойства примитива.
    Пример: пусть последним в рисунок добавлен отрезок, проходящий
через точки А(10 10) и В(20 20). Для получения данных oб этом отрезке
запишем выражение, состоящее из следующих функций:
(setq otr (entget (entlast))).
В результате переменной otr будет соответствовать список следующего
вида:
( ( -1 . <Имя примитива: 60000018>);
    ( 0 . "LINE") − указывает − тип примитива "отрезок";
    ( 8 . "0" ) − примитив изображен на слое "0";
    (10 10.0 10.0 0.0) − указывает координаты начальной точки отрезка;
    (11 20.0 20.0 0.0) − указывает координаты конечной точки отрезка;
)


                                     54