明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 1172|回复: 5

[求助]怎样使getstring的值为nil?

[复制链接]
发表于 2008-11-4 23:53:00 | 显示全部楼层 |阅读模式
本帖最后由 作者 于 2008-11-5 8:02:59 编辑

我在编写一段程序时,遇到下面的情况,就是当在
(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)
)
昨天大意,修改了,谢谢指出!

发表于 2008-11-5 07:47:00 | 显示全部楼层
没看明白你想表达啥意思。可能我菜吧。为什么你问问题时带nil,可是程序中却没有。
发表于 2008-11-5 08:38:00 | 显示全部楼层

Command: (getstring)
""

so
(while (/= NR "") ....)

 楼主| 发表于 2008-11-5 09:52:00 | 显示全部楼层
谢谢Andyhon大侠!
发表于 2008-11-5 12:18:00 | 显示全部楼层
本帖最后由 作者 于 2008-11-5 12:35:47 编辑

TLHMQH 好久不见,你去哪里////

回群吧..33410892

有啥问题,直接给你答案

发表于 2008-11-5 12:29:00 | 显示全部楼层
提示: 作者被禁止或删除 内容自动屏蔽
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2025-9-21 14:30 , Processed in 0.197312 second(s), 25 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表