求助：分类求和

gogozb

烦请老师们出手相助，我已经没有币可悬赏呢！
现在需要求和的数据样式有如图两种形式，需要得到有四种。

liuhe

你这个需求，我有经验搞过，但是没有现成的代码。

我可以提供编程思路，也可以提供插件定制，有兴趣加我qq859779429。

Klein

结果不是问题，主要工作量在数据提取上，如果你给的数据样式准确，实现起来应该不是特别难。
最笨的办法，单个读取字符，遇到要统计数量的关键字，就开始判断后续字符，如果是数字就持续读，直到非数字，然后把数字字符转化成数值，然后把关键字和数量做成点对存储起来方便处理。
我也是初学不久，什么正则表达式的不会，只能这个最笨的办法了

vitalgg

1. (setq res
   
2.       (stat:classify
   
3.        (mapcar
   
4.   '(lambda(x)
   
5.      (cons (car x)
   
6.      (atoi
   
7.       (cadr x))))
   
8.   (list:split
   
9.    (string:auto-split
   
10.     (string:subst-all "" "+"
    
11.           (entity:getdxf (car(entsel)) 1)))
    
12.    2))))
    
13. (setq pt (getpoint "绘制结果"))
    
14. (entity:make-text
    
15. (string:from-list
    
16.   (mapcar '(lambda(x)
    
17.        (strcat (car x)
    
18.          (itoa  (cdr x))))
    
19.     res)
    
20.   "+")
    
21. (setq pt (polar pt (* 1.5 pi) 5))
    
22. 3 0 0.8 0 "LB")
    
23. 
    
24. (entity:make-text
    
25. (string:from-list
    
26.   (mapcar '(lambda(x)
    
27.        (strcat (car x)
    
28.          (itoa  (cdr x))))
    
29.     res)
    
30.   "")
    
31. (setq pt (polar pt (* 1.5 pi) 5))
    
32. 3 0 0.8 0 "LB")
    
33. 
    
34. 
    
35. (foreach txt (mapcar '(lambda(x)
    
36.       (strcat (car x)
    
37.         (itoa  (cdr x))))
    
38.          res)
    
39.    (entity:make-text
    
40.     txt
    
41.     (setq pt (polar pt (* 1.5 pi) 5))
    
42.     3 0 0.8 0 "LB"))
    
43. 
    
44. (table:make
    
45. (setq pt (polar pt (* 1.5 pi) 5))
    
46. "统计表"
    
47. '("名称" "数量")
    
48. (append
    
49.   (mapcar '(lambda(x)
    
50.        (list (car x)(cdr x)))
    
51.     res)
    
52.   (list
    
53.    (list "合计"
    
54.    (apply '+ (mapcar 'cdr res))))
    
55. ))
    

(setq res<br />       (stat:classify<br />        (mapcar<br />   '(lambda(x)<br />      (cons (car x)<br />      (atoi<br />       (cadr x))))<br />   (list:split<br />    (string:auto-split<br />     (string:subst-all "" "+"<br />           (entity:getdxf (car(entsel)) 1)))<br />    2))))<br /> (setq pt (getpoint "绘制结果"))<br /> (entity:make-text<br /> (string:from-list<br />   (mapcar '(lambda(x)<br />        (strcat (car x)<br />          (itoa  (cdr x))))<br />     res)<br />   "+")<br /> (setq pt (polar pt (* 1.5 pi) 5))<br /> 3 0 0.8 0 "LB")<br /> <br /> (entity:make-text<br /> (string:from-list<br />   (mapcar '(lambda(x)<br />        (strcat (car x)<br />          (itoa  (cdr x))))<br />     res)<br />   "")<br /> (setq pt (polar pt (* 1.5 pi) 5))<br /> 3 0 0.8 0 "LB")<br /> <br /> <br /> (foreach txt (mapcar '(lambda(x)<br />       (strcat (car x)<br />         (itoa  (cdr x))))<br />          res)<br />    (entity:make-text<br />     txt<br />     (setq pt (polar pt (* 1.5 pi) 5))<br />     3 0 0.8 0 "LB"))<br /> <br /> (table:make<br /> (setq pt (polar pt (* 1.5 pi) 5))<br /> "统计表"<br /> '("名称" "数量")<br /> (append<br />   (mapcar '(lambda(x)<br />        (list (car x)(cdr x)))<br />     res)<br />   (list<br />    (list "合计"<br />    (apply '+ (mapcar 'cdr res))))<br /> ))<br />

基于 @lisp 函数库，代码中所有含有 : 的均为 @lisp提供的函数。
https://gitee.com/atlisp/atlisp-lib

如果无法播放，请点击此处在新窗口打开

gogozb

vitalgg 发表于 2023-1-12 18:13
基于 @lisp 函数库，代码中所有含有 : 的均为 @lisp提供的函数。
https://gitee.com/atlisp/atlisp-lib
...

谢谢大佬！后面有时间再研究，最近太忙了。
再次感谢。

gaolei_gaolei

留个QQ一起研究