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

satan421

生命不息 学习不止 谢谢分享

qq1254582201

这个貌似不能真的按照顺时针排序，给定的点表顺序不同得到的排序不同

wrfyan123

超级实用，，，赞一个

cjh9635

斑竹这个排序后会曾加一个顶点，不利于后续编辑，改了下，以逆时钟重新排序，有需要的拉走
;|
对点表，根据其中存在的一个点PT为起点，逆时针重新排序
参数
  pts --- 表
  pt--- 表中点
  tol --- 容差

  返回值： 表
|;
(defun XD-sort-PtS (pts pt tol / B A C)
(setq B (vl-member-if '(lambda (x)
          (equal x pt tol)
          ) pts
     )
     A (vl-member-if '(lambda (x)
          (equal x pt tol)
          ) (reverse pts)
     )
     C (vl-remove  pt A)
  )
  (if (< (XD::PntS:Area pts) 0.0)
  (reverse(append B(reverse C)))
   
  (append B (reverse C))
  )
)

;|;;; 点围成的多边形面积

参数： pts ----点表
返回值： 实数

副作用： 如果点表是逆时针，面积正， 顺时针 面积负
|;
(defun XD::PNTS:Area (pts / pts1 iSum p0 p1 p2 x0 x1 x2 y0 y1 y2)
  (setq pts1 pts)
  (setq iSum 0)
  (setq p0 (car pts)
        x0 (car p0)
        y0 (cadr p0)
  )
  (while (cdr pts1)
    (setq p1 (car pts1)
          x1 (car p1)
          y1 (cadr p1)
          p2 (cadr pts1)
          y2 (cadr p2)
          x2 (car p2)
          iSum (+ iSum (- (* x1 y2) (* x2 y1)))
          pts1 (cdr pts1)
    )
  )
  (/ (+ iSum (- (* (caar pts1) y0) (* x0 (cadar pts1)))) 2.0)
)