排序问题, X从小到大X相同时Y从大到小排序怎么写？

绝情一剑

点表（(1 2 3)(3 2 1).....))  要求点表按X从小到大排序，X相同的按Y从大到小排序，怎么写？

434939575

2. (defun c:tt ()
   
3.   (setq lis '((10 20) (10 10) (10 100) (10 1)));// ((10 1) (10 10) (10 20) (10 100))
   
4.   ;(setq lis '((20 20) (10 10) (12 100) (10 1)));//((10 1) (10 10) (20 20) (12 100))
   
5.   (if (= (car e1) (car e2))
   
6.     (setq lis+ (vl-sort        lis
   
7.                         (function (lambda (e1 e2)
   
8.                                     (< (cadr e1) (cadr e2))
   
9.                                   )
   
10.                         )
    
11.                )
    
12.     )
    
13.     (setq lis+ (vl-sort        lis
    
14.                         (function (lambda (e1 e2)
    
15.                                     (< (car e1) (car e2))
    
16.                                   )
    
17.                         )
    
18.                )
    
19.     )
    
20.   )
    
21. 
    
22. )

(defun c:tt ()<br />   (setq lis '((10 20) (10 10) (10 100) (10 1)));// ((10 1) (10 10) (10 20) (10 100))<br />   ;(setq lis '((20 20) (10 10) (12 100) (10 1)));//((10 1) (10 10) (20 20) (12 100))<br />   (if (= (car e1) (car e2))<br />     (setq lis+ (vl-sort        lis<br />                         (function (lambda (e1 e2)<br />                                     (< (cadr e1) (cadr e2))<br />                                   )<br />                         )<br />                )<br />     )<br />     (setq lis+ (vl-sort        lis<br />                         (function (lambda (e1 e2)<br />                                     (< (car e1) (car e2))<br />                                   )<br />                         )<br />                )<br />     )<br />   )<br /> <br /> )