如何使用lisp解锁所有图层？

shenfjliu

如何使用lisp解锁所有被锁定的图层？

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.     (if (= (vla-get-lock l) :vlax-true)
    
11.       (vla-put-lock l :vlax-false)
    
12.     )
    
13.   )
    
14.   (princ)
    
15. )
    

(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 />     (if (= (vla-get-lock l) :vlax-true)<br />       (vla-put-lock l :vlax-false)<br />     )<br />   )<br />   (princ)<br /> )<br />

sh_h

Lisphk 发表于 2017-4-22 23:05

谢谢大师，我有个问题请教一下，就是我发现通过程序解锁图层后，图层是解锁了而且对象也可以编辑了但是对象的显示状态还是锁住时的样子，看上去比较暗，而且用regen或regenall也不起作用，不知道为什么？Win7+cad2010 都是64位的

xyp1964

(command"layer""t" "*" "")

shenfjliu

感谢各位！