帮忙修改数值求和

iszc

请帮忙修改，文字在数值后面求和，或数值前后都有文字的求和

(print "文本数字求和(型如:钉23,钉23.12,23.12,钉,多行文字先炸开,不支持负数),命令:txtsum")

(defun c:txtsum(/ all endno aa bb cc wz tha tsum i)
(if (null xzz) (setq xzz 0))
(setq ALL (ssget(list (cons 0 "text"))))
(if all (SETQ nn (SSLENGTH ALL)))
(setq endno 0)
(setq tsum 0 i 0)
(WHILE (and (< endno nn) all)
(setq aa (ssname all endno))
(setq bb (entget aa))
(setq cc(cdr(assoc 1 bb)))
(setq wz(rdata cc))
(setq tha(substr cc (+ wz 1) ( - (strlen cc) wz -1)))
(if (= tha "") (setq tha "0"))
(setq tsum(+ tsum (atof tha)))
(setq i(1+ i))
(print (strcat (itoa i) ":文本 <" cc ">---数字 <" tha ">"))
(setq endno (+ endno 1))
)
(print (strcat "共" (itoa i) "个文本，和=" (rtos tsum)))
(print)
)
;;;
(defun rdata(str / len i aa)
(if (> (strlen str) 0)
(progn
(setq i (strlen str))
(setq aa(substr str (strlen str) 1))
(while (and (or (and (>= aa "0") (<= aa "9"))
(= aa ".")
)
(>= i 1)
)
(setq i(1- i))
(if (>= i 1) (setq aa(substr str i 1)))
)
)
)
(setq i i)
)

飞雪神光

1. (defun c:txtsum(/ i lm-str2ch num ss str tha tsum)
   
2.         (defun lm-Str2ch (String / positioni YPOutString)
   
3.                 (setq positioni -1 aiilst'() jci 0)
   
4.                 (repeat (strlen string)
   
5.                         (setq ascm(vl-string-elt string (setq positioni (+ positioni 1))))
   
6.                         (if (or(< 47 ascm 58)(= ascm 45)(= ascm 46)(= ascm 32))
   
7.                                 (setq aiilst(append aiilst (list ascm)))
   
8.                                 (setq jci (1+ jci))
   
9.                         )
   
10.                 )
    
11.                 (car(mapcar'vl-list->string(reverse (list aiilst))))
    
12.         )
    
13.         (setq ss (ssget '((0 . "text"))))
    
14.         (if ss
    
15.                 (progn
    
16.                         (setq num (sslength ss))
    
17.                         (setq tsum 0 i 0)
    
18.                         (while (< i num)
    
19.                                 (setq str(cdr(assoc 1 (entget (ssname ss i)))))
    
20.                                 (setq tha(lm-Str2ch str))
    
21.                                 (if (= tha "") (setq tha "0"))
    
22.                                 (setq tsum(+ tsum (atof tha)))
    
23.                                 (setq i(1+ i))
    
24.                                 (princ (strcat "\n" (itoa i) ":文本 <" str ">---数字 <" tha ">"))
    
25.                         )
    
26.                         (princ (strcat "\n共" (itoa i) "个文本，和=" (rtos tsum)))
    
27.                 )
    
28.         )
    
29.         (princ)
    
30. )
    
31. (princ "\n文本数字求和(型如:钉23,钉23钉,钉23.12,-23.12,钉,多行文字先炸开,支持负数),命令:txtsum")
    
32. (princ)

(defun c:txtsum(/ i lm-str2ch num ss str tha tsum)<br />         (defun lm-Str2ch (String / positioni YPOutString)<br />                 (setq positioni -1 aiilst'() jci 0)<br />                 (repeat (strlen string)<br />                         (setq ascm(vl-string-elt string (setq positioni (+ positioni 1))))<br />                         (if (or(< 47 ascm 58)(= ascm 45)(= ascm 46)(= ascm 32))<br />                                 (setq aiilst(append aiilst (list ascm)))<br />                                 (setq jci (1+ jci))<br />                         )<br />                 )<br />                 (car(mapcar'vl-list->string(reverse (list aiilst))))<br />         )<br />         (setq ss (ssget '((0 . "text"))))<br />         (if ss<br />                 (progn<br />                         (setq num (sslength ss))<br />                         (setq tsum 0 i 0)<br />                         (while (< i num)<br />                                 (setq str(cdr(assoc 1 (entget (ssname ss i)))))<br />                                 (setq tha(lm-Str2ch str))<br />                                 (if (= tha "") (setq tha "0"))<br />                                 (setq tsum(+ tsum (atof tha)))<br />                                 (setq i(1+ i))<br />                                 (princ (strcat "\n" (itoa i) ":文本 <" str ">---数字 <" tha ">"))<br />                         )<br />                         (princ (strcat "\n共" (itoa i) "个文本，和=" (rtos tsum)))<br />                 )<br />         )<br />         (princ)<br /> )<br /> (princ "\n文本数字求和(型如:钉23,钉23钉,钉23.12,-23.12,钉,多行文字先炸开,支持负数),命令:txtsum")<br /> (princ)

meja

飞雪神光 发表于 2023-4-7 22:19

最后可以添加在指定位置放置文字，方便计算