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

sbwdx · 发表于 2019-7-12 13:29:06

本帖最后由 sbwdx 于 2019-7-12 15:32 编辑

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

1291500406 · 发表于 2019-7-12 14:09:12

本帖最后由 1291500406 于 2019-7-12 14:21 编辑

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你 · 发表于 2019-7-12 16:10:55

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 · 发表于 2019-7-12 14:04:28

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

taoyi0727 · 发表于 2019-7-12 14:27:35

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

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

1291500406 · 发表于 2019-7-12 14:47:35

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

sbwdx · 发表于 2019-7-12 15:33:41

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

好的哈,,,,,,,

e2002 · 发表于 2019-7-15 13:32:01

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

alexmai · 发表于 2019-7-16 18:29:26

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

etoxp · 发表于 2019-7-17 21:02:50

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

账号		自动登录	找回密码
密码			注册

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

本帖子中包含更多资源

评分