请教高手 合并类似图层

子恒

已知CAD文件中有一下几个图层
hidden            （标准）
sheet_hidden  
abc_hidden
bcd_hidden
cde_hidden
。
。
。
等等类似图层

现在要写一个程序把这些类似的图层都转换到标准图层  hidden    中，而且线型颜色等也必须一起转换成hidden 图层一样的。

Andyhon

(Command "chprop" (ssget "X" '((8 . "*_hidden"))) "" "LA" "MN" "C" "Bylayer" "Lt" "Bylayer" "")

xsso

1. (defun qwe (la / *OBJ *DOC lay_list)
   
2.   (SETQ  *OBJ (vlax-get-acad-object)
   
3.   *DOC (vla-get-activedocument *OBJ)
   
4.   ii   0
   
5.   la1  (strcat "*" la)
   
6.   ) ;_ 结束SETQ
   
7.   (vlax-for nn (vla-get-layers *doc)
   
8.     (if       ;_ 这里不太会过虑出图层表,所以省略了
   
9.       (setq lay_list (cons (vla-get-name nn) lay_list)) ;_ 结束setq
   
10.     ) ;_ 结束if
    
11.   ) ;_ 结束vlax-for
    
12.   (repeat (length lay_list)
    
13.     (setq layer_X (nth ii lay_list))
    
14.     (command "-laymrg" "n" layer_X "" "n" layer_目标 "y")
    
15.     (setq ii (1+ ii))
    
16.   ) ;_ 结束defun
    
17. ) ;_ 结束defun
    
18. ;;(QWE "hidden")

(defun qwe (la / *OBJ *DOC lay_list)<br />   (SETQ  *OBJ (vlax-get-acad-object)<br />   *DOC (vla-get-activedocument *OBJ)<br />   ii   0<br />   la1  (strcat "*" la)<br />   ) ;_ 结束SETQ<br />   (vlax-for nn (vla-get-layers *doc)<br />     (if       ;_ 这里不太会过虑出图层表,所以省略了<br />       (setq lay_list (cons (vla-get-name nn) lay_list)) ;_ 结束setq<br />     ) ;_ 结束if<br />   ) ;_ 结束vlax-for<br />   (repeat (length lay_list)<br />     (setq layer_X (nth ii lay_list))<br />     (command "-laymrg" "n" layer_X "" "n" layer_目标 "y")<br />     (setq ii (1+ ii))<br />   ) ;_ 结束defun<br /> ) ;_ 结束defun<br /> ;;(QWE "hidden")

子恒

Andyhon 发表于 2013-1-30 22:05
(Command "chprop" (ssget "X" '((8 . "*_hidden"))) "" "LA" "MN" "C" "Bylayer" "Lt" "Bylayer" "")

非常感谢，这个代码MN 应该改成 hidden 吧，还有如何把 已经转换完的类似图层删掉，保留hidden，不过不能删除其他 如dim，center 等不含hidden的图层。

xsso

1. (defun qwe (la / *OBJ *DOC lay_list)
   
2.   (vl-load-com)
   
3.   (SETQ        *OBJ (vlax-get-acad-object)
   
4.         *DOC (vla-get-activedocument *OBJ)
   
5.         ii   0
   
6.         la   (STRCASE la)
   
7.         la1  (strcat "*" la)
   
8.   ) ;_ 结束SETQ
   
9.   (vlax-for nn (vla-get-layers *doc)
   
10.     (if        (and (vl-string-search la (STRCASE (vla-get-name nn)))
    
11.              (/= (STRCASE (vla-get-name nn)) la)
    
12.         )
    
13.       (setq lay_list (cons (vla-get-name nn) lay_list)) ;_ 结束setq
    
14.     ) ;_ 结束if
    
15.   ) ;_ 结束vlax-for
    
16.   (repeat (length lay_list)
    
17.     (setq layer_X (nth ii lay_list))
    
18.     (command "-laymrg" "n" layer_X "" "n" la "y")
    
19.     (setq ii (1+ ii))
    
20.   ) ;_ 结束defun
    
21. ) ;_ 结束defun

(defun qwe (la / *OBJ *DOC lay_list)<br />   (vl-load-com)<br />   (SETQ        *OBJ (vlax-get-acad-object)<br />         *DOC (vla-get-activedocument *OBJ)<br />         ii   0<br />         la   (STRCASE la)<br />         la1  (strcat "*" la)<br />   ) ;_ 结束SETQ<br />   (vlax-for nn (vla-get-layers *doc)<br />     (if        (and (vl-string-search la (STRCASE (vla-get-name nn)))<br />              (/= (STRCASE (vla-get-name nn)) la)<br />         )<br />       (setq lay_list (cons (vla-get-name nn) lay_list)) ;_ 结束setq<br />     ) ;_ 结束if<br />   ) ;_ 结束vlax-for<br />   (repeat (length lay_list)<br />     (setq layer_X (nth ii lay_list))<br />     (command "-laymrg" "n" layer_X "" "n" la "y")<br />     (setq ii (1+ ii))<br />   ) ;_ 结束defun<br /> ) ;_ 结束defun

终于搞清怎样过滤
输入
(QWE "hidden")