删除指定的图层（可在DBX下使用）

marting

可以在OBJECTDBX下使用

1. (defun XD::DOC:Deletelayers (doc layers / dbxlayers layer objlst)
   
2.   (if (not doc)
   
3.     (setq doc (vla-get-activedocument (vlax-get-acad-object)))
   
4.   )
   
5.   (setq dbxlayers (vla-get-layers doc))
   
6.   (foreach name layers
   
7.     (if (null
   
8.           (vl-catch-all-error-p
   
9.             (setq layer (vl-catch-all-apply 'vla-item (list dbxlayers name)))
   
10.           )
    
11.         )
    
12.       (progn (vl-catch-all-apply
    
13.                'vla-put-freeze
    
14.                (list layer :vlax-false)
    
15.              )
    
16.              (vla-put-lock layer :vlax-false)
    
17.              (vla-put-layeron layer :vlax-true)
    
18.              (setq objlst (cons layer objlst))
    
19.       )
    
20.     )
    
21.   )
    
22.   (if objlst
    
23.     (progn (vlax-for block (vla-get-blocks doc)
    
24.              (vlax-for obj block
    
25.                (if (member (vla-get-layer obj) layers)
    
26.                  (vl-catch-all-apply (function (lambda () (vla-delete obj))))
    
27.                )
    
28.              )
    
29.            )
    
30.            (foreach layer objlst
    
31.              (vl-catch-all-apply
    
32.                (function (lambda () (vla-delete layer)))
    
33.              )
    
34.            )
    
35.            t
    
36.     )
    
37.   )
    
38. )
    

(defun XD::DOC:Deletelayers (doc layers / dbxlayers layer objlst)<br />   (if (not doc)<br />     (setq doc (vla-get-activedocument (vlax-get-acad-object)))<br />   )<br />   (setq dbxlayers (vla-get-layers doc))<br />   (foreach name layers<br />     (if (null<br />           (vl-catch-all-error-p<br />             (setq layer (vl-catch-all-apply 'vla-item (list dbxlayers name)))<br />           )<br />         )<br />       (progn (vl-catch-all-apply<br />                'vla-put-freeze<br />                (list layer :vlax-false)<br />              )<br />              (vla-put-lock layer :vlax-false)<br />              (vla-put-layeron layer :vlax-true)<br />              (setq objlst (cons layer objlst))<br />       )<br />     )<br />   )<br />   (if objlst<br />     (progn (vlax-for block (vla-get-blocks doc)<br />              (vlax-for obj block<br />                (if (member (vla-get-layer obj) layers)<br />                  (vl-catch-all-apply (function (lambda () (vla-delete obj))))<br />                )<br />              )<br />            )<br />            (foreach layer objlst<br />              (vl-catch-all-apply<br />                (function (lambda () (vla-delete layer)))<br />              )<br />            )<br />            t<br />     )<br />   )<br /> )<br />

aisong220