急等大神帮忙，困惑了

大漠1262670234

急急如律令，天灵灵，地灵灵，快来大神显神通，求助求助！

1. ;;假设 lst=(("a" . "11") ("a" . "22") (b" . "11") ("b" . "11") ("c" . "121") ("c" . "22") ("d" . "22") ("d" . "122"))
   
2. ;;以下代码目的是：历遍lst 如果有相同的名称（如“a”等）就累加该名称后的数字，最后输出为：a   累加后的和 ； b  累加后
   
3. ;的和，以此类推
   
4. ;;代码总是错误请大神帮忙修改，错误出在哪里，先谢了！
   
5. (while lst
   
6.   (setq n 0)
   
7.   (foreach i lst(if (= (caar lst) (car i))(setq n (+ n (cdr i)))))
   
8. 
   
9.   (setq newlst (append newlst (list (cons (caar lst) n))))
   
10.   (setq lst(vl-remove-if '(lambda (x) (= (caar lst) (car x))) lst))
    
11. )
    
12. (setq newlst (vl-sort newlst (function(lambda (x y) (< (car x) (car y))))))
    
13. (setq x2 (getpoint "\n起始位置:"))
    
14. (setq x3 (polar x2 0 12))
    
15. (command "text" "c" x2 "2" "0" "种类")
    
16. (command "text" "c" x3 "2" "0" "数量")
    
17. (foreach x newlst
    
18.   (setq x2(polar x2 (/ pi -2) 3))
    
19.   (setq x3 (polar x2 0 12))
    
20.   (command "text" "c" x2 "1.5" "0" (car x))
    
21.   (command "text" "c" x3 "1.5" "0" (cdr x))
    
22. )

;;假设 lst=(("a" . "11") ("a" . "22") (b" . "11") ("b" . "11") ("c" . "121") ("c" . "22") ("d" . "22") ("d" . "122"))<br /> ;;以下代码目的是：历遍lst 如果有相同的名称（如“a”等）就累加该名称后的数字，最后输出为：a   累加后的和 ； b  累加后<br /> ;的和，以此类推<br /> ;;代码总是错误请大神帮忙修改，错误出在哪里，先谢了！<br /> (while lst<br />   (setq n 0)<br />   (foreach i lst(if (= (caar lst) (car i))(setq n (+ n (cdr i)))))<br /> <br />   (setq newlst (append newlst (list (cons (caar lst) n))))<br />   (setq lst(vl-remove-if '(lambda (x) (= (caar lst) (car x))) lst))<br /> )<br /> (setq newlst (vl-sort newlst (function(lambda (x y) (< (car x) (car y))))))<br /> (setq x2 (getpoint "\n起始位置:"))<br /> (setq x3 (polar x2 0 12))<br /> (command "text" "c" x2 "2" "0" "种类")<br /> (command "text" "c" x3 "2" "0" "数量")<br /> (foreach x newlst<br />   (setq x2(polar x2 (/ pi -2) 3))<br />   (setq x3 (polar x2 0 12))<br />   (command "text" "c" x2 "1.5" "0" (car x))<br />   (command "text" "c" x3 "1.5" "0" (cdr x))<br /> )

大漠1262670234

自己占个沙发，代码是从网络搜集，作者不详，特此声明，以示感谢！快来大神，大神，救我！

q3_2006

(setq lst '(("a" . "11") ("a" . "22") ("b" . "11") ("b" . "11") ("c" . "121") ("c" . "22") ("d" . "22") ("d" . "122"))
        lb nil
)
(while lst
  (setq a (caar lst)
          la (vl-remove-if-not '(lambda(x) (= a (car x))) lst)
          lst (vl-remove-if '(lambda ( x ) (member x la)) lst)
          la (cons (caar la) (rtos (apply '+ (mapcar '(lambda(x) (read (cdr x))) la))))
          lb (cons la lb)
  )
)
(reverse lb)

大漠1262670234

q3_2006 发表于 2015-9-3 20:10
(setq lst '(("a" . "11") ("a" . "22") ("b" . "11") ("b" . "11") ("c" . "121") ("c" . "22") ("d" . "2 ...

很是感谢，回复如此之快，但是我刚测试了下，（print lb）结果重复好多遍，最好结果能输出到图纸，谢谢

大漠1262670234

q3_2006 发表于 2015-9-3 20:10
(setq lst '(("a" . "11") ("a" . "22") ("b" . "11") ("b" . "11") ("c" . "121") ("c" . "22") ("d" . "2 ...

真是神奇了，setq  还可以这么用，涨姿势。

edata

大漠1262670234 发表于 2015-9-3 20:42
真是神奇了，setq  还可以这么用，涨姿势。

你说的应该是‘这个符号，单引号表示quote函数。不对后面的表达式求值，用处很大。
这个函数因为用得很频繁，所以简写成单引号，你可以在网上、论坛搜索相关资料。

q3_2006

大漠1262670234 发表于 2015-9-3 20:42
真是神奇了，setq  还可以这么用，涨姿势。

(defun c:tt ()
(setq lst '(("a" . "11") ("a" . "22") ("b" . "11") ("b" . "11") ("c" . "121") ("c" . "22") ("d" . "22") ("d" . "122"))
        p (getpoint "\n起始位置:")
        f (command "text" "c" p "2" "0" "种类")
        f (command "text" "c" (polar p 0 12) "2" "0" "数量")
        p1 p
)
(while lst
  (setq a (caar lst)
       la (vl-remove-if-not '(lambda(x) (= a (car x))) lst)
       lst (vl-remove-if '(lambda ( x ) (member x la)) lst)
       la (cons (caar la) (rtos (apply '+ (mapcar '(lambda(x) (read (cdr x))) la))))
       p1 (polar p1 (/ pi -2) 3)
       f (command "text" "c" p1 "1.5" "0" (car la))
       f (command "text" "c" (polar p1 0 12) "1.5" "0" (cdr la))
  )
)       
)

大漠1262670234

q3_2006 发表于 2015-9-3 21:02
(defun c:tt ()
(setq lst '(("a" . "11") ("a" . "22") ("b" . "11") ("b" . "11") ("c" . "121") ("c" ...

我已经搞定了，但还是很感谢！，膜拜高手。