图纸空间 视口进出

KO你

快捷键  sf  视口空间进出
(defun c:sf () (command"mspace"))；空格一次进入视口
                     (command"pspace"))；空格二次退出视口

怎样实现同个命令，输入命令空格一次与两二次的切换。

e2002

这种简单程序就不要收币吧？

1. ;; Switch layout mspace/pspace
   
2. 
   
3. ;; Rev:
   
4. ;; 0.0.1        :2019/06/16        :InitVersion
   
5. 
   
6. (defun C:lkpt_Layout_SpaceSwitch (/ sCmd sSpace oldvar)
   
7.   (if (= (getvar "TILEMODE") 0)
   
8.     (progn
   
9.       (if (> (getvar "CVPORT") 1)
   
10.         (setq sCmd "_.pspace"
    
11.               sSpace "\nYou are in layout Pspace now!"
    
12.         )
    
13.         (setq sCmd "_.mspace"
    
14.               sSpace "\nYou are in layout Viewport_MSpace now!"
    
15.         )
    
16.       );;_fi
    
17.       (setq oldvar (getvar "CMDECHO"))
    
18.       (setvar "CMDECHO" 0)
    
19.       (vl-cmdf sCmd)
    
20.       (princ sSpace)
    
21.       (setvar "CMDECHO" oldvar)
    
22.     );;_progn
    
23.     (princ "\nYou are in Model!")
    
24.   );;_fi
    
25.   (princ)
    
26. );;_defun

;; Switch layout mspace/pspace<br /> <br /> ;; Rev:<br /> ;; 0.0.1        :2019/06/16        :InitVersion<br /> <br /> (defun C:lkpt_Layout_SpaceSwitch (/ sCmd sSpace oldvar)<br />   (if (= (getvar "TILEMODE") 0)<br />     (progn<br />       (if (> (getvar "CVPORT") 1)<br />         (setq sCmd "_.pspace"<br />               sSpace "\nYou are in layout Pspace now!"<br />         )<br />         (setq sCmd "_.mspace"<br />               sSpace "\nYou are in layout Viewport_MSpace now!"<br />         )<br />       );;_fi<br />       (setq oldvar (getvar "CMDECHO"))<br />       (setvar "CMDECHO" 0)<br />       (vl-cmdf sCmd)<br />       (princ sSpace)<br />       (setvar "CMDECHO" oldvar)<br />     );;_progn<br />     (princ "\nYou are in Model!")<br />   );;_fi<br />   (princ)<br /> );;_defun

e2002

你要的是个切换程序。

KO你

e2002 发表于 2019-6-16 20:51
你要的是个切换程序。

对，用空格确定次数来切换，在论坛上我只找到空格一次的切换，没有我想要的效果

satan421

;;你也可以说，这么简单就不要提问了

sj800918

不理解为什么需要这个功能

圣天诺杰

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

能不能在这基础上增加选择视口进入？

圣天诺杰

大视口套小视口，双击进入不如人愿，需要个选择视口进入的功能

ketxu

Thanks for sharing ^^

00放飞梦想00

循环激活视口直接 Ctrl+R就是不错的选择