图层控制-源码，VL函数，非command，非修改组码

ctclsc

zwf100

楼主非常棒

toeastone

顶一下，建议继续增加物体隐藏，物体凸显等

pizi158545086

感谢分享无私分享

sammy

无意间闪过灵感，解锁图层后淡显恢复可以通过变通的方式实现。
在解锁图层的代码段加入下面两行代码即可。

;[图层全部解锁]
(defun GL:tcqbjs (/ AcadObject AcadDocument LayersObj vlay tuise)
       (setq AcadObject (vlax-get-acad-object)
              AcadDocument (vla-get-ActiveDocument AcadObject)
              LayersObj (vla-get-layers AcadDocument)
       );end setq
       (vlax-for vlay LayersObj
              (vla-put-lock vlay :vlax-false)
       );end vlax-for
                                 (setq tuise (getvar "LAYLOCKFADECTL"))
        (setvar "LAYLOCKFADECTL" (* tuise -1))
                                 (vla-regen AcadDocument AcAllViewPorts)
                                 (setvar "LAYLOCKFADECTL" tuise)
       (command "-layer" "");------新加
       (command "regen");------新加
       (princ "\n已解锁全部图层" )
       (princ)
);end defun

sammy

上传修改后的程序。