论坛 › A/VLISP › VLISP解锁、可见、解冻所有图层

Lisphk 发表于 2016-9-10 19:24:09

VLISP解锁、可见、解冻所有图层

(defun c:tt (/ ad)
(vl-load-com)
(setvar "clayer" "0")
(vlax-for l (vla-get-layers
                (setq ad (vla-get-activedocument
                           (vlax-get-acad-object)
                       )
                )
              )
    (vla-put-lock l :vlax-false)
    (vlax-put-property l 'layeron :vlax-true)
    (if        (/= (vla-get-name l) "0")
      (vla-put-freeze l :vlax-false)
    )
)                                       
(princ)
)

炫翔 发表于 2016-9-11 07:59:02

赞，支持一个

sicky111 发表于 2016-9-11 10:22:05

VLISP代码就是精练

xvjiex 发表于 2021-10-1 00:04:44

感谢分享 VLISP解锁、可见、解冻所有图层

willclark 发表于 2021-10-9 18:32:09

VLISP代码就是精练

dyjwyqz5221 发表于 2022-7-14 12:40:49

想让解冻后的图层在屏幕上可见，还得重生成才可以。

杨89 发表于 2022-7-18 10:45:36

赞，支持一个

happyending 发表于 2025-12-5 07:58:15

感谢分享有用的代码。

查看完整版本: VLISP解锁、可见、解冻所有图层