查看单个帖子
旧 2009-04-26, 01:29 PM   #1
yang686526
高级会员
 
注册日期: 06-11
帖子: 14579
精华: 1
现金: 224494 标准币
资产: 234494 标准币
yang686526 向着好的方向发展
默认 [求助]怎样使getstring的值为nil?

[求助]怎样使getstring的值为nil?
www.dimcax.com
[求助]怎样使getstring的值为nil?
我在编写一段程序时,遇到下面的情况,就是当在
(setq nr (getstring "\n请输入下个标注内容: "))段
使用“回车”时,程序应当在
(while (/= nr nil)段退出,
可程序却继续运行到
(setq pt (getpoint "\n请指定标注点:"))段,
好象getstring值可以为nil
还是(/= nr nil)不对
不知错在那?请高手指正。
先谢谢!
(defun c:bz()
; ……
(setq nr (getstring "\n请输入标注内容: "))
(while (/= nr nil)
(setq pt (getpoint "\n请指定标注点:"))
(command "text" pt 30 0 nr)
(setq nr (getstring "\n请输入下个标注内容: ")))
(princ)
)
昨天大意,修改了,谢谢指出!
d
没看明白你想表达啥意思。可能我菜吧。为什么你问问题时带nil,可是程序中却没有。
d
command: (getstring)
""
so
(while (/= nr "") ....)
d
谢谢andyhon大侠!
d
tlhmqh 好久不见,你去哪里////
回群吧..33410892
有啥问题,直接给你答案
d
我也回啦,
yang686526离线中   回复时引用此帖
GDT自动化论坛(仅游客可见)