有办法所有图形移至0图层并增加PURGE指令吗?

ga619091

目前有一个源码是能把所有图形转移到0图层并把改为BLAYER,能在此基础上增加为改到0图层后执行PURGE命令吗

1. (defun c:tt(/ sl)
   
2. (if (setq sl (ssget)) (command "_.change" sl "" "p" "la" "0" "c" "ByLayer" "lt" "ByLayer" "lw" "ByLayer" ""))
   
3. (princ)
   
4. )

(defun c:tt(/ sl)<br /> (if (setq sl (ssget)) (command "_.change" sl "" "p" "la" "0" "c" "ByLayer" "lt" "ByLayer" "lw" "ByLayer" ""))<br /> (princ)<br /> )

start4444

command  后面接着加命令就是了

ga619091

start4444 发表于 2020-4-9 10:34
command  后面接着加命令就是了

1. (defun c:tt(/ sl)
   
2. (if (setq sl (ssget)) (command "_.change" sl "" "p" "la" "0" "c" "ByLayer" "lt" "ByLayer" "lw" "ByLayer" ""))
   
3. ;(command "zoom" "e")
   
4. (command "-purge" "a" "" "n" )            
   
5. (princ)
   
6. )

(defun c:tt(/ sl)<br /> (if (setq sl (ssget)) (command "_.change" sl "" "p" "la" "0" "c" "ByLayer" "lt" "ByLayer" "lw" "ByLayer" ""))<br /> ;(command "zoom" "e")<br /> (command "-purge" "a" "" "n" )            <br /> (princ)<br /> )

可以了 感谢

G〆h

上述命令没有考虑图块中含有多层对象的情况，属于半成品。