求：固定汉字中间数字求和

king、

如：关键字 （汉字   个）

汉字10个，abc123汉字
汉字10个，汉字123汉字
汉字10个，aaa123
汉字10个aaa123
汉字10个aaa123汉字10个
AAA汉字10.5个aaa123汉字10.5个BBB
汉字汉字20个aaa123汉字10个个
汉字汉字10个个aaa123汉字汉字20个个
求和结果：141

vitalgg

king、 发表于 2023-5-19 08:46
(defun c:tt ()
        (sum-in-2str(text:get-mtext(car(entsel))) "汉字" "个")
)

你把多个单行文本的内容串起来，作为函数的第一个参数即可。

(sum-in-2str (apply 'strcat (mapcar 'text:get-mtext (pickset:to-list (ssget '((0 . "*text"))))))  "汉字" "个")

vitalgg

2. (defun sum-in-2str (str pre post)
   
3.   "对字符串str内 pre 和 post 之的数字求和"
   
4.   "number"
   
5.   (setq lst (string:auto-split str))
   
6.   (setq pre-str (car lst))
   
7.   (setq sum 0)
   
8.   (while (setq lst (cdr lst))
   
9.       
   
10.     (if(and
    
11.          (apply 'and (mapcar '= (reverse (string:s2l-ansi pre-str))
    
12.                                 (reverse (string:s2l-ansi pre))))
    
13.          (string:numberp (car lst))
    
14.          (apply 'and (mapcar '= (string:s2l-ansi (cadr lst))
    
15.                                 (string:s2l-ansi post))))
    
16.       (setq sum (+ sum (read (car lst)))))
    
17.     (setq pre-str (car lst)))
    
18.   sum)

(defun sum-in-2str (str pre post)<br />   "对字符串str内 pre 和 post 之的数字求和"<br />   "number"<br />   (setq lst (string:auto-split str))<br />   (setq pre-str (car lst))<br />   (setq sum 0)<br />   (while (setq lst (cdr lst))<br />       <br />     (if(and<br />          (apply 'and (mapcar '= (reverse (string:s2l-ansi pre-str))<br />                                 (reverse (string:s2l-ansi pre))))<br />          (string:numberp (car lst))<br />          (apply 'and (mapcar '= (string:s2l-ansi (cadr lst))<br />                                 (string:s2l-ansi post))))<br />       (setq sum (+ sum (read (car lst)))))<br />     (setq pre-str (car lst)))<br />   sum)

king、

vitalgg 发表于 2023-5-18 21:12

(defun c:tt ()
        (sum-in-2str(text:get-mtext(car(entsel))) "汉字" "个")
)

刚测试了下，可以用，感谢！这个是对多行文字有用，如果这几行是单行文字是没办法计算的，是我没表达清楚，能否改一个单行文本可以用的

king、

vitalgg 发表于 2023-5-19 11:38
你把多个单行文本的内容串起来，作为函数的第一个参数即可。

(sum-in-2str (apply 'strcat (mapcar 't ...

测试成，完美，谢谢！