对点表，根据其中存在的一个点PT为起点，顺时针重新排序

Lispboy · 发表于 2013-6-7 12:54:38

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

本帖最后由 Lispboy 于 2013-6-7 12:58 编辑

;|
对点表，根据其中存在的一个点PT为起点，顺时针重新排序
参数
pts --- 表
pt --- 表中点
tol --- 容差
返回值：表
|;
(defun XD::PntS:ClockWise (pts pt tol / _d)
(if (setq _d (vl-member-if '(lambda (x)
(equal x pt tol)
) pts
)
)
(progn
(if (> (XD::PntS:Area pts) 0.0)
(append
(vl-member-if '(lambda (x)
(equal x pt tol)
) (reverse pts)
)
(reverse (cdr (vl-member-if '(lambda (x)
(equal x pt tol)
) pts
)
)
)
)
(append
_d
(reverse (cdr (vl-member-if '(lambda (x)
(equal x pt tol)
) (reverse pts)
)
)
)
)
)
)
)
)

;| 
   对点表，根据其中存在的一个点PT为起点，顺时针重新排序 
   参数 
      pts --- 表 
      pt  --- 表中点 
      tol --- 容差 
 
    返回值： 表 
|; 
(defun XD::PntS:ClockWise (pts pt tol / _d) 
  (if (setq _d (vl-member-if '(lambda (x) 
                                (equal x pt tol) 
                              ) pts 
               ) 
      ) 
    (progn 
      (if (> (XD::PntS:Area pts) 0.0) 
        (append 
          (vl-member-if '(lambda (x) 
                           (equal x pt tol) 
                         ) (reverse pts) 
          ) 
          (reverse (cdr (vl-member-if '(lambda (x) 
                                         (equal x pt tol) 
                                       ) pts 
                        ) 
                   ) 
          ) 
        ) 
        (append 
          _d 
          (reverse (cdr (vl-member-if '(lambda (x) 
                                         (equal x pt tol) 
                                       ) (reverse pts) 
                        ) 
                   ) 
          ) 
        ) 
      ) 
    ) 
  ) 
)

非常实用的一个函数，比如对多段线取得顶点后，我们还不能定位这些顶点，先用 (XD::PntS:MinX->MinY pts pt tol)得到X最小，Y最小的点 P 后，再：(XD::Pnts:UnClockWise pts p tol),就获得的第一个顶点是X,Y最小，然后其他顶点逆时针排列的顶点表，固定住多边形的顶点后，我们就可以做很多事情。

点的排序和定位非常重要，不管输入的数据时什么，在最终处理前都要能变成固定不变的数据给程序处理。

演示见下图：

QQ截图20130607125727.png

GTJ116600 · 发表于 2013-6-7 13:45:41

好函数，确实是非常实用。

sicky111 · 发表于 2013-6-7 13:57:23

非常好，大师作品。

jiangnanemail · 发表于 2013-6-7 14:52:38

于此帖结合功能很强大哟！
http://bbs.xdcad.net/thread-668696-1-1.html

Lispboy · 发表于 2013-6-7 15:01:36

jiangnanemail 发表于 2013-6-7 14:52
于此帖结合功能很强大哟！
http://bbs.xdcad.net/thread-668696-1-1.html

谢谢你给出函数里面用的 XD::Pnts:Area 函数链接。考虑是否单独提供一个判断多边形点表逆顺指针的函数。

auva · 发表于 2013-6-7 16:04:41

这个函数数超实用的，赞一个啦！

q3_2006 · 发表于 2013-6-18 07:44:56

点表排序要好好整理一下，很有，但不是全明白！

434939575 · 发表于 2014-1-9 10:28:10

终于找到了！谢谢！

lianghui2018 · 发表于 2014-3-19 22:07:13

好函数，非常实用

enn09 · 发表于 2014-4-16 15:19:30

学习是美德，回复是习惯

kkt123 · 发表于 2015-2-15 08:59:06

好函数，确实是非常实用。;P

laiz3000 · 发表于 2015-5-25 20:59:49

正需要这样子的函数，收下了

czcxxx_01 · 发表于 2015-9-5 12:39:34

好函数，确实是非常实用

leon90482888 · 发表于 2019-2-11 13:35:26

很有用的函数，谢谢

yoyoho · 发表于 2019-2-11 19:53:43

正需要这样子的函数，收下了

账号		自动登录	找回密码
密码			立即注册

[点表] 对点表，根据其中存在的一个点PT为起点，顺时针重新排序

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

评分

相关帖子

点评