[求助]自己尝试着编了个读取面积的程序，但有问题，请大家帮帮忙！

sosomany · 发表于 2010-7-8 17:40:00

我想实现对多个面积的读取，并把结果存放到记事本里，但程序运行到area命令时，我读完

一个面积，但不知怎么让它跳出去，继续进行下一步，请好心人帮帮我！谢谢！

;GETAREA
(defun C:GETAREA()
(setq dg (getreal "请输入所需断面数："))
(setq zg 3.5) ;字体高度
(setq a (getint "编号："))
(setq f (open "d:\面积.txt" "a"))
(setq a (- a 1))
(
while (< 1 dg)
     (setq a (1+ a))
     (setq P2 (getpoint "图号位置:"))
     (command "text")
     (command p2)
     (command zg)
     (command 0)
     (command a)
(command "AREA")

程序运行到这里就不知道怎么出去了，

比如我读完一个面积了，但我怎么停止呢？我如果按回车的话，就后面的也不运行了。一直停留在area这个命令里了。
(setq a1(getvar "AREA"))
(princ "面积 " f)
(princ a f)
(princ "= " f)
(princ a1 f)
(princ "\n" f)

(close f)
(prin1)
)

sosomany · 发表于 2010-7-8 17:40:00

自己先顶一下！

ZZXXQQ · 发表于 2010-7-8 21:20:00

(defun C:GETAREA ()
(setq dg (getreal "请输入所需断面数："))
(setq zg 3.5) ;字体高度
(setq a (getint "编号："))
(setq f (open "d:\面积.txt" "a"))
(setq a (- a 1))
(while (< 1 dg)
(setq a (1+ a))
(setq P2 (getpoint "图号位置:"))
(command "text" p2 zg 0 a)
(command "AREA" "E" PAUSE)
(setq a1(getvar "AREA"))
(princ "面积 " f)
(princ a f)
(princ "= " f)
(princ a1 f)
(princ "\n" f)
(setq dg (1- dg))
)
(close f)
(prin1)
)

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

[讨论] [求助]自己尝试着编了个读取面积的程序，但有问题，请大家帮帮忙！