如何判断点在直线上？

langjs

一个坐标点Ｐ，一个直线图元en，如何判断点Ｐ在直线ent上（包括en的延长线）？

Gu_xl

1. (defun online (en pt)
   
2.   (cond        ((equal pt (vlax-curve-getclosestpointto en pt) 1e-6) (princ "在直线上") )
   
3.         ((equal        (angle pt (vlax-curve-getstartpoint en))
   
4.                 (angle pt (vlax-curve-getendpoint en))
   
5.                 1e-6
   
6.          ) ;_ equal
   
7.          (princ "在直线延长线上")        )
   
8.         (t (princ "不在直线上") )
   
9.   ) ;_ cond
   
10. )
    

(defun online (en pt)<br />   (cond        ((equal pt (vlax-curve-getclosestpointto en pt) 1e-6) (princ "在直线上") )<br />         ((equal        (angle pt (vlax-curve-getstartpoint en))<br />                 (angle pt (vlax-curve-getendpoint en))<br />                 1e-6<br />          ) ;_ equal<br />          (princ "在直线延长线上")        )<br />         (t (princ "不在直线上") )<br />   ) ;_ cond<br /> )<br />

半夜星星

(defun c:tt ()
        (setq pt (getpoint "\n 请输入一个点"))
        (setq en (car (entsel)))
        (online (en pt))
)

半夜星星

上面还是不会用啊，下面的出错了

• (defun c:tt ()
•   (setq pt (getpoint "\n 请输入一个点"))
•   (setq en (car (entsel)))
•   (online (en pt))
• )
  

Andyhon

http://www.google.com/search?as_ ... +%E6%90%9C%E5%B0%8B

...包括en的延长线...
可用点至该线两个端点的角度差或面积来验证

mandala

我的思路是算三角形面积。如果等于0，就是在直线上（包括延长线）。

langjs

mandala 发表于 2011-4-2 15:31
我的思路是算三角形面积。如果等于0，就是在直线上（包括延长线）。

是个很好的思路，谢谢

langjs

Gu_xl 发表于 2011-4-2 14:26

谢谢版主指点，不会Ｖlisp，看不懂，好用就行。

Andyhon

(online en pt)

半夜星星

谢谢，成功了