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

Lispboy · 发表于 2013-6-7 12:36:09

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

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

×

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

;|
对点表，根据其中存在的一个点PT为起点，逆时针重新排序
参数
pts --- 表
pt --- 表中点
tol --- 容差
返回值：表
|;
(defun XD::PntS:UnClockWise (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:UnClockWise (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截图20130607125134.png

Free-Lancer · 发表于 2013-6-7 12:46:40

取得点后表分左右，该点和左表最后点及右表前几点求积，
另外，如果在一个直线上能判断吗？来自: Android客户端

Lispboy · 发表于 2013-6-7 12:48:51

Free-Lancer 发表于 2013-6-7 12:46
取得点后表分左右，该点和左表最后点及右表前几点求积，
另外，如果在一个直线上能判断吗？

一条直线上，就直接 XD::Pnts:MinX->MinY 不就得了。

GTJ116600 · 发表于 2013-6-7 13:47:10

呵呵，和顺时针是一套函数

sicky111 · 发表于 2013-6-7 14:03:19

有这函数，求点就容易的多了。

q3_2006 · 发表于 2013-6-18 07:53:29

收了顺时针，这个当然要支持，配套的嘛！

wowan1314 · 发表于 2013-7-30 19:37:01

本帖最后由 wowan1314 于 2013-7-30 19:55 编辑

没想明白，这个代码怎么能把点表逆时针排序呢？

;测试下排序的情况
(defun c:t1 (/ ss a en p1 pts pts1 p lst1)
(setq ss (ssget '((0 . "TEXT"))) a -1)
(while (setq en (ssname ss (setq a (1+ a))))
(setq p1 (cdr(assoc 10 (entget en)))
pts (cons p1 pts)
)
)
(setq pts1 (xd::pnts:minx->miny pts 0.000001))
(setq p (car pts1))
(setq lst1 (xd::pnts:clockwise pts1 p 1e-5))
(command "PLINE")
(apply 'command lst1)
(command "")
)

Lispboy · 发表于 2013-7-30 23:05:10

本帖最后由 Lispboy 于 2013-7-30 23:06 编辑

wowan1314 发表于 2013-7-30 19:37
没想明白，这个代码怎么能把点表逆时针排序呢？

核心函数是 XD::PntS:Area ，这个在多边形逆（顺）时针的时候面积有正负。

Lispboy · 发表于 2013-7-31 18:19:41

wowan1314 发表于 2013-7-30 19:37
没想明白，这个代码怎么能把点表逆时针排序呢？

顶点组成的多边形不能自交，自交就没什么逆顺时针的概念了。

wowan1314 · 发表于 2013-7-31 18:25:03

本帖最后由 wowan1314 于 2013-7-31 18:27 编辑

Lispboy 发表于 2013-7-31 18:19
顶点组成的多边形不能自交，自交就没什么逆顺时针的概念了。

哪些文字组成的多边形。正好是个长方形呀？
怎么会自交？提取出点表后按你的函数排序后连线就成那样了。
感觉是MINX-MINY这个函数排序后的表不能用于求面积的函数。

Lispboy · 发表于 2013-7-31 18:47:35

wowan1314 发表于 2013-7-31 18:25
哪些文字组成的多边形。正好是个长方形呀？
怎么会自交？提取出点表后按你的函数排序后连线就成那样了 ...

minx->miny只是求多边形顶点表中的X最小，Y最小点，你的程序里面的pts1已经把点重新组合了。你后面的不能再用PTS1了，应该用原来的PTS啊，

p是pts里面的最小点，然后根据这个最小点，还在你原来的构成多边形的顶点里面重新拍下。

(setq lst1 (xd::pnts:clockwise pts p 1e-5))

wowan1314 · 发表于 2013-7-31 18:57:11

Lispboy 发表于 2013-7-31 18:47
minx->miny只是求多边形顶点表中的X最小，Y最小点，你的程序里面的pts1已经把点重新组合了。你后面 ...

1/ 你的示例图片就这样的。
2、如果用原来的PTS 那更加得不到想要的结果了。
你的函数就没排序的功能的。只是颠倒下表的顺序。

你可以自己测试看看.

Lispboy · 发表于 2013-7-31 19:14:22

wowan1314 发表于 2013-7-31 18:57
1/ 你的示例图片就这样的。
2、如果用原来的PTS 那更加得不到想要的结果了。
你的函数就没排序的功能 ...

原来的点，前提就应该是正常的多边形取得的顶点（原来的这些顶点连起来要是个正常的多边形，不能自交），只是这个顶点表的第一个点位置是未知的，这个函数的作用只是把一个多边形的顶点通过函数给固定了，第一个点肯定是X最小的，Y最小的点，第二个点肯定是它时针方向上的第二个点。

Lispboy · 发表于 2013-7-31 19:15:52

wowan1314 发表于 2013-7-31 18:57
1/ 你的示例图片就这样的。
2、如果用原来的PTS 那更加得不到想要的结果了。
你的函数就没排序的功能 ...

是颠倒下顺序，但是位置关系和原来的表是一样的，挨着的还是挨着的。

q3_2006 · 发表于 2013-11-2 14:42:38

((22241.8 -6160.84) (22897.3 -7288.72) (22897.3 -6160.84) (22181.0 -7288.72))
怎么排成逆时针？似乎也不成呀！

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

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

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

评分

相关帖子

点评

点评

点评

点评

点评

点评

点评

点评

评分

点评