社区 › Auto Lisp › 反向锁定层？

andy_lee 发表于 2022-7-5 22:55:05

反向锁定层？

大家好。
 
我需要这样的常规训练。
 
运行命令，将已锁定的图层解锁，并锁定未锁定的图层

MSasu 发表于 2022-7-5 23:00:49

您应该使用TBLNEXT来构建层列表；使用next ENTGET和ASSOC检查存储锁定状态的DXF代码70（位2）；仅在具有ENTMOD的层。
此代码示例将为您提供第一层的相关列表：
(entget (tblobjname "LAYER" (cdr (assoc 2 (tblnext "LAYER" T)))))

andy_lee 发表于 2022-7-5 23:04:41

 
很抱歉MSasu，我不懂编程。

BIGAL 发表于 2022-7-5 23:06:12

如果我能找到时间，使用VLA的另一种方法可以完成代码
完成，试试这个
 
 

(vl-load-com)
(vlax-for lay (vla-get-layers
            (vla-get-activedocument
            (vlax-get-acad-object))) ; retrieve laer table
(setq laylock (vla-get-lock lay)) ; is layer locked
(if (= laylock :vlax-true)
   (vla-put-lock lay :vlax-false) ;swap lock
   (vla-put-lock lay :vlax-true); swap lock
)
)

Tharwat 发表于 2022-7-5 23:10:54

(defun c:revlock (/ l)
(vlax-for l (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(vla-put-lock l (if (vl-position (vla-get-lock l) '(:vlax-true)) :vlax-false :vlax-true )
)
)
(princ)
)(vl-load-com)

andy_lee 发表于 2022-7-5 23:14:58

 
好，测试ok！谢谢比格尔。

andy_lee 发表于 2022-7-5 23:18:50

 
 
好的测试正常！Tharwat，谢谢！

Tharwat 发表于 2022-7-5 23:20:38

 
很高兴得到您的批准。

andy_lee 发表于 2022-7-5 23:25:50

 
嗨，Tharwat，还有一个问题，当图层被锁定时，为什么物体的颜色不暗？

Tharwat 发表于 2022-7-5 23:30:27

 
这与你的锁定层淡入淡出设置有关，与我发布的最后一个例程无关。

查看完整版本: 反向锁定层？