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

dtucad

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

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

再贴一个向量的应用

xyp1964

1. (defun CheckPtsCCW (pts / sum x y)
   
2.   ;; 获取点表的排列方向，1顺时针，-1逆时针，0共线
   
3.   (setq sum (apply '+(mapcar '(lambda (x y) (- (* (car y) (cadr x)) (* (car x) (cadr y))))(cons (last ptn) ptn) ptn)))
   
4.   (cond((> sum 0) 1)
   
5.         ((< sum 0) -1)
   
6.         ((= sum 0) 0)
   
7.   )
   
8. )
   

(defun CheckPtsCCW (pts / sum x y)<br />   ;; 获取点表的排列方向，1顺时针，-1逆时针，0共线<br />   (setq sum (apply '+(mapcar '(lambda (x y) (- (* (car y) (cadr x)) (* (car x) (cadr y))))(cons (last ptn) ptn) ptn)))<br />   (cond((> sum 0) 1)<br />         ((< sum 0) -1)<br />         ((= sum 0) 0)<br />   )<br /> )<br />

hhh454

很好的代码，我复制一份lee的

1. ;; Clockwise-p  -  Lee Mac
   
2. ;; Returns T if p1,p2,p3 are clockwise oriented
   
3. 
   
4. (defun LM:Clockwise-p ( p1 p2 p3 )
   
5.     ((lambda ( n ) (< (car (trans p2 0 n)) (car (trans p1 0 n)))) (mapcar '- p1 p3))
   
6. )

;; Clockwise-p  -  Lee Mac<br /> ;; Returns T if p1,p2,p3 are clockwise oriented<br /> <br /> (defun LM:Clockwise-p ( p1 p2 p3 )<br />     ((lambda ( n ) (< (car (trans p2 0 n)) (car (trans p1 0 n)))) (mapcar '- p1 p3))<br /> )

dtucad

前段时间看见B站视频，讲的方法有点麻烦，就问了下AI，结果用向量如此简单，上面的rem那步还没看懂，又问了一下，原来如此，又学到一招，我已经注释上去了，以后几何的事就交给AI了，我们只负责业务逻辑

树櫴希德

什么叫点表的排列方向

win0616

正好用到，感谢楼主分享。。