【颜色】普通图元索引色修改为真彩色

soso

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

xyp1964

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

为何要改真彩色？

soso

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

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