一键切换空间

NET-JOB

CAD状态栏的模型布局按键老是会不见，感觉不方便，就做了这个一键切换

2. ;;;空间切换：鼠标在视口中的模型空间时，切换到布局
   
3. ;;;          鼠标在布局中时，切换到模型
   
4. ;;;          鼠标在模型中时，切换到布局
   
5. (defun C:VV ()
   
6.   (YX:Princ "空间切换")
   
7.   (if (and (= (getvar "TILEMODE") 0) (= (getvar "cvport") 1)) ;_判断鼠标是否在布局空间
   
8.     (setvar "TILEMODE" 1) ;_切换到模型
   
9.     (if (and (= (getvar "TILEMODE") 0) (> (getvar "cvport") 1)) ;_判断鼠标是否在布局空间视口中的模型中
   
10.       (command "_pspace") ;_切换到布局空间
    
11.       (setvar "TILEMODE" 0) ;_切换到布局空间
    
12.     )
    
13.   )
    
14.   (princ)
    
15. )

;;;空间切换：鼠标在视口中的模型空间时，切换到布局<br /> ;;;          鼠标在布局中时，切换到模型<br /> ;;;          鼠标在模型中时，切换到布局<br /> (defun C:VV ()<br />   (YX:Princ "空间切换")<br />   (if (and (= (getvar "TILEMODE") 0) (= (getvar "cvport") 1)) ;_判断鼠标是否在布局空间<br />     (setvar "TILEMODE" 1) ;_切换到模型<br />     (if (and (= (getvar "TILEMODE") 0) (> (getvar "cvport") 1)) ;_判断鼠标是否在布局空间视口中的模型中<br />       (command "_pspace") ;_切换到布局空间<br />       (setvar "TILEMODE" 0) ;_切换到布局空间<br />     )<br />   )<br />   (princ)<br /> )

st788796

少了 yx:princ  函数

hao3ren

把yx：去掉应该可以

NET-JOB

YX:Princ用来显示函数功能提示的，改成Princ就可以

清风明月10

谢谢楼主的分享！很有意思的代码，收藏备用。