点表按X最小，X相等情况再按Y最大排序

Highflybird

1. ;|
   
2. 点表按X最小，X相等情况再按Y最大排序
   
3. 参数：
   
4.    PTS----点表
   
5.    Tol----误差值
   
6. 
   
7. 返回：表
   
8. |;
   
9. (defun XD::PNTS:MinX->MaxY (pts Tol)
   
10.   (vl-sort pts '(lambda (pt1 pt2)
    
11.                   (if (equal (car pt1) (car pt2) tol)
    
12.                     (if (equal (cadr pt1) (cadr pt2) tol)
    
13.                       (< (caddr pt1) (caddr pt2))
    
14.                       (> (cadr pt1) (cadr pt2))
    
15.                     )
    
16.                     (< (car pt1) (car pt2))
    
17.                   )
    
18.                 )
    
19.   )
    
20. )
    
21. 
    
22. 
    
23. 
    

;|<br /> 点表按X最小，X相等情况再按Y最大排序<br /> 参数：<br />    PTS----点表<br />    Tol----误差值<br /> <br /> 返回：表<br /> |;<br /> (defun XD::PNTS:MinX->MaxY (pts Tol)<br />   (vl-sort pts '(lambda (pt1 pt2)<br />                   (if (equal (car pt1) (car pt2) tol)<br />                     (if (equal (cadr pt1) (cadr pt2) tol)<br />                       (< (caddr pt1) (caddr pt2))<br />                       (> (cadr pt1) (cadr pt2))<br />                     )<br />                     (< (car pt1) (car pt2))<br />                   )<br />                 )<br />   )<br /> )<br /> <br /> <br /> <br />

示例：

1. ;命令: !pts
   
2. ((90049.9 42295.5 0.0) (89996.5 42295.5 0.0) (90049.9 42240.4 0.0) (89996.5
   
3. 42240.4 0.0))
   
4. ;命令: (xd::pnts:minx->maxy pts 1e-3)
   
5. ((89996.5 42295.5 0.0) (89996.5 42240.4 0.0) (90049.9 42295.5 0.0) (90049.9
   
6. 42240.4 0.0))
   
7. 
   

;命令: !pts<br /> ((90049.9 42295.5 0.0) (89996.5 42295.5 0.0) (90049.9 42240.4 0.0) (89996.5 <br /> 42240.4 0.0))<br /> ;命令: (xd::pnts:minx->maxy pts 1e-3)<br /> ((89996.5 42295.5 0.0) (89996.5 42240.4 0.0) (90049.9 42295.5 0.0) (90049.9 <br /> 42240.4 0.0))<br /> <br />

sicky111

由此应该还可以引申出好几个排序函数出来。

q3_2006

能看明白，好理解！

kkt123

能看明白，好理解:loveliness:

yoyoho

感谢 Highflybird 分享实用函数!

laiz3000

学习排序，收藏一下