lsp中有没有求点到线的距离的函数？

adison · 发表于 2007-1-20 16:57

各位大侠：
lsp中有没有直接求点到线的距离的函数？如何判断一个点在一个线上，不包括在延伸线上？有急用，谢谢！

Andyhon · 发表于 2007-1-20 17:38

AutoLISP Reference 内的帮助
vlax-curve-getClosestPointTo
及其相关函数

TANER · 发表于 2007-1-21 21:06

;;; ==================================================================
;;; 返回(距离垂足) 点pt到直线的距离和垂足.
;;; ==================================================================
(defun th-per (pt obj / pt2 dist)
(if (and
pt
obj
)
(setq dist (distance pt (setq pt2 (vlax-curve-getclosestpointto obj pt t))))
)
(list dist pt2)
)
;;; ==================================================================

adison · 发表于 2007-1-22 12:30

多谢，这个方法很好。

tjuzkj · 发表于 2011-2-19 10:00

这个正是我所需要的

mandala · 发表于 2011-2-19 13:14

本帖最后由 mandala 于 2011-2-19 13:22 编辑

如何判断一个点在一个线上，不包括在延伸线上？

给个思路：
点pt，直线两个端点p1、p2。
当三角形pt、p1、p2的面积\=0，并且pt到p1、p2的距离均小于p1、p2间的距离时，
pt在直线上。

要写成lsp也很简单。

另：用三楼的办法其实不仅仅可以求直线，也可以求得点到曲线的距离和垂足。

zwf100 · 发表于 2011-2-22 18:32

深受启发

yoyoho · 发表于 2011-2-23 21:39

感谢TANER
分享函数<谢谢!>

账号		自动登录	找回密码
密码			注册

[函数] lsp中有没有求点到线的距离的函数？