社区 › 源码共享 › 【颜色】普通图元索引色修改为真彩色

soso 发表于 2024-3-15 12:54:46

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

xyp1964 发表于 2024-3-15 13:43:09

soso 发表于 2024-3-15 12:54
有大佬帮忙改一下 真彩色>>>索引色 吗

;; (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)
)

tiancao100 发表于 2024-3-15 15:39:10

为何要改真彩色？

soso 发表于 2024-3-15 16:15:46

xyp1964 发表于 2024-3-15 13:43
;; (RGB2Index '(255 15 15))
(defun RGB2Index (rgb / co)
(setq co (vla-get-truecolor (vla-get-A ...

直接帮忙直接发个完整版LISP吗 :loveliness:

zhangrunze 发表于 2025-6-7 14:11:33

感谢分享~很实用；
ZCS选择图元统一变成一个指定的真彩色    【索引色所对应的真彩色】
ZCM 选择图元各自变成索引色所对应的真彩色    【索引色所对应的真彩色】

查看完整版本: 【颜色】普通图元索引色修改为真彩色