CAD真彩色转索引颜色的插件有吗？

李林建

CAD真彩色转索引颜色的插件有吗？

xiyanghxc

关于索引颜色，因为不常用，就度了一下，是通过限制图片中的颜色总数的方法实现有损压缩。

李林建

xiyanghxc 发表于 2022-12-24 11:15
关于索引颜色，因为不常用，就度了一下，是通过限制图片中的颜色总数的方法实现有损压缩。 ...

百度么有呢  有没有大神有呀

wangsr

真彩色改为索引色——把此插件拉入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文件即可用

大神  怎么操作呢   可以教我一下吗

wangsr

李林建 发表于 2024-2-5 16:24
大神  怎么操作呢   可以教我一下吗

把这个文件解压后拉入CAD即可自动转换

李林建

wangsr 发表于 2024-2-5 19:57
把这个文件解压后拉入CAD即可自动转换

好的  谢谢大神指导

wangsr

李林建 发表于 2024-2-6 13:34
好的  谢谢大神指导

有什么好的也分享下我们互相学习

李林建

wangsr 发表于 2024-2-6 16:00
有什么好的也分享下我们互相学习

要的   谢谢大神的指导