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

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吗 :loveliness:

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

感谢分享，赞

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