反向锁定层？

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的另一种方法可以完成代码
完成，试试这个

copy


(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

copy

(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)