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

andy_lee 发表于 2022-7-5 23:32:43

 
 
点击“锁定”图标，可以看到颜色的变化。
 

 

 

 

Tharwat 发表于 2022-7-5 23:35:43

根据需要更改与锁定层的淡入度颜色相关的系统变量（laylockfadectl）。

andy_lee 发表于 2022-7-5 23:37:38

 
I更改laylockfadectl=80
我用你的惯例，不改变颜色。需要刷新　？　Ｉ使用“regenall”，也一样。

Tharwat 发表于 2022-7-5 23:44:24

你具体想要什么？
您在示例中处理外部参照吗？

andy_lee 发表于 2022-7-5 23:45:54

 
不是外部参照。
 

 
layer3已解锁，但颜色仍为深色。　如何刷新

andy_lee 发表于 2022-7-5 23:48:28

我认为需要“再生”，有时“再生”是不好的，如何添加“再生”在你的日常生活？

Tharwat 发表于 2022-7-5 23:51:39

试试这个。
 

(defun c:revlock (/ l a b doc)
(vlax-for l (vla-get-layers (setq doc (vla-get-activedocument (vlax-get-acad-object))))
   (if (eq (vla-get-lock l) :vlax-true)
   (setq a (cons (strcat (vla-get-name l) ",") a))
   (setq b (cons (strcat (vla-get-name l) ",") b))
   )
)
(if b
   (command "_.-layer" "_lock" (apply 'strcat b) "")
)
(if a
   (command "_.-layer" "_Unlock" (apply 'strcat a) "")
)
(vla-regen doc acallviewports)
(princ)
)(vl-load-com)

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

Tharwat，非常感谢！很不错的！
 
(defun c:revoff (/ l)
(vlax-for l (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(vla-put-LayerOn l (if (vl-position (vla-get-LayerOnl) '(:vlax-true)) :vlax-false :vlax-true )
)
)
(princ)
)

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