锁定指定图层和解锁所有图层（ActiveX)

Lisphk

1. ;; Unlock locked layers.
   
2.   ;; Argument: document object.
   
3.   ;; Returns a list of layer objects which were locked,
   
4.   ;; or nil if none are locked.
   
5.   ;; Typically the function filters out xref layers,
   
6.   ;; but not in this case.
   
7.   (defun MD:UnlockLayers (doc / laylst)
   
8.     (vlax-for x (vla-get-Layers doc)
   
9.       (if (eq :vlax-true (vla-get-lock x))
   
10.         (progn
    
11.           (setq laylst (cons x laylst))
    
12.           (vla-put-lock x :vlax-false)
    
13.         )
    
14.       )
    
15.     )
    
16.     laylst
    
17.   ) ;end
    
18. 
    
19.   ;; Argument: a list of layer objects from UnlockLayers above.
    
20.   ;; Use vl-catch-all-apply in case a locked
    
21.   ;; layer was deleted in the calling function.
    
22.   (defun MD:RelockLayers (lst)
    
23.     (foreach x lst
    
24.       (vl-catch-all-apply 'vla-put-lock (list x :vlax-true))
    
25.     )
    
26.   ) ;end
    

;; Unlock locked layers.<br />   ;; Argument: document object.<br />   ;; Returns a list of layer objects which were locked, <br />   ;; or nil if none are locked.<br />   ;; Typically the function filters out xref layers,<br />   ;; but not in this case.<br />   (defun MD:UnlockLayers (doc / laylst)<br />     (vlax-for x (vla-get-Layers doc)<br />       (if (eq :vlax-true (vla-get-lock x))<br />         (progn<br />           (setq laylst (cons x laylst))<br />           (vla-put-lock x :vlax-false)<br />         )<br />       )<br />     )<br />     laylst<br />   ) ;end<br /> <br />   ;; Argument: a list of layer objects from UnlockLayers above.<br />   ;; Use vl-catch-all-apply in case a locked<br />   ;; layer was deleted in the calling function.<br />   (defun MD:RelockLayers (lst)<br />     (foreach x lst<br />       (vl-catch-all-apply 'vla-put-lock (list x :vlax-true))<br />     )<br />   ) ;end<br />

zero423

跟大神学习学习!