判断两点是否在一条直线的同一侧

炫翔

1. ;功能: 判断两点是否在一条直线的同一侧
   
2. ;输入: 要判断的两点点P1,P2和直线的两个端点Pa,Pb
   
3. ;输出: T 说明同侧，nil异侧   
   
4. ;(xx-p-pd-2pToL-InSS P1 P2 Pa Pb)
   
5. (defun xx-p-pd-2pToL-InSS (P1 P2 Pa Pb / d1 d2 eps xx-pl3-Det3P)
   
6. (defun xx-pl3-Det3P (p1 p2 p3)
   
7.   (- (* (- (car p2) (car p1)) (- (cadr p3) (cadr p1)))
   
8.      (* (- (car p3) (car p1)) (- (cadr p2) (cadr p1)))
   
9.   )
   
10. )
    
11.    (setq eps 1e-6)
    
12.    (setq d1 (xx-pl3-Det3P P1 PA PB))
    
13.    (setq d2 (xx-pl3-Det3P P2 PA PB))
    
14.    (or (and (<= d1 eps) (<= d2 eps))
    
15.       (and (>= d1 (- eps)) (>= d2 (- eps)))
    
16.    )
    
17. )

;功能: 判断两点是否在一条直线的同一侧 <br /> ;输入: 要判断的两点点P1,P2和直线的两个端点Pa,Pb <br /> ;输出: T 说明同侧，nil异侧   <br /> ;(xx-p-pd-2pToL-InSS P1 P2 Pa Pb)<br /> (defun xx-p-pd-2pToL-InSS (P1 P2 Pa Pb / d1 d2 eps xx-pl3-Det3P)<br /> (defun xx-pl3-Det3P (p1 p2 p3)<br />   (- (* (- (car p2) (car p1)) (- (cadr p3) (cadr p1)))<br />      (* (- (car p3) (car p1)) (- (cadr p2) (cadr p1)))<br />   )<br /> )<br />    (setq eps 1e-6)<br />    (setq d1 (xx-pl3-Det3P P1 PA PB))<br />    (setq d2 (xx-pl3-Det3P P2 PA PB))<br />    (or (and (<= d1 eps) (<= d2 eps))<br />       (and (>= d1 (- eps)) (>= d2 (- eps)))<br />    )<br /> )

有的时候需要判断两直线是否重叠

/db_自贡黄明儒_

.这个highfLybird用trans方法更简洁

newer

炫版，还是那个最基本的点到直线的距离的函数，你提供个版本吧。

这个你说的是否重叠直线，用点到直线距离都是0就判定了。

xyp1964

2. (defun aa (p1 p2 p1-line p2-line / s1 s2 mode)
   
3.   (setq        s1   (xyp-line p1-line p2-line)
   
4.         s2   (xyp-line p1 p2)
   
5.         mode (if (xyp-get-Inters s1 s2 1)
   
6.                t
   
7.                nil
   
8.              )
   
9.   )
   
10.   (xyp-erase (list s1 s2))
    
11.   mode
    
12. )
    

(defun aa (p1 p2 p1-line p2-line / s1 s2 mode)<br />   (setq        s1   (xyp-line p1-line p2-line)<br />         s2   (xyp-line p1 p2)<br />         mode (if (xyp-get-Inters s1 s2 1)<br />                t<br />                nil<br />              )<br />   )<br />   (xyp-erase (list s1 s2))<br />   mode<br /> )<br />

xyp1964

2. (defun aaa (p1 p2 line / s1 mode)
   
3.   (setq        s1   (xyp-line p1 p2)
   
4.         mode (if (xyp-get-Inters line s1 1)
   
5.                t
   
6.                nil
   
7.              )
   
8.   )
   
9.   (xyp-erase s1)
   
10.   mode
    
11. )

(defun aaa (p1 p2 line / s1 mode)<br />   (setq        s1   (xyp-line p1 p2)<br />         mode (if (xyp-get-Inters line s1 1)<br />                t<br />                nil<br />              )<br />   )<br />   (xyp-erase s1)<br />   mode<br /> )