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

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

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

nuist 发表于 2015-12-18 11:40 static/image/common/back.gif


复制出来，方便大家

sasufa 发表于 2016-1-8 15:06:38

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

sasufa 发表于 2016-1-8 15:22:53

要回复5个啊好吧 支持

sasufa 发表于 2016-1-8 15:23:32

加油 再来回复一个

sasufa 发表于 2016-1-8 15:24:32

还要继续回复 支持大神

知行ooo李肖坪 发表于 2016-1-8 15:48:10

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

sasufa 发表于 2016-1-9 14:46:33

终于可以看到了

lwg125 发表于 2016-1-11 10:14:22

很实用的工具！

gaara001 发表于 2017-9-26 11:08:10

谢谢分享！！！！
页: 1 2 3 [4] 5
查看完整版本: 批量按图层存文件,