这种视口布局小切换，求大神指点怎么做？

sbwdx

命令``空格，进入布局空间里面的模型空间，再用``空格，又回到布局空间，约等于来回切换。

1291500406

taoyi0727 发表于 2019-7-12 14:04
(defun c:a1 ()
        (vl-cmdf "_.MSPACE")
)

视口布局切换开关
(defun c:bb()(if(=(getvar ' CVPORT)1)(vl-cmdf "_.MSPACE")(vl-cmdf "_.PSPACE"))(princ))
模型布局切换开关
(defun c:bb1()(if (=(getvar ' tilemode)0) (setvar ' tilemode 1)(setvar ' tilemode 0))(princ))

KO你

1291500406 发表于 2019-7-12 14:09
视口布局切换开关
(defun c:bb()(if(=(getvar ' CVPORT)1)(vl-cmdf "_.MSPACE")(vl-cmdf "_.PSPACE"))(pri ...

(defun c:sf()
(if(=(getvar ' CVPORT)1)
(vl-cmdf "_.MSPACE")
(setq n (entsel "\n你现在退出视口空间")
(vl-cmdf "_.PSPACE")
(setq n (entsel "\n你现在进入视口空间"))
(princ))

(defun C:sf (/ sCmd sSpace oldvar)
  (if (= (getvar "TILEMODE") 0)
    (progn
      (if (> (getvar "CVPORT") 1)
        (setq sCmd "_.pspace"
              sSpace "\n你现在退出视口空间"
        )
        (setq sCmd "_.mspace"
              sSpace "\n你现在进入视口空间"
        )
      );;_fi
      (setq oldvar (getvar "CMDECHO"))
      (setvar "CMDECHO" 0)
      (vl-cmdf sCmd)
      (princ sSpace)
      (setvar "CMDECHO" oldvar)
    );;_progn
    (princ "\nYou are in Model!")
  );;_fi
  (princ)
);;_defun

石大师的就是简洁，用你的简码怎样把进入视口空间和退出视口空间像上面的程序一样加上指示呢

taoyi0727

(defun c:a1 ()
        (vl-cmdf "_.MSPACE")
)
(defun c:a2 ()
        (vl-cmdf "_.PSPACE")
)

taoyi0727

1291500406 发表于 2019-7-12 14:09
视口布局切换开关
(defun c:bb()(if(=(getvar ' CVPORT)1)(vl-cmdf "_.MSPACE")(vl-cmdf "_.PSPACE"))(pri ...

我也是刚查的   就是还没有查到那个当前位置系统变量
石头牛X哟

1291500406

为啥要封锁答案，给大家看不好吗

sbwdx

1291500406 发表于 2019-7-12 14:47
为啥要封锁答案，给大家看不好吗

好的哈,,,,,,,

e2002

上面这段代码是我在KO的提问帖中发的。
这种简单的代码，随手写的,大家随便用，随便改。

alexmai

我的设置是，现在的鼠标都有“宏”键，在其中一个快捷键设置为“ps 空格”，点一下就退出到图纸空间，双击窗口就进入模型，效率更快

etoxp

命令，双击进入，“PS”退出就可以了