[求助]：如何判断一点是否在一直线上？

nuance

如何判断一点是否在一直线上？

XDSoft

最初由 nuance 发布
[B]如何判断一点是否在一直线上？ [/B]

一个方法，点到直线距离是否为0，自己根据公式写个代码就可以。

另一个方法判断 点和起点的角度，终点和点的角度是否相等或者差PI

cy956

2. 
   
3. (defun left(p1 p2 p3 / p c B C P)    ;;;p3点位于p1p2的关系
   
4.   (setq p p3)
   
5.   (apply '+ (mapcar '(lambda (b)
   
6.     (setq c(- (* (car p) (cadr b)) (* (cadr p) (car b))) p b )c )
   
7.     (list p1 p2 p3)))
   
8. )
   
9. (defun cy_left(p1 p2 p3 / k p c B C P);;;p3点位于p1p2的关系
   
10.   (setq p p3)
    
11.   (setq k(apply '+ (mapcar '(lambda (b)
    
12.     (setq c(- (* (car p) (cadr b)) (* (cadr p) (car b))) p b )c )
    
13.     (list p1 p2 p3))))
    
14.   (cond
    
15.     ((equal k 0.0 0.00005) 0.0);;上,此精度太小会出错
    
16.     ((> k 0) 1);;左
    
17.     (t -1);;右
    
18.   )
    
19. )
    

<br /> (defun left(p1 p2 p3 / p c B C P)    ;;;p3点位于p1p2的关系<br />   (setq p p3)<br />   (apply '+ (mapcar '(lambda (b)<br />     (setq c(- (* (car p) (cadr b)) (* (cadr p) (car b))) p b )c )<br />     (list p1 p2 p3)))<br /> )<br /> (defun cy_left(p1 p2 p3 / k p c B C P);;;p3点位于p1p2的关系<br />   (setq p p3)<br />   (setq k(apply '+ (mapcar '(lambda (b)<br />     (setq c(- (* (car p) (cadr b)) (* (cadr p) (car b))) p b )c )<br />     (list p1 p2 p3))))<br />   (cond <br />     ((equal k 0.0 0.00005) 0.0);;上,此精度太小会出错<br />     ((> k 0) 1);;左<br />     (t -1);;右<br />   )<br /> )<br />

aeo

(equal (+(distance p p1)(distance p p2))(distance p1 p2) 1e-5)