(XD::PNTS:MinY->MaxX)点表按Y最小，Y相等情况再按X最大排序

XDSoft

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

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

648532353

学习了，谢谢

huangpc27

好东西，学习下