有没有镜像后文字的颜色自动改变的？

lifenwei

有没有镜像后文字的颜色自动改变的？就是用CAD的命令镜像后，文字或图形会自动改变颜色，即表示这个是经过修改的。。。请问有吗？

ZZXXQQ

2. (defun c:tt ()
   
3. (setq s1 (entlast) ss1 (ssadd))
   
4. (if (setq ss (ssget)) (progn
   
5.   (command "_.MIRROR" ss "" PAUSE PAUSE "N")
   
6.   (while (setq s1 (entnext s1)) (ssadd s1 ss1))
   
7.   (command "_.CHPROP" ss1 "" "C" 1 "")
   
8. ))
   
9. (princ)
   
10. )
    

(defun c:tt ()<br /> (setq s1 (entlast) ss1 (ssadd))<br /> (if (setq ss (ssget)) (progn<br />   (command "_.MIRROR" ss "" PAUSE PAUSE "N")<br />   (while (setq s1 (entnext s1)) (ssadd s1 ss1))<br />   (command "_.CHPROP" ss1 "" "C" 1 "")<br /> ))<br /> (princ)<br /> )<br />

lifenwei

ZZXXQQ 发表于 2014-5-20 08:29

谢谢了啦。。很实用。