有大大帮忙写一下，一键切换TILEMODE 0 和1么？

hooboxu

谢谢了。语言真心不会，基本CREL C +V

ZZXXQQ

2. (defun c:rr ()
   
3. (setvar "TILEMODE" (if (= (getvar "TILEMODE") 0) 1 0))
   
4. (princ)
   
5. )

(defun c:rr ()<br /> (setvar "TILEMODE" (if (= (getvar "TILEMODE") 0) 1 0))<br /> (princ)<br /> )

hooboxu

万分感谢ZZXXQQ版主大大

hooboxu

命令: (LOAD "C:/Documents and Settings/Administrator/桌面/切换.lsp") 恢复缓存的视口.
; 错误: 输入中含有多余的闭括号

好像出错了[em0]

hooboxu

http://bbs.mjtd.com/thread-107336-2-1.html

hooboxu

解决了,谢谢大家!~~~~

maiko

hooboxu 发表于 2014-9-22 20:09
命令: (LOAD "C:/Documents and Settings/Administrator/桌面/切换.lsp") 恢复缓存的视口.
; 错误: 输入中 ...

z版代码没问题,求助不要发[em0]这种表情

namezg

(defun c:rr ()
(setvar "TILEMODE" (1- (getvar "TILEMODE")))
(princ)
)

ZZXXQQ

2. (defun c:rr ()
   
3. (setvar "TILEMODE" (rem (1+ (getvar "TILEMODE") 2)))
   
4. (princ)
   
5. )

(defun c:rr ()<br /> (setvar "TILEMODE" (rem (1+ (getvar "TILEMODE") 2)))<br /> (princ)<br /> )

hooboxu

一直都有是感激所有关注和回复帖子的人,没有冒犯Z版的意思, 谢谢maiko提醒

谢谢大家