表排序

845245015

各位大神们，帮忙看看这个怎么处理
((<图元名: 7fffeec0b70> "A-1-1") (<图元名: 7fffeec0b80> "A-1-2") (<图元名: 7fffeec0b90> "A-2-1") (<图元名: 7fffeec0ba0> "A-2-2") (<图元名: 7fffeec0bb0> "A-2-3") (<图元名: 7fffe8806e0> "A-1-3"))
表排序，表如上，处理方式（"A-1-1"）根据中间的数从大到小排序的同时根据最后的数从小到大排序。
换句话说就是：整个列表根据中间数从大到小排序，如果中间数相同的局部则根据最后一个数从小到大排序

vitalgg

1. (setq lst '(("m" "A-2-1")("m" "A-1-1")("m" "A-2-2")("m" "A-1-2")("m" "A-1-3")("m" "A-2-3")))
   
2. (vl-sort
   
3. lst
   
4. '(lambda (x y)
   
5.     (or (> (atoi (cadr (string:to-list (cadr x)"-")))
   
6.            (atoi (cadr (string:to-list (cadr y)"-"))))
   
7.         (and (= (atoi (cadr (string:to-list (cadr x)"-")))
   
8.                 (atoi (cadr (string:to-list (cadr y)"-"))))
   
9.              (< (atoi (caddr (string:to-list (cadr x)"-")))
   
10.                 (atoi (caddr (string:to-list (cadr y)"-"))))))))

(setq lst '(("m" "A-2-1")("m" "A-1-1")("m" "A-2-2")("m" "A-1-2")("m" "A-1-3")("m" "A-2-3")))<br /> (vl-sort<br /> lst<br /> '(lambda (x y) <br />     (or (> (atoi (cadr (string:to-list (cadr x)"-")))<br />            (atoi (cadr (string:to-list (cadr y)"-"))))<br />         (and (= (atoi (cadr (string:to-list (cadr x)"-")))<br />                 (atoi (cadr (string:to-list (cadr y)"-"))))<br />              (< (atoi (caddr (string:to-list (cadr x)"-")))<br />                 (atoi (caddr (string:to-list (cadr y)"-"))))))))

函数 string:to-list 源码在 http://atlisp.cn/function/string:to-list

xyp1964

(setq lst'(("a" "A-1-1")("b" "A-1-2")("c" "A-2-1")("d" "A-2-2")("e" "A-2-3")("f" "A-1-3")))
(vl-sort lst'(lambda(x y)(setq a(xyp-StrSpr(cadr x)"-")b(xyp-StrSpr(cadr y)"-"))
            (cond ((and(=(distof(cadr a))(distof(cadr b)))(<(distof(caddr a))(distof(caddr b))))t)
                  ((>(distof(cadr a))(distof(cadr b)))t)
            )
          )
)
→
(("c" "A-2-1") ("d" "A-2-2") ("e" "A-2-3") ("a" "A-1-1") ("b" "A-1-2") ("f" "A-1-3"))