[函数] 利用向量判断点表的排列方向 顺时针 逆时针
;获取点表的排列方向,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)
)
)
页:
[1]