带有汉字的数字分类求和的LSP代码怎样编写？

泥鳅

dingtiedt 发表于 2016-1-6 11:24
设置两个列表，例如listA和listB
listA为原列表，从中选择符合第一个名称的所有项，归为listB，例如（(" ...

(setq aa'(("建筑S=" 21) ("厨房S=" 68)  ("建筑S=" 357) ("楼梯间S=" 62) ("楼梯间S=" 53)))
        (setq lst '())               
        (foreach x aa
                (if (assoc  (car x) lst)
                        (setq lst (subst (list (car x) (+ (cadr x) (cadr (assoc (car x) lst)))) (assoc (car x) lst) lst))
                        (setq lst (cons x lst))
                )
        )

guankuiwu

xyp1964 发表于 2016-1-6 17:47
;; 用不上千万别下载！

唉，付币下载了，还要其他的函数支持啊 ，老大你应该提前说清啊。光一个这个不能用的啊……

guankuiwu

没币啊，可以免币下么

mikewolf2k

楼主口吻很眼熟！

dingtiedt

设置两个列表，例如listA和listB
listA为原列表，从中选择符合第一个名称的所有项，归为listB，例如（("建筑S=" "21")   ("建筑S=" "357")），接着对后面的数字求和，剩下的所有项仍然设置为listA
再对listA进行相同的操作

mikewolf2k

http://bbs.mjtd.com/thread-170911-1-1.html

ivde

这种情况正则表达式是王道

xyp1964

2. (defun c:tt ()
   
3.   (defun count (lst / a b b1 lst1 lst2)
   
4.     (setq lst  (vl-sort lst '(lambda (x y) (< (car x) (car y))))
   
5.           a    (car lst)
   
6.           b    (car a)
   
7.           lst  (cdr lst)
   
8.           lst1 (list b (cdr a))
   
9.           lst2 '()
   
10.     )
    
11.     (while (setq a (car lst))
    
12.       (setq b1        (car a)
    
13.             lst        (cdr lst)
    
14.       )
    
15.       (if (equal b1 b)
    
16.         (setq lst1 (append lst1 (list (cdr a))))
    
17.         (setq lst2 (cons lst1 lst2)
    
18.               lst1 (list b1 (cdr a))
    
19.               b           b1
    
20.         )
    
21.       )
    
22.     )
    
23.     (reverse (cons lst1 lst2))
    
24.   )
    
25.   (setq        lst '(("建筑S=" "21")
    
26.               ("厨房S=" "68")
    
27.               ("建筑S=" "357")
    
28.               ("楼梯间S=" "62")
    
29.               ("楼梯间S=" "53")
    
30.              )
    
31.         lst (count lst)
    
32.         lst (mapcar '(lambda (x)
    
33.                        (setq b (apply 'append (cdr x))
    
34.                              b (apply '+ (mapcar 'atoi b))
    
35.                        )
    
36.                        (list (car x) b)
    
37.                      )
    
38.                     lst
    
39.             )
    
40.   )
    
41.   (princ lst)
    
42.   (princ)
    
43. )

(defun c:tt ()<br />   (defun count (lst / a b b1 lst1 lst2)<br />     (setq lst  (vl-sort lst '(lambda (x y) (< (car x) (car y))))<br />           a    (car lst)<br />           b    (car a)<br />           lst  (cdr lst)<br />           lst1 (list b (cdr a))<br />           lst2 '()<br />     )<br />     (while (setq a (car lst))<br />       (setq b1        (car a)<br />             lst        (cdr lst)<br />       )<br />       (if (equal b1 b)<br />         (setq lst1 (append lst1 (list (cdr a))))<br />         (setq lst2 (cons lst1 lst2)<br />               lst1 (list b1 (cdr a))<br />               b           b1<br />         )<br />       )<br />     )<br />     (reverse (cons lst1 lst2))<br />   )<br />   (setq        lst '(("建筑S=" "21")<br />               ("厨房S=" "68")<br />               ("建筑S=" "357")<br />               ("楼梯间S=" "62")<br />               ("楼梯间S=" "53")<br />              )<br />         lst (count lst)<br />         lst (mapcar '(lambda (x)<br />                        (setq b (apply 'append (cdr x))<br />                              b (apply '+ (mapcar 'atoi b))<br />                        )<br />                        (list (car x) b)<br />                      )<br />                     lst<br />             )<br />   )<br />   (princ lst)<br />   (princ)<br /> )

结果：(("厨房S=" 68) ("建筑S=" 378) ("楼梯间S=" 115))

tryhi

2. (setq aa'(("建筑S=" "21") ("厨房S=" "68")  ("建筑S=" "357") ("楼梯间S=" "62") ("楼梯间S=" "53") ))
   
3. (setq bb(mapcar '(lambda(x)(strcat (car x)(cadr x)))aa))

(setq aa'(("建筑S=" "21") ("厨房S=" "68")  ("建筑S=" "357") ("楼梯间S=" "62") ("楼梯间S=" "53") ))<br /> (setq bb(mapcar '(lambda(x)(strcat (car x)(cadr x)))aa))