Page 35 - AutoLISP и Visual LISP в среде AutoCAD

Необязательный
60 Видимость объекта. 0
(0-видимый, 1-невидимый)
Необязательный

Коды для объекта LINE:
100 Маркер подкласса (AcDbLine)
39 Выдавливание (необязательный; по умолчанию = 0)
10 Начальная точка
11 Конечная точка
210 Направление выдавливания

Следующая программа сохраняет в переменной edata информацию о
примитиве и выводит ее на экран.

(setq ent (entsel "\nВыбор объекта"))
(setq name (car ent))
(setq edata (entget name))
(print edata)

Если в качестве объекта был выбран отрезок, то на экране проявится
примерно следующее:

((-1 . <Имя объекта: 18783637960>) (0 . "LINE") (330 . <Имя
объекта: 187f82981f0>) (5 . "4FE") (100 . "AcDbEntity") (67 . 0) (410
. "Model") (8 . "0") (6 . "осевая") (100 . "AcDbLine") (10 166.0 359.0
0.0) (11 216.0 389.0 0.0) (210 0.0 0.0 1.0))

Расшифруем полученную информацию, использую приведенную выше
таблицу DXF кодов.
Код Содержание Значение
DXF
-1 <Имя объекта: Имя примитива
18783637960>
0 "LINE" Тип примитива (отрезок)
5 "4FE" Метка примитива
100 "AcDbEntity" Маркер подкласса
67 0 Примитив в пространстве модели
в пространстве листа
1
8 "0" Слой
6 "CENTER2 Тип линии
100 "AcDbLine" Маркер подкласса
10 -185.0 34.0 0.0 Начальная точка
11 -158.0 11.0 0.0 Конечная точка

410 "Model" Имя вкладки листа
210 0.0 0.0 1.0 Направление выдавливания
Т.к. DXF коды 62, 48, 60 и 39 не указаны, то это соответственно означает:

34