soso 发表于 2024-3-15 13:04:56

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

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

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

xyp1964 发表于 2024-3-15 13:46:17

;; (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 发表于 2024-3-15 13:52:29

需要搜索，论坛里面很早就有了。
http://bbs.mjtd.com/forum.php?mod=redirect&goto=findpost&ptid=181854&pid=871074&fromuid=7326707
页: [1]
查看完整版本: 有大佬帮忙添加一下 真彩色>>>索引色 吗