(XD::PNTS:MaxY->MinX)

XDSoft

1. ;|
   
2. 点表按Y最大，Y相等情况再按X最小排序
   
3. 参数：
   
4.    PTS----点表
   
5.    Tol----误差值
   
6. 
   
7. 返回：表
   
8. |;
   
9. (defun XD::PNTS:MaxY->MinX (pts Tol)
   
10.   (reverse (XD::PNTS:MinY->MaxX pts tol))
    
11. )
    
12. 
    

;|<br /> 点表按Y最大，Y相等情况再按X最小排序<br /> 参数：<br />    PTS----点表<br />    Tol----误差值<br /> <br /> 返回：表<br /> |;<br /> (defun XD::PNTS:MaxY->MinX (pts Tol)<br />   (reverse (XD::PNTS:MinY->MaxX pts tol))<br /> )<br /> <br />

eachy

呵呵，写了这么多排序函数，再看看我写的那个 ybl-ent-sort :)
子表第一个元素是 点 的话，把这个几个 Pnts 排序都包括了
点和什么组合就看自己发挥了

zhong2013

学习学习学习…………{:soso_e100:}