锁定和解锁所有视口

wimal · 发表于 2022-7-6 05:15:10

是否有一个命令可以同时锁定和解锁所有视口。
如果没有，有人可以开发一个LISP代码。请

steven-g · 发表于 2022-7-6 05:29:15

宏锁定全部
全部解锁（&U）

_LA;U;*;;

哎呀，为什么我把它读成层呢

pBe · 发表于 2022-7-6 05:37:03

快速编写的代码

copy

(Defun c:vplk ()
(setq d (ssget "_x" '((0 . "VIEWPORT"))))
         (vplock d T)(princ))
(Defun c:vpun ()
(setq d (ssget "_x" '((0 . "VIEWPORT"))))
         (vplock d nil)
         (princ)
 )
(Defun vplock (sel flg)
        (setq mode (if flg  :vlax-true :vlax-false))
(repeat (setq i (sslength sel))
          (vlax-put-property (vlax-ename->vla-object (ssname sel (Setq i (1- i))))
            'DisplayLocked mode)
  )
         (princ (strcat "\nViewports " (if flg "" "Un" )  "locked"))(princ)
)                                  
(vl-load-com)