[olga87]

Здравствуйте Уважаемые специалисты AutoCAD!

Подскажите пожалуйста как на lisp задать цвету простому блоку (без атрибутов, не динамический).

Например некий блок вставлен, затем он программно как последний объект выбирается:

(setq ss (entlast))
(command "_select" ss "")
(setvar "cecolor" ccol)

и далее нужно назначить этому блоку цвет "ccol" , т.е. текущий цвет с панели Свойства.

Назначить цвет блоку, Не его объектам внутри - т.е. элементы внутри этого блока должны сохранить свои свойства.

Заранее спасибо!

[Кулик Алексей aka kpblc]

В библиотеке функций есть код по замене бита DXF-представления примитива. Подсказка: надо менять бит 62.
Ну или через ActiveX: vla-put-color и далее

[===AAA===]

Для начала - чтобы получить текущий цвет, нужно
использовать (getvar), а не (setvar).

А потом любым способом - да хоть и командным.

(command "_CHANGE" ... и далее параметры)