[Supermax]

Есть DXF код 62 и 420 а мне надо из 420-го или 62-го (если нет 420-го) сделать RGB типа 107,146,194. И обратно, из такого кода сделать номер для 420-го или 62 кода.
(62 . 153)
(420 . 7049922)
Как Автокад это делает? Может функция есть ккая-нибудь?
В списке цветов RGB фигурирует, а в DXF все совсем не так. А мне надо выбрать существющие цвета и сделать выбор по цвету.

HELP!!

[VVA]

Код:

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

(defun C:TEST ()
  (vl-load-com)
(setq TrueColor (vla-get-TrueColor (setq obj(vlax-ename->vla-object (car(entsel))))))
(setq cm (vla-get-ColorMethod  TrueColor)) 
(cond
  ((= cm acColorMethodByRGB) ;_RGB
   (setq R (vla-get-red TrueColor)
	 G (vla-get-Green TrueColor)
	 B (vla-get-Blue TrueColor)
	 )
   (alert (strcat "Модель RGB"
		  "\nR: "
		  (itoa R)
		  "\nG: "
		  (itoa G)
		  "\nB: "
		  (itoa B)
		  )
	  )
   )
  ((= cm   acColorMethodByACI) ;_ACI
   (alert (strcat "Молель ACI\nЦвет: "
		  (itoa (vla-get-Color obj))))
   )
  ((= cm   acColorMethodByLayer) ;_Bylayer
   (alert "ПоСлою")
   )
  ((= cm   acColorMethodByBlock) ;_ByBlock
   (alert "Поблоку")
   )
  (t (alert "Другое"))
  )
)

PS. Управление видимостью слоев- здесь в свое время переводили из RGB в HSL и обратно

[VVA]

Еще одна ф-ция: "Плющилка" цветов RGB. При монохромной печати RBG создают определенные проблемы. Их любят архитекторы, а нам и 256 хватает.

Код:

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

;;;Перевод цветов в ACI
;;; Пример вызова
;;; (ChangeAllObjectColoToACI (vla-get-activedocument (vlax-get-acad-object)))
(defun ChangeAllObjectColoToACI	(Doc /  IsLo )
  (vlax-for Blk	(vla-get-Blocks Doc)
    (setq IsLo (if (= (vla-get-IsLayout Blk) :vlax-true)
		 T
		 nil
	       )
    )
    (if	(= (vla-get-IsXref Blk) :vlax-false)
      (vlax-for	Obj Blk
	(if (vlax-write-enabled-p obj)
	  (vla-put-Color Obj (vla-get-Color Obj))
	)
      )
    )
  )
)

Здесь фишка в том, что если объекту назначен RGB цвет, то конструкция

Код:

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

(vla-put-Color Obj (vla-get-Color Obj))

назначит объету ближайший похожий цвет ACI

[Supermax]

Огромное спасибо!

[Supermax]

Опять затык. В 420 точечной паре есть код, который меня устраивает полностью, но как мне сделать из кода по 62 паре код по 420-ой?
С RGB все клево - нет слов, но мне этого не достаточно.

[Supermax]

Все оказалось очень просто. Значения Red Green Blue доступны всегда. Какой бы цвет ни был назначен. Каждое из них имеет значение 0-255
по формуле 256*256*Red+256*Green+Blue получаем нужное значение 420 DXF пары по этому же числу можно и ячейки в Экселе раскрашивать в тот же цвет, что и в автокаде у примитива.