[求助]：如何判断一个点在一条直线起始点的哪一侧?

li_seagull

如何判断一个点在一条直线起始点的哪一侧?

zheng209

用distcane函数求出点到线的起始点各自距离，再判断各自的大小不就行了

ivysoft

你是不是问在直线左侧或右侧？

li_seagull

是问在直线左侧或右侧？

LUCAS

2. 
   
3. ;; Tony Tanzillo.
   
4.   ;; (vector-side (origin)(direction)(point) )
   
5.   ;; Returns an integer code indicating position of (point)
   
6.   ;; in relation to the directed vector whose endpoints are
   
7.   ;; <origin> and <direction>.
   
8.   ;;   Result  Meaning
   
9.   ;;    -1     Point is to the right of vector.
   
10.   ;;     0     Point is on (colinear with) vector
    
11.   ;;     1     Point is to the left of vector.
    
12.   ;; usage : (vector-side (getpoint) (getpoint) (getpoint))
    
13. 
    
14.   (defun VECTOR-SIDE (V1 V2 P / R)
    
15.     (setq R (- (* (- (car V2) (car V1)) (- (cadr P) (cadr V1)))
    
16.                (* (- (cadr V2) (cadr V1)) (- (car P) (car V1)))
    
17.             )
    
18.     )
    
19.     (cond ((equal R 0.0 1e-8) 0)
    
20.           (t (fix (/ (abs R) R)))
    
21.     )
    
22.   )
    

<br /> ;; Tony Tanzillo.<br />   ;; (vector-side (origin)(direction)(point) )<br />   ;; Returns an integer code indicating position of (point)<br />   ;; in relation to the directed vector whose endpoints are<br />   ;; <origin> and <direction>.<br />   ;;   Result  Meaning<br />   ;;    -1     Point is to the right of vector.<br />   ;;     0     Point is on (colinear with) vector<br />   ;;     1     Point is to the left of vector.<br />   ;; usage : (vector-side (getpoint) (getpoint) (getpoint))<br /> <br />   (defun VECTOR-SIDE (V1 V2 P / R)<br />     (setq R (- (* (- (car V2) (car V1)) (- (cadr P) (cadr V1)))<br />                (* (- (cadr V2) (cadr V1)) (- (car P) (car V1)))<br />             )<br />     )<br />     (cond ((equal R 0.0 1e-8) 0)<br />           (t (fix (/ (abs R) R)))<br />     )<br />   )<br />

blackspot

以前做的一个autolisp程序，供参考:
  (setq lena (distance interpt entanpt))
  (setq lenb (distance interpt entbnpt))
  (setq lenc (distance entanpt entbnpt))
  (setq fr (* 2 lena lenb))
  (setq fx (- (+ (expt lena 2) (expt lenb 2)) (expt lenc 2)))
  (setq fy (sqrt (- (expt fr 2) (expt fx 2))))

  (if (/= fx 0)
    (setq angc (atan (/ fy fx)))
    (setq angc (/ pi 2))
  )
  (if (< angc 0)                        ;第四象限（负角度）转成第二象限（钝角）
    (setq angc (+ angc pi))
  )

;;;******平面直角坐标变换，判断角度为顺时针或逆时针********
  (setq alfa (angle entanpt entbnpt))        ;已是二维点的数据
  (setq x1 (car entanpt))
  (setq y1 (cadr entanpt))
  (setq x2 (car interpt))
  (setq y2 (cadr interpt))
  (setq        xalfa (* (sin alfa)
                 (- (- x2 x1) (/ (- y2 y1) (/ (sin alfa) (cos alfa))))
              )
  )

  (if (> xalfa 0)
    (setq angc (- angc))
  )

它山之石

判断点在直线上的位置

[php]  
(defun pntonline(p1 p2 p3 / p c B C P)
  (setq p p3)

  (apply '+ (mapcar '(lambda (b)
    (setq c(- (* (car p) (cadr b)) (* (cadr p) (car b))) p b )c )
    (list p1 p2 p3)))
)

功能

判断点在直线上的位置

参数

p1,p2：直线上的两点，例如直线上的起点和端点

p3：所要判断的点

返回值

点的位置，等于0时(equal k 0.0 0.00000001)点在线上，

大于0时点在线的左侧，小于0时点在线的右侧

示例

(setq k(pntonline p1 p2 p3))

[/php]

li_seagull

谢谢青铜长老!