图纸空间 视口进出

atone

e2002 发表于 2019-6-16 01:04
这种简单程序就不要收币吧？

这个我这里AutoCAD2023没用，少了代码吗？

atone

e2002 发表于 2019-6-16 01:04
这种简单程序就不要收币吧？

非常好用，太感谢啦

KO你

快捷键  sf  视口空间进出切换
(defun c:sf ()
(if (= (getvar "tilemode") 0)
(progn
(setvar "cmdecho" 0)
(if (> (getvar "cvport") 1)
(progn (command "_.pspace")(princ "\n PS pspace 退出视口"))
(progn (command "_.mspace")(princ "\n MS mspace 进入视口")))
(setvar "cmdecho" 1)))
(princ))