点到线上的垂点

283528149 · 发表于 2012-6-18 17:23

求点到线上的垂点

cable2004 · 发表于 2012-6-18 17:39

点到线的最短距离！有函数！

soly2006 · 发表于 2012-6-18 18:31

还是多用论坛的搜索功能吧，少些重复主题，不能太懒。

xiabin68 · 发表于 2012-6-18 21:05

我还在找方法，，

yshf · 发表于 2012-6-18 22:51

本帖最后由 yshf 于 2012-6-18 22:51 编辑

设直线上的一点为P1，直线上另一点为P2，直线外任一点为P3，
则P3到直线P1P2的距离为：d=2×三角形P3P1P2的面积÷P1到P2的距离。
测试程序如下：

;点到直线的距离 yshf
(defun c:test()
(setq cm (getvar "cmdecho"))
(setvar "cmdecho" 0)
(if (setq p1 (getpoint "\n直线段第一个端点:"))
(if (setq p2 (getpoint p1 "\n直线段第二个端点:"))
(while (setq p3 (getpoint "\n直线外的任一点<回车结束>:"))
(command "_area" p3 p1 p2 "")
(setq d (/ (* 2.0 (getvar "area")) (distance p1 p2)))
(princ (strcat "\n点到直线的距离=" (rtos d 2 10)))
)
)
)
(setvar "cmdecho" cm)
(princ)
)

caoyin · 发表于 2012-6-19 02:53

方法1：
;;设直线上的一点为P1，直线上另一点为P2，直线外任一点为P3
(distance
P3
(inters P1 P2 P3 (polar P3 (+(angle P1 P2)(/ PI 2)) 1) nil)
)
;;方法二
查看vlax-curve-getClosestPointTo函数帮助

duotu007 · 发表于 2012-6-19 09:08

(vlax-curve-getClosestPointTo (vlax-ename->vla-object (car (entsel "\n选择线"))) (getpoint "\n选择点"));线上到指定点最近点

vormittag · 发表于 2012-6-19 10:50

这是一个非常牛的算法：

http://bbs.mjtd.com/forum.php?mo ... &fromuid=398403

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

点到线上的垂点

本帖子中包含更多资源