[VLISP函数]：表通用复合排序函数

wkai

2. 
   
3. ;;from [email]wkai@xdcad.net[/email]
   
4. ;;20050928
   
5. ;;功能   :对表进行复合排序
   
6. ;;参数lst:需要被排序的表
   
7. ;;sortlst:排序命令序列表
   
8. ;;返回值 :排序后的表
   
9. ;;
   
10. ;;示例:(XDL-SORT '(0 2 3 7 8 5 7 ) '>)
    
11. ;;         从大到小排序
    
12. ;;         --->>(8 7 5 3 2 0)
    
13. ;;     (XDL-SORT '((0 1)(1 0)(9 6)(9 5)(5 9)(6 9)(7 8)(8 7)) '(0 >))
    
14. ;;         第0项从大到小排序
    
15. ;;         --->>((9 6) (9 5) (8 7) (7 8) (6 9) (5 9) (1 0) (0 1))
    
16. ;;     (XDL-SORT '((0 1)(1 0)(9 6)(9 5)(5 9)(6 9)(7 8)(8 7)) '((0 >)( 1 <)))
    
17. ;;         第0项从大到小第1项从小到大排序;;
    
18. ;;         --->>((9 5) (9 6) (8 7) (7 8) (6 9) (5 9) (1 0) (0 1))
    
19. ;;     (XDL-SORT '((0 1)(1 0)(9 6)(9 5)(5 9)(6 9)(7 8)(8 7)) '(( 1 <)(0 >)))
    
20. ;;         第1项从小到大第0项从大到小排序
    
21. ;;         --->>((1 0) (0 1) (9 5) (9 6) (8 7) (7 8) (6 9) (5 9))
    
22. (defun XDL-SORT(lst sortlst / n)
    
23.   (if (listp sortlst)
    
24.     (if        (listp (car sortlst))
    
25.       (setq sortlst (reverse sortlst))
    
26.       (setq sortlst (list sortlst))
    
27.     )
    
28.     (setq sortlst (list (list nil sortlst)))
    
29.   )
    
30.   (foreach n sortlst
    
31.     (setq lst (vl-sort lst '(lambda (s1 s2)
    
32.                               (apply (cadr n) (list (if (car n) (nth  (car n) s1)s1)
    
33.                                                     (if (car n) (nth  (car n) s2)s2))))))
    
34.     )
    
35.   )
    

