求一个求和的程序，输入tt，框选带数字的文字，把数字用加号连接起来，并得出结果
求一个求和的程序，输入tt，框选带数字的文字，把数字用加号连接起来，并得出结果，吧计算式写在cad上面比如有数字1 2 3 4 则结果1+2+3+4=10， 如有文字你1我2 他3则出结果 1+2+3=6
664571221 发表于 2018-7-31 16:10
大神还在吗.....
;;===================求和===================
(DEFUN C:sum()
(setvar "cmdecho" 0)
(setq jd (getint "input 精度<0>:"))
(if (= jd nil) (setq jd 0))
(setq s (ssget '((1 . "**")))) ;选择含数字文本
(setq k -1 mm 0.0 numdb '())
(setq h2(cdr(assoc 40 (entget (ssname s 0)))))
(repeat (sslength s)
(setq a (entget (ssname s (setq k(1+ k)))))
(setq tx (cdr (assoc '1 a)))
(setq b (StrType tx)k2 -1)
(repeat (length b)
(setq txt2(nth (setq k2(1+ k2))b))
(if (numberp (read txt2))
(setq mm (+ (atof txt2) mm) numdb (cons txt2 numdb)))
)
)
(setq numdb(reverse numdb))
(setq mm (strcat (strcat (car numdb) (apply 'strcat (mapcar '(lambda (x) (strcat "+" x)) (cdr numdb)))) "=" (rtos mm 2 jd)))
;(setq mm (rtos mm 2 jd));仅显示计算结果
(initget "1 2")
(setq fs(getkword "\n(1)新建文本 (2)覆盖文本<1>:"))
(cond
((or(= fs "1")(= fs nil))
(setq po (getpoint "\n指定计算结果的写入点:"))
(entmake (list '(0 . "TEXT") (cons 1 mm)(cons 8 "0")(cons 10 po)(cons 40 h2)(cons 62 7)))
)
((= fs "2")
(while(/= (cdr(assoc 0 (setq en (entget(car (entsel "\n请选择要覆盖的文本: ")))))) "TEXT"))
(entmod (subst (cons 1 mm) (assoc 1 en) en))
)
)
(setvar "cmdecho" 1)
(princ)
)
(defun StrType(a / b c d e);;字符串分离全角、符号、字母、数字,存在问题：连续小数点与数字相连不能精确分离数字和小数点
(setq b(vl-string->list a))
(while b
(setq a(car b)b(cdr b)c(last d))
(if(or(not d)
(and(< 0 a 32)(< 0 c 32));;非打印字符
(or(= 46 a)(= 46 c)(and(< 47 a 58)(< 47 c 58)));数字和小数点
(vl-every'(lambda(x)(vl-some'(lambda(y)(<(car y)x(cadr y)))'((31 48)(57 65)(90 98)(122 129))))(list a c));其它字符包括小数点
(vl-every'(lambda(x)(vl-some'(lambda(y)(<(car y)x(cadr y)))'((64 91)(96 123))))(list a c));;字母
(and(> a 128)(> c 128)));;全角字符
(if(> a 128)(setq d(vl-list*(car b)a d)b(cdr b))(setq d(cons a d)))
(setq e(cons(reverse d)e)d(if(> a 128)(list(car b)a)(List a))b(if(> a 128)(cdr b)b))
)
)
(mapcar'vl-list->string(reverse(cons(reverse d)e)))
) 本帖最后由 sunny_8848 于 2018-8-2 09:02 编辑
lifuq1979 发表于 2018-8-1 20:48
;;===================求和===================
(DEFUN C:sum()
(setvar "cmdecho" 0)
请教，用text命令的文本数字，怎么出现这样的结果？
能帮忙改成标注数字相加后的如下图结果吗
这样吗-----------------------
lifuq1979 发表于 2018-7-30 19:02
这样吗-----------------------
是这样子，是的是的。 lifuq1979 发表于 2018-7-30 19:02
这样吗-----------------------
大神还在吗..... sunny_8848 发表于 2018-8-2 09:00
请教，用text命令的文本数字，怎么出现这样的结果？
能帮忙改成标注数字相加后的如下图结果吗
可以的，可以的，可以的， lifuq1979 发表于 2018-8-1 20:48
;;===================求和===================
(DEFUN C:sum()
(setvar "cmdecho" 0)
能否改成以米未单位，如果小数后的尾数是0，把0省略掉，如果不是0，保留三位小数 学习中学习中学习中 lifuq1979 发表于 2018-8-1 20:48
;;===================求和===================
(DEFUN C:sum()
(setvar "cmdecho" 0)
大神我知道了是我理解错误了，不用改了 你这个是正确的