VLISP解锁、可见、解冻所有图层

Lisphk

1. (defun c:tt (/ ad)
   
2.   (vl-load-com)
   
3.   (setvar "clayer" "0")
   
4.   (vlax-for l (vla-get-layers
   
5.                 (setq ad (vla-get-activedocument
   
6.                            (vlax-get-acad-object)
   
7.                          )
   
8.                 )
   
9.               )
   
10.     (vla-put-lock l :vlax-false)
    
11.     (vlax-put-property l 'layeron :vlax-true)
    
12.     (if        (/= (vla-get-name l) "0")
    
13.       (vla-put-freeze l :vlax-false)
    
14.     )
    
15.   )                                       
    
16.   (princ)
    
17. )
    
18. 
    

(defun c:tt (/ ad)<br />   (vl-load-com)<br />   (setvar "clayer" "0")<br />   (vlax-for l (vla-get-layers<br />                 (setq ad (vla-get-activedocument<br />                            (vlax-get-acad-object)<br />                          )<br />                 )<br />               )<br />     (vla-put-lock l :vlax-false)<br />     (vlax-put-property l 'layeron :vlax-true)<br />     (if        (/= (vla-get-name l) "0")<br />       (vla-put-freeze l :vlax-false)<br />     )<br />   )                                        <br />   (princ)<br /> )<br /> <br />

炫翔

赞，支持一个

sicky111

VLISP代码就是精练

xvjiex

感谢分享 VLISP解锁、可见、解冻所有图层

willclark

VLISP代码就是精练

dyjwyqz5221

想让解冻后的图层在屏幕上可见，还得重生成才可以。

杨89

赞，支持一个