反向锁定层？

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

试试这个。

copy


(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，非常感谢！很不错的！

copy

(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-LayerOn  l) '(:vlax-true)) :vlax-false :vlax-true )
 )
)
(princ)
)

[编程交流] 反向锁定层？

发表回复

精选推荐