在任意角度的直线旁边点取一点A(如图)，如何辨别该点是在直线的左边还是右边?

clh521

在任意角度的直线旁边点取一点A(如图)，如何辨别该点是在直线的左边还是右边?

newbuser

可以通过获取直线坐标点计算出方位角，然后以直线起点为基点旋转判断点和直线至方位角为0度，判断x，y大小不就行了？

vectra

直线AB，点为C，

Returns an angle in radians of a line defined by two endpoints

(angle pt1 pt2)

求得A->B及A->C的角度A1、A2，校验A2-A1之差是否大于零。

yshf

2. 
   
3. ;用向量叉积来判断
   
4. (defun c:test()
   
5.     (setq eps 1e-6) ;计算误差
   
6.     (if (setq p1 (getpoint "\n直线起点:"))
   
7.         (if (setq p2 (getpoint p1 "\n直线终点:"))
   
8.             (while (setq pt (getpoint "\n待判断点:"))
   
9.                  (setq dxy1 (mapcar '- p2 p1) ;向量P1->p2
   
10.                        dxy2 (mapcar '- pt p1) ;向量P1->pt
    
11.                        ;向量叉积
    
12.                        xlcj (- (* (car dxy1) (cadr dxy2)) (* (cadr dxy1) (car dxy2)))
    
13.                  )
    
14.                  (cond ((<= (- eps) xlcj eps) (princ "\n点在直线上(包括在延长线上)"))
    
15.                        ((> xlcj  eps)         (princ "\n点在直线左侧"))
    
16.                        ((< xlcj (- eps))      (princ "\n点在直线右侧"))
    
17.                  )
    
18.             )
    
19.         )
    
20.     )
    
21.     (princ)
    
22. )

<br /> ;用向量叉积来判断<br /> (defun c:test()<br />     (setq eps 1e-6) ;计算误差<br />     (if (setq p1 (getpoint "\n直线起点:"))<br />         (if (setq p2 (getpoint p1 "\n直线终点:"))<br />             (while (setq pt (getpoint "\n待判断点:"))<br />                  (setq dxy1 (mapcar '- p2 p1) ;向量P1->p2<br />                        dxy2 (mapcar '- pt p1) ;向量P1->pt<br />                        ;向量叉积<br />                        xlcj (- (* (car dxy1) (cadr dxy2)) (* (cadr dxy1) (car dxy2)))<br />                  )<br />                  (cond ((<= (- eps) xlcj eps) (princ "\n点在直线上(包括在延长线上)"))<br />                        ((> xlcj  eps)         (princ "\n点在直线左侧"))<br />                        ((< xlcj (- eps))      (princ "\n点在直线右侧"))<br />                  )<br />             )<br />         )<br />     )<br />     (princ)<br /> )

xyp1964

2. 
   
3. ;; 云共享 http://yunpan.cn/QXQKsW9gAPmpF
   
4. (defun c:tt ()
   
5.   (setq        s1 (car (entsel "\n选择直线: "))
   
6.         p1 (xyp-DXF 10 s1)
   
7.         p2 (xyp-DXF 11 s1)
   
8.   )
   
9.   (while (setq p3 (getpoint "\n基点<退出>: "))
   
10.     (setq tx (if (xyp-PlineCCW-Check (list p1 p2 p3)) "左" "右"))
    
11.     (xyp-Text 5 p3 tx)
    
12.   )
    
13.   (princ)
    
14. )

<br /> ;; 云共享 http://yunpan.cn/QXQKsW9gAPmpF<br /> (defun c:tt ()<br />   (setq        s1 (car (entsel "\n选择直线: "))<br />         p1 (xyp-DXF 10 s1)<br />         p2 (xyp-DXF 11 s1)<br />   )<br />   (while (setq p3 (getpoint "\n基点<退出>: "))<br />     (setq tx (if (xyp-PlineCCW-Check (list p1 p2 p3)) "左" "右"))<br />     (xyp-Text 5 p3 tx)<br />   )<br />   (princ)<br /> )

clh521

谢谢以上各位帮助，问题已解决

自贡黄明儒

highflybird在trans讲解中是这样判断的

;;通过正负判断
(car (trans (mapcar '- (getpoint "\n 被判断点") (setq p1 (getpoint "\n 直线起点"))) 0 (mapcar '- (getpoint "\n 直线终点") p1)))

clh521

自贡黄明儒 发表于 2013-9-29 12:31
highflybird在trans讲解中是这样判断的

;;通过正负判断

谢谢，你这简洁，