ctclsc 发表于 2021-6-29 09:34:45

zwf100 发表于 2021-7-24 15:54:05

楼主非常棒:victory:

toeastone 发表于 2021-8-13 10:45:48

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

pizi158545086 发表于 2021-10-30 08:51:20

感谢分享无私分享

sammy 发表于 2023-6-5 11:57:35

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

;[图层全部解锁]
(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 发表于 2023-6-5 12:05:24

上传修改后的程序。
页: 1 2 3 4 5 6 7 8 9 [10]
查看完整版本: 图层控制-源码，VL函数，非command，非修改组码