有大佬帮忙添加一下 真彩色>>>索引色 吗

soso

http://bbs.mjtd.com/forum.php?mo ... =%CB%F7%D2%FD%C9%AB  原贴  

有大佬帮忙添加一下  真彩色>>>索引色 吗

xyp1964

;; (RGB2Index '(255 15 15)) 不一定能完全对应
(defun RGB2Index (rgb / co)
  (setq co (vla-get-truecolor (vla-get-ActiveLayer (vla-get-ActiveDocument (vlax-get-acad-object)))))
  (vla-setRGB co (car rgb) (cadr rgb) (caddr rgb))
  (vla-get-ColorIndex co)
)

lxl217114

需要搜索，论坛里面很早就有了。
http://bbs.mjtd.com/forum.php?mo ... amp;fromuid=7326707