[原创]：misdi 请进: 删除层名带指定前缀的图层.

lsjjm

misdi 请进: 删除层名带指定前缀的图层.
原贴不能跟了, 贴在这里.
此程序功能:   删除层名带指定前缀的图层. 如果该层是当前层, 则将0层转为当前层后,
删除该层. 如果该层上有其他实体, 则删除实体后, 再删除该层.
不知是不是你所要求的, 试一试, 看有无什么问题?

2. 
   
3. (defun c:test ()
   
4.   (vl-load-com)
   
5.   (setq doc (vla-get-activedocument (vlax-get-acad-object)))
   
6.   (setq layers (vla-get-layers doc))
   
7.   (setq pre (getstring "\Type in Prefix of layer:"))
   
8.   (setq nl (strlen pre))
   
9.   (vlax-for item layers
   
10.     (if (= (strcase pre)(strcase (substr (vla-get-Name item) 1 nl)))
    
11.       (progn
    
12.         (if (= (getvar "clayer")(vla-get-Name item))
    
13.           (vla-put-activelayer doc (vla-item Layers 0))
    
14.         )
    
15.         (if (setq ss (ssget "x" (list (cons 8 (vla-get-Name item)))))
    
16.           (vl-cmdf "erase" ss "")
    
17.         )
    
18.         (vla-delete item)
    
19.       );
    
20.     )
    
21.   )
    
22. )

<br /> (defun c:test ()<br />   (vl-load-com)<br />   (setq doc (vla-get-activedocument (vlax-get-acad-object)))<br />   (setq layers (vla-get-layers doc))<br />   (setq pre (getstring "\Type in Prefix of layer:"))<br />   (setq nl (strlen pre))<br />   (vlax-for item layers<br />     (if (= (strcase pre)(strcase (substr (vla-get-Name item) 1 nl)))<br />       (progn<br />         (if (= (getvar "clayer")(vla-get-Name item))<br />           (vla-put-activelayer doc (vla-item Layers 0))<br />         )<br />         (if (setq ss (ssget "x" (list (cons 8 (vla-get-Name item)))))<br />           (vl-cmdf "erase" ss "")<br />         )<br />         (vla-delete item)<br />       );<br />     )<br />   )<br /> )

aeo

这个层的实体在块里呢?

陌生人

规避0，depoint层

iwzw

2楼的问题没解决。