[函数] 利用向量判断点表的排列方向 顺时针 逆时针

admin1

1. ;获取点表的排列方向，1顺时针，-1逆时针，0共线
   
2. (defun JudPtsClock (pts / i n pt1 pt2 sum)
   
3.   (setq sum 0)
   
4.   (setq i 0)
   
5.   (repeat (setq n (length pts))
   
6.     (setq pt1 (nth i pts))
   
7.     (setq pt2 (nth (rem (1+ i) n) pts));rem 在这里的作用是为了确保索引不会超出点列表 pts 的范围，特别是当 i 等于 n-1 并递增后达到 n 时，通过取余可以让索引回绕到列表的第一个元素，从而形成一个循环遍历列表中的每个相邻点对
   
8.     (setq sum (+ sum (- (* (car pt2) (cadr pt1)) (* (car pt1) (cadr pt2)))));叉积之和判断正负
   
9.     (setq i (1+ i))
   
10.   )
    
11.   (cond
    
12.     ((> sum 0) 1)
    
13.     ((< sum 0) -1)
    
14.     ((= sum 0) 0)
    
15.   )
    
16. )

复制代码