实体去除真彩色恢复索引色的一个方法

marting

去除数据定义里面组码 420，430就变成索引色了。

1. (defun c:tt (/ s)
   
2.   (if (setq s (ssget ":L"))
   
3.     (foreach a (vl-remove-if 'listp (mapcar 'cadr (ssnamex s)))
   
4.       (entmod (vl-remove-if
   
5.                 '(lambda (x) (member (car x) '(420 430)))
   
6.                 (entget a '("*"))
   
7.               )
   
8.       )
   
9.     )
   
10.   )
    
11.   (princ)
    
12. )

(defun c:tt (/ s)<br />   (if (setq s (ssget ":L"))<br />     (foreach a (vl-remove-if 'listp (mapcar 'cadr (ssnamex s)))<br />       (entmod (vl-remove-if<br />                 '(lambda (x) (member (car x) '(420 430)))<br />                 (entget a '("*"))<br />               )<br />       )<br />     )<br />   )<br />   (princ)<br /> )

liunian0524

感谢大师分享

kqqt6236

谢谢分享！

sicky111

支持楼主。

tigcat

谢谢楼主分享，有没有方法自动把不随层颜色的真彩色变成索引色，包括图块内的对象？