[olga87]

Здравствуйте Уважаемые программисты!

Ниже приведен фрагмент кода lisp для nanoCAD, который позволяет показать цвет выбранного объекта в блоке. Сейчас показывает ПоСлою, ПоБлоку и aci.

Подскажите пожалуйста, как получить информацию о цвете, если цвет у объекта, например, 118,255,255?
Сейчас код выводит информацию о цвете - 131, а должно быть 118,255,255.

Код:

[Выделить все]

 ;Выбор объектов
 (setq ll 
   (entget (car (nentsel)))
 )

(setq x1_color (cdr (assoc '62 ll)))

   (cond ((= x1_color nil) (setq scolor "ПоСлою"))
        ((= x1_color 0) (setq scolor "ПоБлоку"))
        ((and (> x1_color 0) (< x1_color 255)) (setq scolor (itoa x1_color)))
        (t nil)
   )

;Load the dialog
(set_tile "sColor" scolor)

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

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

В 62 группе хранится индексированный цвет. RGB, насколько я помню, лежит в 420 группе. Преобразования числа в RGB на просторах где-то были.

[olga87]

А как до преобразования числа в rgb определить, что цвет у объекта НЕиндексированный?

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

По наличию этой самой группы 420, насколько я помню. Нет 62-й = цвет по слою. Есть 420 - цвет RGB

[olga87]

Спасибо!