批量按图层存文件,

nuist

1. ;按层存文件 明经 ZZXXQQ 2011.1.6
   
2. (defun c:tt ()
   
3. (setvar "CMDECHO" 0)
   
4. (setq lnm nil)
   
5. (while (setq lnm (tblnext "LAYER" (not lnm)))
   
6.   (if (setq ss (ssget "X" (list (cons 8 (cdr(assoc 2 lnm))))))
   
7.    (command ".WBLOCK" (strcat "NewLayer=" (cdr(assoc 2 lnm))) "" "0,0" ss "")
   
8.   )
   
9. )
   
10. (setvar "CMDECHO" 1)
    
11. (princ)
    
12. )

;按层存文件 明经 ZZXXQQ 2011.1.6<br /> (defun c:tt ()<br /> (setvar "CMDECHO" 0)<br /> (setq lnm nil)<br /> (while (setq lnm (tblnext "LAYER" (not lnm)))<br />   (if (setq ss (ssget "X" (list (cons 8 (cdr(assoc 2 lnm))))))<br />    (command ".WBLOCK" (strcat "NewLayer=" (cdr(assoc 2 lnm))) "" "0,0" ss "")<br />   )<br /> )<br /> (setvar "CMDECHO" 1)<br /> (princ)<br /> )

nuist

nuist 发表于 2015-12-18 11:40

复制出来，方便大家

sasufa

现在需要这个，回复下看看

sasufa

要回复5个啊  好吧 支持

sasufa

加油 再来回复一个

sasufa

还要继续回复 支持大神

知行ooo李肖坪

谢谢，同步学习中………………

sasufa

终于可以看到了

lwg125

很实用的工具！

gaara001

谢谢分享！！！！