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

快速编写的代码
 
(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)

gS7 发表于 2022-7-6 05:47:51

另一个
3

Pablo Ferral 发表于 2022-7-6 06:04:24

这里有一些如何使用工具选项板上的宏的示例：http://www.cad-notes.com/2011/12/eleven-killer-tool-palette-macros-for-working-with-autocad-viewports/

Tharwat 发表于 2022-7-6 06:11:16

我希望OP的视口位于未锁定的图层上
还有人需要定位他的变量。

wimal 发表于 2022-7-6 06:18:38

谢谢各位，这两个代码都工作得很好。
页: [1]
查看完整版本: 锁定和解锁所有视口