<br /> ;;from [email]wkai@xdcad.net[/email]<br /> ;;20050928<br /> ;;功能   :对表进行复合排序<br /> ;;参数lst:需要被排序的表<br /> ;;sortlst:排序命令序列表<br /> ;;返回值 :排序后的表<br /> ;;<br /> ;;示例:(XDL-SORT '(0 2 3 7 8 5 7 ) '>)<br /> ;;         从大到小排序<br /> ;;         --->>(8 7 5 3 2 0)<br /> ;;     (XDL-SORT '((0 1)(1 0)(9 6)(9 5)(5 9)(6 9)(7 8)(8 7)) '(0 >))<br /> ;;         第0项从大到小排序<br /> ;;         --->>((9 6) (9 5) (8 7) (7 8) (6 9) (5 9) (1 0) (0 1))<br /> ;;     (XDL-SORT '((0 1)(1 0)(9 6)(9 5)(5 9)(6 9)(7 8)(8 7)) '((0 >)( 1 <)))<br /> ;;         第0项从大到小第1项从小到大排序;;<br /> ;;         --->>((9 5) (9 6) (8 7) (7 8) (6 9) (5 9) (1 0) (0 1))<br /> ;;     (XDL-SORT '((0 1)(1 0)(9 6)(9 5)(5 9)(6 9)(7 8)(8 7)) '(( 1 <)(0 >)))<br /> ;;         第1项从小到大第0项从大到小排序<br /> ;;         --->>((1 0) (0 1) (9 5) (9 6) (8 7) (7 8) (6 9) (5 9))<br /> (defun XDL-SORT(lst sortlst / n)<br />   (if (listp sortlst)<br />     (if        (listp (car sortlst))<br />       (setq sortlst (reverse sortlst))<br />       (setq sortlst (list sortlst))<br />     )<br />     (setq sortlst (list (list nil sortlst)))<br />   )<br />   (foreach n sortlst<br />     (setq lst (vl-sort lst '(lambda (s1 s2)<br />                               (apply (cadr n) (list (if (car n) (nth  (car n) s1)s1)<br />                                                     (if (car n) (nth  (car n) s2)s2))))))<br />     )<br />   )<br />

eachy

2. 
   
3. ;; sortlst = '< '> '(< <) '(< >) '(> >) '(> <)
   
4. (defun XDL-SORT        (lst sortlst /)
   
5.   (if (= (type sortlst) 'SYM)
   
6.     (vl-sort lst sortlst)
   
7.     (vl-sort lst
   
8.              '(lambda (s1 s2)
   
9.                 (if (equal (car s1) (car s2) 1e-4)
   
10.                   (apply (car sortlst) (list (cadr s1) (cadr s2)))
    
11.                   (apply (car sortlst) (list (car s1) (car s2)))
    
12.                 )
    
13.               )
    
14.     )
    
15.   )
    
16. )

<br /> ;; sortlst = '< '> '(< <) '(< >) '(> >) '(> <)<br /> (defun XDL-SORT        (lst sortlst /)<br />   (if (= (type sortlst) 'SYM)<br />     (vl-sort lst sortlst)<br />     (vl-sort lst<br />              '(lambda (s1 s2)<br />                 (if (equal (car s1) (car s2) 1e-4)<br />                   (apply (car sortlst) (list (cadr s1) (cadr s2)))<br />                   (apply (car sortlst) (list (car s1) (car s2)))<br />                 )<br />               )<br />     )<br />   )<br /> )

wkai

如果需要对第三项排序呢？

gufengyin

可以对选择集中的图层排序吗？

fsxm

各们老兄好！
多方参考各位老大的程序
写了一个新的多功能排序函数请提点意见！！
见:
http://www.xdcad.net/forum/showt ... 2832907#post2832907

2. 
   
3. 如:
   
4. (sortlist '((0 1)(1 0)(9 6)(9 5)(5 9)(6 9)(7 8)(8 7)) '(">1" "<2"))
   
5. 相当于:
   
6. (XDL-SORT '((0 1)(1 0)(9 6)(9 5)(5 9)(6 9)(7 8)(8 7)) '((0 >)( 1 <)))
   
7. ;;'(
   
8. ;;  ("kaj" (4 ("c" 1)))
   
9. ;;  ("kbj" (6 ("a" 3)))
   
10. ;;  ("kcj" (5 ("b" 2)))
    
11. ;; )
    
12. ;;对应项间比较；
    
13. ;;比较1，3，2时请用(sortlist testlist (list ">2 2 2"))
    
14. ;;比较c，a，b时请用(sortlist testlist (list ">2 2 1"))
    
15. ;;比较4，6，5时请用(sortlist testlist (list ">2 1"))
    
16. ;;比较kaj，kbj，kcj时请用(sortlist testlist (list ">1"))
    
17. ;;一起按级别比是用:(sortlist testlist (list ">2 2 2" ">2 2 1" ">2 1" ">1"))
    
18. (defun c:test ()
    
19.   (sortlist
    
20.     '(
    
21.       (1 (1 . 2) 3 ("kkj" 4) (3 0))
    
22.       (1 (1 . 4) 1 ("skj" 45) (2 3))
    
23.       (1 (1 . 2) 3 ("Aej" 45) (7 1))
    
24.       (1 (2 . 3) 2 ("ser" 4) (9 2))
    
25.       (2 (6 . 2) 2 ("Serj" 9) (1 4))
    
26.       (3 (3 . 5) 1 ("kkjsd" 35) (7 6))
    
27.       (2 (4 . 7) 2 ("Akjdd" 3) (5 4))
    
28.       (3 (3 . 3) 3 ("sekj" 446) (3 4))
    
29.       (2 (2 . 2) 2 ("serj" 9) (1 4))
    
30.       (1 (8 . 2) 2 ("wggj" 46) (2 4))
    
31.       (1 (1 . 4) 1 ("kkj" 9) (4 4))
    
32.       (3 (3 . 3) 3 ("sekj" 446) (3 4))
    
33.       (1 (8 . 2) 2 ("wggj" 46) (2 4))
    
34.      )
    
35.     (list
    
36.       ;;排序条件：
    
37.       ;;第一条件，依据数据("kkj" 4)中的'kkj'   =4项中第1
    
38.       ">4 1"
    
39.       ;;第二条件，依据数据'1'，即             =第1项
    
40.       ">1"
    
41.       ;;第三条件，依据数据(1 . 4)中的　1       =2项中第1
    
42.       ">2 1"
    
43.       ;;第四条件，依据数据(3 0)中的　0         =5项中第2
    
44.       ">5 2"
    
45.       ;;第五条件，依据数据("kkj" 4)中的　4     =4项中第2
    
46.       ">4 2"
    
47.       ;;排序的优先级为1、2、3、4、5
    
48. )
    
49.   )
    
50. )
    

<br /> 如:<br /> (sortlist '((0 1)(1 0)(9 6)(9 5)(5 9)(6 9)(7 8)(8 7)) '(">1" "<2"))<br /> 相当于:<br /> (XDL-SORT '((0 1)(1 0)(9 6)(9 5)(5 9)(6 9)(7 8)(8 7)) '((0 >)( 1 <)))<br /> ;;'(<br /> ;;  ("kaj" (4 ("c" 1)))<br /> ;;  ("kbj" (6 ("a" 3)))<br /> ;;  ("kcj" (5 ("b" 2)))<br /> ;; )<br /> ;;对应项间比较；<br /> ;;比较1，3，2时请用(sortlist testlist (list ">2 2 2"))<br /> ;;比较c，a，b时请用(sortlist testlist (list ">2 2 1"))<br /> ;;比较4，6，5时请用(sortlist testlist (list ">2 1"))<br /> ;;比较kaj，kbj，kcj时请用(sortlist testlist (list ">1"))<br /> ;;一起按级别比是用:(sortlist testlist (list ">2 2 2" ">2 2 1" ">2 1" ">1"))<br /> (defun c:test ()<br />   (sortlist<br />     '(<br />       (1 (1 . 2) 3 ("kkj" 4) (3 0))<br />       (1 (1 . 4) 1 ("skj" 45) (2 3))<br />       (1 (1 . 2) 3 ("Aej" 45) (7 1))<br />       (1 (2 . 3) 2 ("ser" 4) (9 2))<br />       (2 (6 . 2) 2 ("Serj" 9) (1 4))<br />       (3 (3 . 5) 1 ("kkjsd" 35) (7 6))<br />       (2 (4 . 7) 2 ("Akjdd" 3) (5 4))<br />       (3 (3 . 3) 3 ("sekj" 446) (3 4))<br />       (2 (2 . 2) 2 ("serj" 9) (1 4))<br />       (1 (8 . 2) 2 ("wggj" 46) (2 4))<br />       (1 (1 . 4) 1 ("kkj" 9) (4 4))<br />       (3 (3 . 3) 3 ("sekj" 446) (3 4))<br />       (1 (8 . 2) 2 ("wggj" 46) (2 4))<br />      )<br />     (list<br />       ;;排序条件：<br />       ;;第一条件，依据数据("kkj" 4)中的'kkj'   =4项中第1<br />       ">4 1"<br />       ;;第二条件，依据数据'1'，即             =第1项<br />       ">1"<br />       ;;第三条件，依据数据(1 . 4)中的　1       =2项中第1<br />       ">2 1"<br />       ;;第四条件，依据数据(3 0)中的　0         =5项中第2<br />       ">5 2"<br />       ;;第五条件，依据数据("kkj" 4)中的　4     =4项中第2<br />       ">4 2"<br />       ;;排序的优先级为1、2、3、4、5<br /> )<br />   )<br /> )<br />