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

1028695446 · 发表于 2022-8-22 20:00:13

本帖最后由 1028695446 于 2022-8-22 20:21 编辑

lsp文件里面小程序包含2个简单的功能：

C:ZCS 统一变成真彩色【索引色所对应的真彩色】
C:ZCM 各自变成真彩色【索引色所对应的真彩色】

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

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吗

sandyvs · 发表于 2022-8-23 08:02:15

请教下，多行文字怎么改色？点进去修改一次后，之后能点进去才能改了，特性什么的都改不了

liwen888888 · 发表于 2022-8-22 21:22:24

感谢分享实用源码

ptime · 发表于 2022-8-23 00:02:48

多谢分享！！！

panliang9 · 发表于 2022-8-23 08:49:16

谢谢楼主分享。

lxl217114 · 发表于 2022-8-23 09:26:20

真彩色>>>索引色
添加一个就完美了

paulpipi · 发表于 2022-8-23 16:26:03

好东西，感谢分享！。

wenlusong · 发表于 2022-8-29 00:16:05

好东西，感谢分享

wangsr · 发表于 2024-2-5 08:37:42

感谢分享..

atone · 发表于 2024-2-15 15:22:00

感谢分享，赞

账号		自动登录	找回密码
密码			注册

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

本帖子中包含更多资源