求1个lsp程序，用个命令可以切换MSPACE PSPACE这两个命令

李青松

求1个lsp程序，用个命令可以切换MSPACE   PSPACE这两个命令

李青松

当是ms时切换到ps,当是ps时切换到ms。  不要使用屏幕中的切换按钮

Andyhon

Ref:
http://www.cadtutor.net/forum/archive/index.php/t-35891.html

李青松

我不是要tilemode这个变量的切换是要mspace  pspace这两个命令的切换，后1种切换都在布局中操作

zlg258369

2. (defun c:test (/ acadobject acaddocument)
   
3.   (setq  acadobject   (vlax-get-acad-object)
   
4.             acaddocument (vla-get-activedocument acadobject)
   
5.   )
   
6.   (if (= (vla-get-mspace acaddocument) :vlax-false)
   
7.     (command "mspace")
   
8.     (command "pspace")
   
9.   )
   
10. )

(defun c:test (/ acadobject acaddocument)<br />   (setq  acadobject   (vlax-get-acad-object)<br />             acaddocument (vla-get-activedocument acadobject)<br />   )<br />   (if (= (vla-get-mspace acaddocument) :vlax-false)<br />     (command "mspace")<br />     (command "pspace")<br />   )<br /> )

李青松

果然是金牌会员，谢谢你，问题已解决

清风明月名字

路过学习学习。谢谢分享！

niqiu8

zlg258369 发表于 2013-8-26 14:24

错误: Automation 错误。 模式无效
是为什么》？

zlg258369

niqiu8 发表于 2013-8-27 17:50
错误: Automation 错误。 模式无效
是为什么》？

布局里面用的

ctclsc

(defun c:kj (/)
(setvar 'tilemode (nth (getvar 'tilemode) '(1 0)))
(princ)
)