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:
页: 1 [2]
查看完整版本: 【颜色】普通图元索引色修改为真彩色