[LISP程序]：请问怎么求一个点到另两点形成直线的距离

小狼

请问怎么求一个点到另两点形成直线的距离

如图

Jeop

思路：三点坐标已知，可算出其面积，又知已知边长，s=a*h/2      ---->      h=2s/a （a为已知边长，h就是你要求的距离，s为三点所构成三角形面积）  明白了没?不知道对你有没有用处！！自己试着去搞一搞！

小狼

这样太麻烦,数据多的话速度会很慢,有没有更简单的办法呢?

Jeop

别的就不太清楚了!一般的都是这样的!

eachy

最初由 小狼 发布
[B]这样太麻烦,数据多的话速度会很慢,有没有更简单的办法呢? [/B]

怎么都不舍得搜索呢？唉。

p1 p2 直线上点，p3 外部点

方法一：

2. 
   
3. (setq ang (angle p1 p2)
   
4.          ang1 (+ ang (/ pi 2))
   
5. )
   
6. (setq p (inters p1 p2 p3 (polar p3 ang1 1.) nil)
   

<br /> (setq ang (angle p1 p2)<br />          ang1 (+ ang (/ pi 2))<br /> )<br /> (setq p (inters p1 p2 p3 (polar p3 ang1 1.) nil)<br />

方法二：求点到空间直线的的垂点，在lisp论坛找（空间直线方程）

方法三：
点到直线的垂点

2. 
   
3. (setq p (vlax-curve-getClosestPointTo e p3))

<br /> (setq p (vlax-curve-getClosestPointTo e p3))

maplesu

其实利用面积数据也应该不多吧，我认为不会慢！！！
(command "area" pt1 pt2 pt3)
(setq h (* (/ (getvar "area") (dictsance pt1 pt2)) 2))

小狼

(setq p (vlax-curve-getClosestPointTo e p3))
方法我找到了,可惜如果是连续的Pline线的话就不能满足我只要求两点形成的线，我只要3个点的，太多了判断容易出错

xingbaoquan99

6楼楼主说：   

其实利用面积数据也应该不多吧，我认为不会慢！！！
(command "area" pt1 pt2 pt3)
(setq h (* (/ (getvar "area") (dictsance pt1 pt2)) 2))  


其中dictsance 应为distance(返回两点见距离),千万别搞错了.

maplesu

谢谢楼上的，因为是直接写的没有试用过，居然打错了都不知道。
再次感谢

小狼

我只有3个已知点,再画线求面积会很慢的

maplesu

哪里需要画线求面积了，你是要话出还是要算出结果呀！！

小狼

只要距离,不需要别的,

maplesu

你看看我在6楼发的代码
直接点输入三点就能的到面积了呀。
写完整了就是：

选择3个点，求出的是第一个点到第二第三点所在直线的垂直距离。

2. 
   
3.   
   
4. 
   
5. [FONT=courier new]
   
6. (defun c:3dj()
   
7.   (setq pt1 (getpoint)
   
8.         pt2 (getpoint)
   
9.         pt3 (getpoint))
   
10.   (command "area" pt1 pt2 pt3 "")
    
11.   (setq h (* (/ (getvar "area") (distance pt2 pt3)) 2))
    
12.   h
    
13.   )   [/FONT]
    

<br />   <br /> <br /> [FONT=courier new]<br /> (defun c:3dj()<br />   (setq pt1 (getpoint)<br />         pt2 (getpoint)<br />         pt3 (getpoint))<br />   (command "area" pt1 pt2 pt3 "")<br />   (setq h (* (/ (getvar "area") (distance pt2 pt3)) 2))<br />   h<br />   )   [/FONT]<br />

eachy

最初由 小狼 发布
[B]只要距离,不需要别的, [/B]

用方法一：

2. 
   
3. ;;p0 直线外点 p1 p2 直线点
   
4. (defun d2p (p0 p1 p2 / p ang)
   
5.   (setq        ang (angle p1 p2)
   
6.         p   (inters p0 (polar p0 (+ ang (/ pi 2)) 1.) p1 p2 nil)
   
7.   )
   
8.   (distance p0 p)
   
9. )
   
10. 
    

<br /> ;;p0 直线外点 p1 p2 直线点<br /> (defun d2p (p0 p1 p2 / p ang)<br />   (setq        ang (angle p1 p2)<br />         p   (inters p0 (polar p0 (+ ang (/ pi 2)) 1.) p1 p2 nil)<br />   )<br />   (distance p0 p)<br /> )<br /> <br />

小狼

如果这样算的话，点如果在直线方向上，而不在两点直线内，算出来的距离也是0，那也不对啦