图层锁定解锁 变灰暗显问题

晨曦CAD

图层锁定解锁 变灰暗显问题整理

描述：图层锁定后自动暗显图层，解锁后恢复原来颜色
技术关键：LAYLOCKFADECTL 变量

1. (defun c:hglayerlocksingle(/ lay tof layobj oldLAYLOCKFADECTL)
   
2.   (defun tof(msg / )
   
3.     (if(= msg :vlax-true)
   
4.       (progn
   
5.       (setvar "LAYLOCKFADECTL" -90)
   
6.       (setq msg :vlax-false)
   
7.       )
   
8.       (progn
   
9.       (setvar "LAYLOCKFADECTL" 90)
   
10.       (setq msg :vlax-true)
    
11.       )
    
12.       )
    
13.     )
    
14.   (setq oldLAYLOCKFADECTL (getvar "LAYLOCKFADECTL"))
    
15. 
    
16.   (setq lay (cdr (assoc 8 (entget(car(entsel "\n选择需更改图层锁定状态的图元"))))))
    
17.   (setq layobj (vlax-ename->vla-object (tblobjname "layer" lay)))
    
18.   (vla-put-lock layobj (tof(vla-get-Lock layobj)))
    
19.   
    
20.   (setvar "LAYLOCKFADECTL" oldLAYLOCKFADECTL)
    
21.   (princ)
    
22. )

(defun c:hglayerlocksingle(/ lay tof layobj oldLAYLOCKFADECTL)<br />   (defun tof(msg / )<br />     (if(= msg :vlax-true)<br />       (progn<br />       (setvar "LAYLOCKFADECTL" -90)<br />       (setq msg :vlax-false)<br />       )<br />       (progn<br />       (setvar "LAYLOCKFADECTL" 90)<br />       (setq msg :vlax-true)<br />       )<br />       )<br />     )<br />   (setq oldLAYLOCKFADECTL (getvar "LAYLOCKFADECTL"))<br /> <br />   (setq lay (cdr (assoc 8 (entget(car(entsel "\n选择需更改图层锁定状态的图元"))))))<br />   (setq layobj (vlax-ename->vla-object (tblobjname "layer" lay)))<br />   (vla-put-lock layobj (tof(vla-get-Lock layobj)))<br />   <br />   (setvar "LAYLOCKFADECTL" oldLAYLOCKFADECTL)<br />   (princ)<br /> )

参考帖子：

http://bbs.mjtd.com/forum.php?mod=viewthread&tid=69187&extra=&highlight=%CB%F8%B6%A8%2B%B0%B5&page=1

http://bbs.mjtd.com/thread-83744-1-1.html

panliang9

谢谢楼主分享！

mokson

这样就很明显地知道图层是锁定还是解锁状态了。

xj6019

谢谢楼主分享！

BUBUBA918

如何多选图元？？？

gzcsun

图纸一大就太慢，没有什么用。直接 -LA 就可以。

e2002

印象中这个问题我以前回答过的...
果然在参考帖子里找到了我在2011年的回复

gzcsun

e2002 发表于 2022-9-15 16:56
印象中这个问题我以前回答过的...
果然在参考帖子里找到了我在2011年的回复

           
什么回复?        

F海市蜃楼

不是CAD本身锁定就暗显吗？

friendship

谢谢楼主，谢谢