CAD真彩色转索引颜色的插件有吗？
CAD真彩色转索引颜色的插件有吗？关于索引颜色，因为不常用，就度了一下，是通过限制图片中的颜色总数的方法实现有损压缩。 xiyanghxc 发表于 2022-12-24 11:15
关于索引颜色，因为不常用，就度了一下，是通过限制图片中的颜色总数的方法实现有损压缩。 ...
百度么有呢有没有大神有呀 真彩色改为索引色——把此插件拉入CAD内自动更改OK
把以下代码保存为.LISP文件即可用
(defun feng:color:change ( s / co );==========改颜色为索引色
(setq co (vla-get-truecolor s))
(vla-put-ColorIndex co (vla-get-color s))
(vla-put-truecolor s co)
)
(defun feng:ms:color ( / ms n );==========模型中的对象
(setq ms (vla-get-ModelSpace (vla-get-ActiveDocument (vlax-get-acad-object))))
(vlax-for n ms (feng:color:change n))
)
(defun feng:bl:color ( / bl n1 n2 );========块里面的对象
(setq bl (vla-get-blocks (vla-get-ActiveDocument (vlax-get-acad-object))))
(vlax-for n1 bl
(vlax-for n2 (vla-Item bl (vla-get-name n1)) (feng:color:change n2))
)
)
(defun feng:layer:color ( / la n );========图层对象
(setq la (vla-get-Layers (vla-get-ActiveDocument (vlax-get-acad-object))))
(vlax-for n la (feng:color:change n))
)
(defun feng:color ()
(princ "\n模型对象颜色换转...") (feng:ms:color)
(princ "\n块内对象颜色换转...") (feng:bl:color)
(princ "\n图层对象颜色换转...") (feng:layer:color)
(princ "\n颜色换转完成！")
)
(feng:color)
wangsr 发表于 2024-2-5 08:53
真彩色改为索引色——把此插件拉入CAD内自动更改OK
把以下代码保存为.LISP文件即可用
大神怎么操作呢 可以教我一下吗
李林建 发表于 2024-2-5 16:24
大神怎么操作呢 可以教我一下吗
把这个文件解压后拉入CAD即可自动转换
wangsr 发表于 2024-2-5 19:57
把这个文件解压后拉入CAD即可自动转换
好的谢谢大神指导 李林建 发表于 2024-2-6 13:34
好的谢谢大神指导
有什么好的也分享下我们互相学习 wangsr 发表于 2024-2-6 16:00
有什么好的也分享下我们互相学习
要的 谢谢大神的指导
页:
[1]