[求助]：帮帮我，论坛上搜不出：如何求点到直线的距离

urljit

在日常工作中遇到一个问题：已知三点，求其中一点到另外两点所在直线的距离，谁知道怎样解决？帮帮我吧。谢谢了，先！

netbee

直接用解析几何的知识吧。

lsjjm

REFER TO:
点到任意曲线距离
[php]
(defun c:test ()
  (setq p (getpoint "\nPick point: "))
  (setq l (car (entsel "\nSelect line: ")))
  (dispt2cur p c)
)
(defun dispt2cur (p c)
  (distance p (vlax-curve-getclosestpointto
                (vlax-ename->vla-object l)
                (trans p 1 0)
                acExtendBoth)
              )
)

如果已知三点:
(defun dispt2line (p p1 p2)
  (distance p (inters p1 p2 p (polar p (+ (angle p1 p2)(/ pi 2)) 1) nil))
)
[/php]

zxq0220

已知三点，求第一点到另外两点所在直线的距离。程序如下：
(DEFUN DIST3P (P P1 P2)
(SETQ AN1 (ANGLE P1 P2)  AN2 (ANGLE P1 P))
(SETQ ANG (IF (> AN1 AN2) (- AN1 AN2) (- AN2 AN1)))
(* (DISTANCE P1 P) (SIN ANG))
)

urljit

谢谢各位,发贴后和朋友们讨论，也有人说用楼上朋友的做法，但，我觉得还是用余弦定理求出角度比较安全（程序的适用性）。不过，还是谢谢了！

梦断江南

贴一段eachy版主以前写的代码

2. 
   
3. 
   
4. ;;by eachy
   
5. ;;; 返回点到直线距离
   
6. ;;;返回值：点到直线的距离，点在线段的左(上)侧为负值, 在右(下)侧为正值。;
   
7. ;;;方向根据给定的起始点和终止点定。
   
8. ;;; Request distance from a point(p0) to a line(p1 p2).
   
9. ;ea (ptoln (getpoint)(getpoint)(getpoint))
   
10. (defun ptoln (p0 p1 p2 / x1 y1 x2 y2 c1 c2 c3)
    
11.   (setq    x1 (car p1)
    
12.     y1 (cadr p1)
    
13.     x2 (car p2)
    
14.     y2 (cadr p2)
    
15.     c1 (- y2 y1)
    
16.     c2 (- x1 x2)
    
17.     c3 (- (* x2 y1) (* x1 y2))
    
18.   )
    
19.   (/ (+ (* c1 (car p0)) (* c2 (cadr p0)) c3)
    
20.      (sqrt (+ (* c1 c1) (* c2 c2)))
    
21.   )
    
22. )
    

<br /> <br /> ;;by eachy<br /> ;;; 返回点到直线距离<br /> ;;;返回值：点到直线的距离，点在线段的左(上)侧为负值, 在右(下)侧为正值。;<br /> ;;;方向根据给定的起始点和终止点定。<br /> ;;; Request distance from a point(p0) to a line(p1 p2).<br /> ;ea (ptoln (getpoint)(getpoint)(getpoint))<br /> (defun ptoln (p0 p1 p2 / x1 y1 x2 y2 c1 c2 c3)<br />   (setq    x1 (car p1)<br />     y1 (cadr p1)<br />     x2 (car p2)<br />     y2 (cadr p2)<br />     c1 (- y2 y1)<br />     c2 (- x1 x2)<br />     c3 (- (* x2 y1) (* x1 y2))<br />   )<br />   (/ (+ (* c1 (car p0)) (* c2 (cadr p0)) c3)<br />      (sqrt (+ (* c1 c1) (* c2 c2)))<br />   )<br /> )<br />

lsjjm

Try this:
[php]
(defun c:test ()
  (setq p (getpoint "\nPick point: "))
  (setq l (entsel "\nselect line: "))
  (distance p (osnap (cadr l) "Per"))
)
[/php]

urljit

先说谢谢，再说给楼上的朋友，我的三个点是已知的，不是临时拾取的。

simy

这个就不用编程了吧
装载程序的时间比画图的时间长

urljit

9楼朋友：我就是在程序中使用的，不是直接画图，这样就提出了适用性的要求，也就是不管是什么位置关系都能成立，即便是象xy轴这样的特殊位置

刚才研究了一下，6楼引用的eachy斑竹的autolisp程序是经典的点到直线距离的公式映射，太好了！！！

还有就是既然eachy斑竹给上面3楼的vlisp程序（我看不懂，^_^）加分了，那肯定也是经典之作了，谢谢！！！

经典的点到直线距离的公式可以看这里：
http://www.hzgz.net/lgq/lunwen/ddzxdjlgsdwztd/ddzxdjlgsdwztd.htm

sjylzf

精彩！长见识了，谢谢

urljit

我已经将上述知识应用到我自己的程序中了，谢谢各位的参与

PFD8667

请教6楼楼主,该程序命令是什么?

梦断江南

最初由 PFD8667 发布
[B]请教6楼楼主,该程序命令是什么? [/B]

程序中已经写的很清楚,这是个函数,不是命令
调用方式:(ptoln (getpoint)(getpoint)(getpoint))

如果做成命令,可以这样:

2. 
   
3. (defun c:ptoln ()
   
4.   (ptoln (getpoint "\n取点;")(getpoint "\n取直线端点1:")(getpoint "\n取直线端点2:"))
   
5. )
   

<br /> (defun c:ptoln ()<br />   (ptoln (getpoint "\n取点;")(getpoint "\n取直线端点1:")(getpoint "\n取直线端点2:"))<br /> )<br />

urljit

楼上的斑竹大人：(defun c:ptoln ()和(defun ptoln () 会发生冲突么？我现在在办公室，这里没有cad，不能试验。