[name02]

Добрый день!
Сделал функцию для получения списка всех вложенных блоков. Т.е. "скормив" ей список e-name-ов, набор или e-name блока, на выходе получается список из всех блоков которые входят в исходный набор (список) - т.е. исходные блоки и все вложенные в них блоки.
Такие свойства как слой, цвет, прозрачность, вес и тип линий наследуются в соответствии с параметрами блоков (ПоСлою/ПоБлоку/явное указание, слой 0/явное указание слоя и т.п.)
Результат выводится в списке виде:
(((-1 . <Имя объекта: 1ed79071d50>) (8 . "Слой1") (62 . 43) (420 . 13806189) (430 . "RAL CLASSIC$RAL 1002") (440 . 16777216) (370 . 53) (2 . "A$C5105b2f9") (6 . "Газопровод") (DEPTH . 0)) ... )

В списке:
головы пар - стандартные dxf-коды блока (можно получить через (entget) )
DEPTH - уровень вложенности блока в исходном наборе (списке)

Так же сделал функцию для упрощения списка - ряд dxf-кодов преобразуется в понятные названия и значения. Эту функцию можно применить к элементам списка предыдущей функции. Результат будет выглядеть уже так:
(((ENAME . <Имя объекта: 1ed79071d50>) (LAYER . "Слой1") (ACI) (RGB) (COLORBOOK . "RAL CLASSIC$RAL 1002") (TRANSPARENCY . "ByBlock") (LWEIGHT . 0.53) (NAME . "A$C5105b2f9") (LTYPE . "Газопровод") (DEPTH . 0)) ... )

Файлы:
ay_getListNestedBlocks.lsp
ay_simplify-entget.lsp