WHILE退不出了

amwkto2011 · 发表于 2014-10-20 09:13:10

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

(defun C:sk()
(princ "\n[标注带(1T)]:")
(setvar "cmdecho" 0)
(while T
(command "dim1" "ali" pause pause pause "<>(1T)")
);while
(princ)
)

;while怎么样退出去，现在只能按ESC键才能退出去。、
忘大神支招

Free-Lancer · 发表于 2014-10-20 10:26:02

(while (and (setq p1(getpoint "\nfirst point: "))
(setq p2 (getpoint p1 (getpoint "\nsecond point: "))
)
(command. …

amwkto2011 · 发表于 2014-10-20 10:35:09

first point:
second point: ; 错误: 参数类型错误: stringp: (1523.66 255.948 0.0)
(defun C:sk()
  (princ "\n[标注带(1T)]:")
  (setvar "cmdecho" 0)
(while (and (setq p1(getpoint "\nfirst point: "))
      (setq p2 (getpoint p1 (getpoint "\nsecond point: "))
      )
(command "dim1" "ali" p1 p2 pause "<>(1T)")
      );and
  );while
  );defum
在点第二点的时候出错了。

amwkto2011 · 发表于 2014-10-20 10:35:55

Free-Lancer 发表于 2014-10-20 10:26
(while (and (setq p1(getpoint "\nfirst point: "))
(setq p2 (getpoint p1 (getpoint "\nseco ...

first point:
second point: ; 错误: 参数类型错误: stringp: (1523.66 255.948 0.0)

Free-Lancer · 发表于 2014-10-20 10:40:55

给两点就没有pause了

amwkto2011 · 发表于 2014-10-20 11:21:30

Free-Lancer 发表于 2014-10-20 10:40
给两点就没有pause了

我去掉PAUSE，还是出错了

ll_j · 发表于 2014-10-20 12:44:39

程序退不出的原因是while的条件T，T和nil是一对特殊的逻辑符合，分别表达真和假，T总返回T。
while循环是在满足条件时进行的，使用T作为条件，就只能总是循环。

Free-Lancer · 发表于 2014-10-20 13:20:27

amwkto2011 发表于 2014-10-20 10:35

08 测试通过

(defun c:tt (/ p1 p2)
(setvar "cmdecho" 0)
(while (and (setq p1 (getpoint "\nfirst Point<Exit>: "))
(setq p2 (getpoint p1 "\nSecond Point<Exit>: "))
)
(command ".dim1" "ali" p1 p2 pause "<>(1T)")
)
(princ)
)

amwkto2011 · 发表于 2014-10-20 13:36:49

Free-Lancer 发表于 2014-10-20 13:20
08 测试通过

(setq p2 (getpoint p1 (getpoint "\nsecond point: "))
我弄成这样了，一直错。
也明白了，T为什么不能退出，谢谢各位
现在可以了，感谢各位让我每天进步一点{:soso_e100:}

XDSoft · 发表于 2014-10-20 22:52:07

amwkto2011 发表于 2014-10-20 13:36
(setq p2 (getpoint p1 (getpoint "\nsecond point: "))
我弄成这样了，一直错。
也明白了，T为什么不 ...

去看看这个函数，命令要是一直激活，一直PAUSE，通过系统变量控制循环退出。

http://bbs.xdcad.net/forum.php?mod=viewthread&tid=668843

amwkto2011 · 发表于 2014-10-21 09:25:02

XDSoft 发表于 2014-10-20 22:52
去看看这个函数，命令要是一直激活，一直PAUSE，通过系统变量控制循环退出。

http://bbs.xdcad.net/fo ...

老大我去看了，这个
(defun XD::DOC:dstop1 ()
  (setvar "cmdecho" 1)
  (command "dim1" "ali")
  (while (/= 0 (getvar "cmdactive"))
(command pause)
  )
  (setvar "cmdecho" 0)
)

不知道怎么用它，能否给个例子
(defun c:tt()
  (while t
  (command "dim1" "ali" pause pause pause "<>(1t)")
  )
  )

让它能退出去
谢谢

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

[每日一码] WHILE退不出了

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

点评

点评

点评

点评

点评