[求助]陷入了死循环，退不出来。

小妹丁 · 发表于 2010-10-26 00:07:00

(while (setq txt (strcase (getstring t "\n填写内容:")))
(setq ptnew (polar pt (* pi 0.5) 7.0))
(command "mtext" ptnew "J" "ML" "H" 3.5 "w" 44 txt "")
(setq pt ptnew)
)

以前，好像这样写没问题的。2011版。

liu_kunlun · 发表于 2010-10-26 08:55:00

(while (/= "" (setq txt (strcase (getstring t "\n填写内容:"))))
(setq ptnew (polar pt (* pi 0.5) 7.0))
(command "mtext" ptnew "J" "ML" "H" 3.5 "w" 44 txt "")
(setq pt ptnew)
)

小妹丁 · 发表于 2010-10-26 22:26:00

谢，改不是问题，""和nil如何区别理解？

masterlong · 发表于 2010-10-26 22:49:00

(type nil)

(type "")

ZZXXQQ · 发表于 2010-10-26 23:12:00

LISP中非“空”即“真”。所以""为“真”。

zark · 发表于 2010-10-27 15:31:00

ZZXXQQ言中要害

小妹丁 · 发表于 2010-10-27 21:27:00

谢各位

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

[基础] [求助]陷入了死循环，退不出来。