表部分相同合并

xujinhua

(setq list1 '(("水泥路" "15.80平方米" "" "" "" "厚度为1m") ("水泥路" "22.00平方米" "" "" "" "无厚度")("水泥路" "62.00平方米" "" "" "" "无厚度")
                ("女儿墙" "6.85平方米" "8.05米" "0.85米" "0.12米" "有顶")("女儿墙" "22.00平方米" "8.05米" "0.85米" "0.12米" "有顶")))
;子表的0、3、4、5相同，则2相加返回新表list2
(setq list2 '(("水泥路" "15.80平方米" "" "" "" "厚度为1m") ("水泥路" "84.00平方米" "" "" "" "无厚度")
              ("女儿墙" "28.85平方米" "8.05米" "0.85米" "0.12米" "有顶")))

各位大侠，应该如何处理成所需要的表呢，谢谢！！

hh_lj007

我可能直接2层循环去处理了，看看大侠们有没有好的办法

yangjian001

做一个热心并受欢迎的人

xujinhua

明经上有朋友帮忙了，分享过来。
(setq list1 '(("水泥路" "15.80平方米" "" "" "" "厚度为1m")
              ("水泥路" "22.00平方米" "" "" "" "无厚度")
              ("水泥路" "62.00平方米" "" "" "" "无厚度")
              ("水泥路" "100.00平方米" "" "" "" "无厚度")
              ("女儿墙" "6.85平方米" "8.05米" "0.85米" "0.12米" "有顶")
              ("女儿墙" "22.00平方米" "8.05米" "0.85米" "0.12米" "有顶")))

(defun union-lst (list1 / list2)
  (setq list2 '())
  (foreach x% list1
           (if (member (cons (car x%) (cdddr x%))  (mapcar '(lambda (x) (cons (car x) (cdddr x)))  list2))
               (progn
                 (foreach at% list2
                          (if (equal (cons (car x%) (cdddr x%))
                                     (cons (car at%) (cdddr at%)))
                              (progn
                                (setq list2 (subst (append (list (car x%)
                                                                 (strcat (rtos (+ (atof (nth 1 x%)) (atof (nth 1 at%))) 2 2) "平方米")
                                                                 (nth 2 x%))
                                                           (cdddr x%))
                                                   at%
                                                   list2)))
                              )
                          
                          ))
             (progn
               (setq list2 (append list2 (list x%)))))
           )
  list2
  )
(print (union-lst list1))
(princ)

xk15c

比较有帮助的插件