langjs 发表于 2011-4-2 12:19:02

如何判断点在直线上？

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

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

本帖最后由 Gu_xl 于 2011-4-2 14:31 编辑


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

半夜星星 发表于 2018-1-30 09:04:55

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

半夜星星 发表于 2018-1-30 08:48:40

本帖最后由 半夜星星 于 2018-1-30 09:05 编辑

上面还是不会用啊，下面的出错了
[*](defun c:tt ()
[*](setq pt (getpoint "\n 请输入一个点"))
[*](setq en (car (entsel)))
[*](online (en pt))
[*])

Andyhon 发表于 2011-4-2 12:29:04

http://www.google.com/search?as_q=%E5%A6%82%E4%BD%95%E5%88%A4%E6%96%B7%E9%BB%9E%E5%9C%A8%E7%9B%B4%E7%B7%9A%E4%B8%8A&as_epq=&as_oq=&as_eq=&hl=zh-CN&num=10&lr=&cr=&as_ft=i&as_filetype=&as_qdr=all&as_occt=any&as_dt=i&as_sitesearch=http%3A%2F%2Fbbs.mjtd.com%2F&as_rights=&safe=images&btnG=Google+%E6%90%9C%E5%B0%8B

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

mandala 发表于 2011-4-2 15:31:05

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

langjs 发表于 2011-4-2 16:39:37

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

是个很好的思路，谢谢

langjs 发表于 2011-4-2 16:40:41

Gu_xl 发表于 2011-4-2 14:26 static/image/common/back.gif


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

Andyhon 发表于 2018-1-30 11:28:31

(online en pt)

半夜星星 发表于 2018-1-30 12:58:15

谢谢，成功了
页: [1] 2
查看完整版本: 如何判断点在直线上？