[求助]：文字之和并写出来出问题了

露水2

(defun c:total( / cmdmode sset ssl nsset temp ssl1 total)

(if *error* quit)

(setq cmdmode (getvar "cmdecho"))

(setvar "cmdecho" 0)

(prompt "\nSelect numbers to add: ")

(setq sset (ssget))

(if (null sset)

(princ "\nError: Nothing selected!\n")

;过滤出选中的“text”实体，并报告有多少“text”实体被选中。

(progn

(setq ssl (sslength sset))

(setq nsset (ssadd))

(while (> ssl 0)

(setq temp (ssname sset (setq ssl(1- ssl))))

(if (= (cdr (assoc 0 (entget temp))) "TEXT")

(ssadd temp nsset)

)

)

(setq ssl (sslength nsset))

(print ssl)

(princ "text entities are found.")

;选出所有可转化为数的“TEXT”，并求和。

(setq total 0)

(setq ssl1 ssl)

(while (> ssl 0)

(setq temp (ssname nsset (setq ssl (1- ssl))))

(setq number (atof(cdr(assoc 1 (entget temp)))))

(if (= 0 number)

(setq ssl1 (1- ssl1))

(setq total (+ total number))

)

)

;显示和及加数的个数，便于用户检查是否多选或漏选。

(princ "\nThe total is ")

(princ total)

(princ "of the ")

(princ ssl1)

(princ "numbers\n")

)

)
(command "units" "2" "1" "" "" "" "" "")
(COMMAND "style" "wanghai" "新宋体" "300" "1" "0" "" "")
(setq pt1(getpoint"\n\t放置点 : "))
(command "text" "j" "mc" pt1 "0" total)


(setvar "CMDECHO" cmdmode)

)

xyp1964

2. [FONT=courier new](defun c:test ()
   
3.   (setvar"DIMZIN"0)
   
4.   (setq        ss (ssget '((0 . "TEXT")))
   
5.         i  -1
   
6.         n  0
   
7.   )
   
8.   (while (setq s1 (ssname ss (setq i (1+ i))))
   
9.     (setq n (+ n (distof (cdr (assoc 1 (entget s1)))))
   
10.     )
    
11.   )
    
12.   (princ "\nThe total is ")
    
13.   (princ n)
    
14.   (princ " of the ")
    
15.   (princ i)
    
16.   (princ " numbers.")
    
17.   (COMMAND "style" "wanghai" "新宋体" "300" "1" "0" "" "")
    
18.   (if (setq pt1 (getpoint "\n放置点 : "))
    
19.     (command "text" "j" "mc" pt1 "0" (rtos n))
    
20.   )
    
21.   (princ)
    
22. )[/FONT]

[FONT=courier new](defun c:test ()<br />   (setvar"DIMZIN"0)<br />   (setq        ss (ssget '((0 . "TEXT")))<br />         i  -1<br />         n  0<br />   )<br />   (while (setq s1 (ssname ss (setq i (1+ i))))<br />     (setq n (+ n (distof (cdr (assoc 1 (entget s1)))))<br />     )<br />   )<br />   (princ "\nThe total is ")<br />   (princ n)<br />   (princ " of the ")<br />   (princ i)<br />   (princ " numbers.")<br />   (COMMAND "style" "wanghai" "新宋体" "300" "1" "0" "" "")<br />   (if (setq pt1 (getpoint "\n放置点 : "))<br />     (command "text" "j" "mc" pt1 "0" (rtos n))<br />   )<br />   (princ)<br /> )[/FONT]

露水2

还是没有达到预期效果


xyp1964在给乘、除、减的代码吧！谢谢

xyp1964

试试签名栏下的“数字运算”程序。

ljpnb

你把这句(command "text" "j" "mc" pt1 "0" total)
改成  (command "text" "j" "mc" pt1 "" "" (rtos total))，最主要是把total改成(rtos total)