请教前辈，表处理及排序问题

MXS

• 想请教一个表处理的问题，有一个列表lst(("70%%dC常开防火阀" "250x200" "2") ("70%%dC常开防火阀" "250x200" "3") ("dxg" "0.6" "0.05") ("dxg" "0.5" "0.15") ("dxg" "0.6" "0.55") ("dxg" "0.5" "0.33")等等还有好多)
• 需要处理：当列表某两个子表的前两个元素相同时，则最后一个元素相加
• lst第一步想处理为(("70%%dC常开防火阀" "250x200" "5")  ("dxg" "0.6" "0.6") ("dxg" "0.5" "0.47")  等等还有好多)
• 然后还想对列表按照第一个元素（"dxg" "70%%dC常开防火阀" 等等）的特定顺序规则排序
• lst最终想处理为( ("dxg" "0.5" "0.47") ("dxg" "0.6" "0.6")  ("70%%dC常开防火阀" "250x200" "5") 等等还有好多)
  

llsheng_73

1. (defun tt(lst sorts / l a b c)
   
2.   (while lst
   
3.     (setq a(car lst)b(list(vl-position(Car a)sorts)(car a)(cadr a))lst(cdr lst))
   
4.     (if(setq c(assoc b l))
   
5.       (setq l(cons(list b(+(atof(caddr a))(cadr c)))(vl-remove c l)))
   
6.       (setq l(cons(list b(atof(caddr a)))l))))
   
7.   (mapcar(function(lambda(x)(list(cadar x)(caddar x)(rtos(cadr x)2))))
   
8.          (vl-sort l(function(lambda(x y)(if(=(caar x)(caar y))
   
9.                                    (<(Caddar x)(Caddar y))
   
10.                                    (<(Caar x)(caar y))))))))
    

(defun tt(lst sorts / l a b c)<br />   (while lst<br />     (setq a(car lst)b(list(vl-position(Car a)sorts)(car a)(cadr a))lst(cdr lst))<br />     (if(setq c(assoc b l))<br />       (setq l(cons(list b(+(atof(caddr a))(cadr c)))(vl-remove c l)))<br />       (setq l(cons(list b(atof(caddr a)))l))))<br />   (mapcar(function(lambda(x)(list(cadar x)(caddar x)(rtos(cadr x)2))))<br />          (vl-sort l(function(lambda(x y)(if(=(caar x)(caar y))<br />                                    (<(Caddar x)(Caddar y))<br />                                    (<(Caar x)(caar y))))))))<br />

(setvar 'dimzin 8)
(setq sorts'("dxg""70%%dC常开防火阀"))
(tt'(("70%%dC常开防火阀" "250x200" "2")("dxg" "0.6" "0.05")("70%%dC常开防火阀" "250x300" "2")("dxg" "0.5" "0.15")
     ("70%%dC常开防火阀" "250x300" "1")("dxg" "0.5" "0.33")("dxg" "0.6" "0.55")("70%%dC常开防火阀" "250x200" "3"))
   '("dxg""70%%dC常开防火阀"))
=>(("dxg" "0.5" "0.48") ("dxg" "0.6" "0.6") ("70%%dC常开防火阀" "250x200" "5") ("70%%dC常开防火阀" "250x300" "3"))

要用于数值计算的项不宜搞成字符串，额外增加处理过程。。。如果原表中最后的数值不是字符串，处理可以更简单，至少不必用atof或rtos去转换

MXS

llsheng_73 发表于 2022-12-23 16:38
(setvar 'dimzin 8)
(setq sorts'("dxg""70%%dC常开防火阀"))
(tt'(("70%%dC常开防火阀" "250x200" "2" ...

谢谢前辈，确实不是字符串

d1742647821

只看到你说需求，没看到你的问题在哪里，这就按部就班递归就好了

和尚777

111111111111111111

wowan1314

个人感觉先排序再消重好些。

MXS

和尚777 发表于 2022-12-23 09:42
111111111111111111

谢谢前辈，先学习一下

MXS

MXS 发表于 2022-12-23 10:39
谢谢前辈，先学习一下

您好方便贴一下hs-1stjoin这个函数吗？

自贡黄明儒

wowan1314 发表于 2022-12-23 09:47
个人感觉先排序再消重好些。

重出江湖啦，把您的好东西展示一下也行呀。

MXS

wowan1314 发表于 2022-12-23 09:47
个人感觉先排序再消重好些。

前辈，分享点好东西吧