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

Highflybird

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

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

XD::PNTS:MinX->MinY 函数见：http://bbs.xdcad.net/thread-668690-1-1.html

示例：

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
   
3. 42240.4 0.0))
   
4. 
   
5. (XD::PNTS:MAXX->MAXY pts 1e-3)
   
6. ;((90049.9 42295.5 0.0) (90049.9 42240.4 0.0) (89996.5 42295.5 0.0) (89996.5
   
7. 42240.4 0.0))
   
8. 
   

(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 <br /> 42240.4 0.0))<br /> <br /> (XD::PNTS:MAXX->MAXY pts 1e-3)<br /> ;((90049.9 42295.5 0.0) (90049.9 42240.4 0.0) (89996.5 42295.5 0.0) (89996.5 <br /> 42240.4 0.0))<br /> <br />

ll_j

应该给出另一引用函数的链接。

Highflybird

ll_j 发表于 2013-6-7 10:34
应该给出另一引用函数的链接。

谢LL-J，已修改。

所有函数可以到 “函数发布”里面看到。

http://bbs.xdcad.net/forum.php?m ... sortid&sortid=1

sicky111

这个函数不错，比较起来方便。

q3_2006

要是所有函数都给引用链接就方便了，前面有几个还没找齐呢！

里皎相

此函数蛮好用，感谢指导！

kkt123

此函数蛮好用，感谢指导！;P

凝思

谢谢楼主！