(XD::Pnts:SortByAngle)点表由基点按角度排序

st788796

1. (defun XD::Pnts:SortByAngle (pts pt)
   
2.   (vl-sort pts (function (lambda (p1 p2)
   
3.                            (if (equal (angle pt p1) (angle pt p2) 1e-8)
   
4.                              (> (distance pt p2) (distance pt p1))
   
5.                              (< (angle pt p1) (angle pt p2))
   
6.                            )
   
7.                          )
   
8.                )
   
9.   )
   
10. )
    

(defun XD::Pnts:SortByAngle (pts pt)<br />   (vl-sort pts (function (lambda (p1 p2)<br />                            (if (equal (angle pt p1) (angle pt p2) 1e-8)<br />                              (> (distance pt p2) (distance pt p1))<br />                              (< (angle pt p1) (angle pt p2))<br />                            )<br />                          )<br />                )<br />   )<br /> )<br />

Lisphk

支持ST大师，支持源码。

XDSoft

ST,帮你编辑下，参数PTS放前面了，统一下。XD::pnts:**的函数，第一个参数都是点表。

st788796

XDSoft 发表于 2016-6-9 17:50
ST,帮你编辑下，参数PTS放前面了，统一下。XD::pnts:**的函数，第一个参数都是点表。

谢谢XD，用手机直接写的，格式可能不好

winerfjy

很实用的函数

qyming2000

学习大师函数
来自: 微社区