点表按 X 最小 Y最小 排序函数

Highflybird

1. ;|
   
2. 点表按X最小，X相等情况再按Y最小排序
   
3. 参数：
   
4.    PTS----点表
   
5.    Tol----误差值
   
6. 
   
7. 返回：表
   
8. |;
   
9. (defun XD::PNTS:MinX->MinY (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. 
    

;|<br /> 点表按X最小，X相等情况再按Y最小排序<br /> 参数：<br />    PTS----点表<br />    Tol----误差值<br /> <br /> 返回：表<br /> |;<br /> (defun XD::PNTS:MinX->MinY (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 />

示例：

1. (setq pts (list p1 p2 p3 p4))
   
2. ;((90049.9 42295.5 0.0) (89996.5 42295.5 0.0) (90049.9 42240.4 0.0) (89996.5 42240.4 0.0))
   
3. (xd::pnts:minx->miny pts 1e-3)
   
4. ;((89996.5 42240.4 0.0) (89996.5 42295.5 0.0) (90049.9 42240.4 0.0) (90049.9 42295.5 0.0))
   
5. 
   

(setq pts (list p1 p2 p3 p4))<br /> ;((90049.9 42295.5 0.0) (89996.5 42295.5 0.0) (90049.9 42240.4 0.0) (89996.5 42240.4 0.0))<br /> (xd::pnts:minx->miny pts 1e-3)<br /> ;((89996.5 42240.4 0.0) (89996.5 42295.5 0.0) (90049.9 42240.4 0.0) (90049.9 42295.5 0.0))<br /> <br />

sicky111

值得收藏的好函数。

q3_2006

还有两种吧，接着翻！