遍历含有关键字的图层，以实现文件保存

dakui

下面是 ZZXXQQ版主的源码，希望朋友帮忙修改一下。
实现目的：遍历含有特定文字的图层，以实现保存文件。
比如：
某个文件中含有图层名字 0,1G,2G,3G,1T,2T,3T,5F,6,F7...
遍历含有”G”图层，按层保存文件。

;按层存文件 明经 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)
)

叮咚

1. (defun c:tt ()
   
2. (setvar "CMDECHO" 0)
   
3. (setq lnm nil)
   
4. (while (setq lnm (tblnext "LAYER" (not lnm)))  ;这一句不用改
   
5. (if (and (wcmatch (cdr (assoc 2 lnm)) "*G*")(setq ss (ssget "X" (list (cons 8 (cdr(assoc 2 lnm)))))));改这一句
   
6.    (command ".WBLOCK" (strcat "NewLayer=" (cdr(assoc 2 lnm))) "" "0,0" ss "")
   
7.   )
   
8. )
   
9. (setvar "CMDECHO" 1)
   
10. (princ)
    
11. )
    

(defun c:tt ()<br /> (setvar "CMDECHO" 0)<br /> (setq lnm nil)<br /> (while (setq lnm (tblnext "LAYER" (not lnm)))  ;这一句不用改<br /> (if (and (wcmatch (cdr (assoc 2 lnm)) "*G*")(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 /> )<br />

dakui

叮咚 发表于 2019-10-20 14:02

这种修改方式的话，会遍历所有图层

dakui

叮咚 发表于 2019-10-20 14:02

测试了一下，提升了不少速度，谢谢朋友把问题解决了。

LIULISHENG

又学一招哦