怎么实现累加呢结果会错呢？

梁旭武

各位高手：


3.56


4.58


3.76


我拿下面的程序来进行累加，怎么累加的结果有时正确有时错呢？给点意见好吗？



（defun c:lxw()


(setq ss(ssget '((0 . "text"))))


(setq i 0 sum 0)


(repeat (sslength ss)


(setq ss1(ssname ss i))


(setq ent(entget ss1))


(setq        da (rtos (cdr((socce 1 ent))))


(if (\= da 0)


(setq sum(+ sum         da))


)


(setq i (1+ i))


)


( setq p1(getpoint"\n结果放在。。。。。“））


(command "text" p1 3 0 sum)


)

小妹丁

(setq        da (rtos (cdr(([U]socce[/U] 1 ent))))？

meflying

楼上的写程序一定要仔细,这样写程序太不负责任了,其实你的程序并没有问题,就是你完全不仔细,错误点如下:1,(setq da (rtos (cdr((socce 1 ent)))),同楼上说的,就这句有三个问题,函数socce前面多一个括号,而且这里也不应该是socce,应该是用assoc,你是要把字符串边为数字,应该用函数atof,而不是rtos2,不等于应该是"/=",而不是"\="3,一些符号,如单引号,括号,应该用半角符号,

2. (defun c:lxw ()
3.    (setq ss (ssget '((0 . "text"))))
4.    (setq i 0
5.   sum 0
6.    )
7.    (repeat (sslength ss)
8.        (setq ss1 (ssname ss i))
9.        (setq ent (entget ss1))
10.        (setq da (atof (cdr (assoc 1 ent))))
11.        (if (/= da 0)
12.            (setq sum (+ sum da))
13.        )
14.        (setq i (1+ i))
15.    )
16.    (setq p1 (getpoint "\n结果放在。。。。。"))
17.    (command "text" p1 3 0 sum)
18. )

(defun c:lxw ()    (setq ss (ssget '((0 . "text"))))    (setq i 0   sum 0    )    (repeat (sslength ss)        (setq ss1 (ssname ss i))        (setq ent (entget ss1))        (setq da (atof (cdr (assoc 1 ent))))        (if (/= da 0)            (setq sum (+ sum da))        )        (setq i (1+ i))    )    (setq p1 (getpoint "\n结果放在。。。。。"))    (command "text" p1 3 0 sum) )

梁旭武

谢谢版主！不好意思，刚才是在网吧编写的，有此命令忘了，加上想快点写完玩游戏,，结果就这样了。


学生以后一定很小心很小心的。学无止境!!!