[编程申请]：寻找把文本中的数字自动相加的程序!!!

taoyuan

寻找把文本中的数字自动相加的程序
比如说,某某甲5,某某甲6,然后框选一下,就能自动把文本中的数字自动相加,变成11
继续设想:能不能在几个不同名称带数字的文本中,框选时,进行自动过滤.只留下自己想要的名称的数字总和.
向高手求助,谢谢!!

yshf

;请试用以下程序
;同名称带数字文本由两部分组成：
;前面部分只能由字母、汉字等组成，不得含有数字、小数点及加减号；
;后面部分只能由数字、小数点及加减号组成，不得含有其它符号。
(defun c:cc()
  (while (setq en (car (entsel "\n请指定同名称带数字文本中的任何一个:")))
     (setq zf (cdr (assoc 1 (entget en)))
           sz (vl-list->string
                (vl-remove-if
                   '(lambda(x)(or (= x 44 )(= x 47)(< x 43)(> x 57)))
                    (vl-string->list zf)
                )
              )
           zf (vl-string-right-trim sz zf)
     )
     (if (setq ssa (ssget "w" (setq p0 (getpoint "\n请指定统计范围左上角:"))
                              (getcorner p0 "\n请指定统计范围右下角:")
                              (list (cons 0 "Text") (cons 1 (strcat zf "*")))
                    )
         )
         (progn
            (command "_chprop" ssa "" "c" "1" "")
            (setq zh 0 n (sslength ssa) i 0)
            (repeat n
               (setq zz (cdr (assoc 1 (entget (ssname ssa i))))
                     zh (+ zh (atof (vl-list->string
                                      (vl-remove-if
                                         '(lambda(x)(or (= x 44 )(= x 47)(< x 43)(> x 57)))
                                          (vl-string->list zz)
                                      )
                                    )
                               )
                        )
                     i  (1+ i)
               )
           )
           (alert (strcat "统计范围内数字总和为：" (rtos zh)))
           (command "_u")
        )
     )
  )
  (princ)
)

taoyuan

最初由 yshf 发布
[B];请试用以下程序
;同名称带数字文本由两部分组成：
;前面部分只能由字母、汉字等组成，不得含有数字、小数点及加减号；
;后面部分只能由数字、小数点及加减号组成，不得含有其它符号。
(defun c:cc()
  (while ... [/B]

谢谢.不过试验后发现该程序只对单行文字起作用,遇到多行文字便失效.另外,工作中需要连续相加统计标注面积时,遇到比如某某多少m2,便不能起作用.因为我标注时一般都是某某m和缩小的2分开的.当然这并不是这个程序的问题.可否加以改进?
继续向高手求助,谢谢!

li809

谢谢，能不能改一下，可以用来寻找相同字符的数量呢

434939575

yshf 发表于 2005-11-19 10:48
;请试用以下程序
;同名称带数字文本由两部分组成：
;前面部分只能由字母、汉字等组成，不得含有数字、小 ...

好。学习了。谢谢！