利用向量判断点表的排列方向 顺时针 逆时针
;获取点表的排列方向，1顺时针，-1逆时针，0共线(defun JudPtsClock (pts / i n pt1 pt2 sum)
(setq sum 0)
(setq i 0)
(repeat (setq n (length pts))
(setq pt1 (nth i pts))
(setq pt2 (nth (rem (1+ i) n) pts));rem 在这里的作用是为了确保索引不会超出点列表 pts 的范围，特别是当 i 等于 n-1 并递增后达到 n 时，通过取余可以让索引回绕到列表的第一个元素，从而形成一个循环遍历列表中的每个相邻点对
(setq sum (+ sum (- (* (car pt2) (cadr pt1)) (* (car pt1) (cadr pt2)))));叉积之和判断正负
(setq i (1+ i))
)
(cond
((> sum 0) 1)
((< sum 0) -1)
((= sum 0) 0)
)
)再贴一个向量的应用
很好的代码，我复制一份lee的
;; Clockwise-p-Lee Mac
;; Returns T if p1,p2,p3 are clockwise oriented
(defun LM:Clockwise-p ( p1 p2 p3 )
((lambda ( n ) (< (car (trans p2 0 n)) (car (trans p1 0 n)))) (mapcar '- p1 p3))
)
(defun CheckPtsCCW (pts / sum x y)
;; 获取点表的排列方向，1顺时针，-1逆时针，0共线
(setq sum (apply '+(mapcar '(lambda (x y) (- (* (car y) (cadr x)) (* (car x) (cadr y))))(cons (last ptn) ptn) ptn)))
(cond((> sum 0) 1)
((< sum 0) -1)
((= sum 0) 0)
)
)
前段时间看见B站视频，讲的方法有点麻烦，就问了下AI，结果用向量如此简单，上面的rem那步还没看懂，又问了一下，原来如此，又学到一招，我已经注释上去了，以后几何的事就交给AI了，我们只负责业务逻辑 什么叫点表的排列方向 正好用到，感谢楼主分享。。
页:
[1]