怎样求点到直线的距离

54256

如题，目前我的想法是从点画一条和直线垂直的射线，求射线和直线的交点，交点到点的距离就是直线到点的距离，不知道有没有好一点的算法

ljpnb

(setq pt1 (vlax-curve-getClosestPointTo ln pt T)  其中ln为已知直线， pt为已知的点，pt1为已知点到直线的垂足

看天的小树

我瞎猜的，能否用向量矩阵，相互垂直的向量乘积为零。

edata

将点按直线镜像，再求这两条线的交点。

edata

http://bbs.mjtd.com/forum.php?mod=viewthread&tid=109210现成的
;;点到直线的垂直距离
(defun point_line (pt pt1 pt2 / ptangle ptn pt pt1 pt2 dist jptx)
  (setq        ptangle        (angle pt1 pt2)
        ptn        (polar pt (+ (* 0.5 pi) ptangle) 0.01)
        jptx        (inters pt ptn pt1 pt2 nil)
        dist        (distance pt jptx)
  )
  dist
)

edata

G版的垂点函数

1. ;;;计算cp到p1 p2的垂足点
   
2. (defun PerToLine  (cp p1 p2 / norm)
   
3.   (setq        norm (mapcar '- p2 p1)
   
4.         p1   (trans p1 0 norm)
   
5.         cp   (trans cp 0 norm)
   
6.         )
   
7.   (trans (list (car p1) (cadr p1) (caddr cp)) norm 0)
   
8.   )

;;;计算cp到p1 p2的垂足点<br /> (defun PerToLine  (cp p1 p2 / norm)<br />   (setq        norm (mapcar '- p2 p1)<br />         p1   (trans p1 0 norm)<br />         cp   (trans cp 0 norm)<br />         )<br />   (trans (list (car p1) (cadr p1) (caddr cp)) norm 0)<br />   )

2. ;高飞鸟的trans函数求垂距
   
3. ;
   
4. (defun sk_p2l(cp p1 p2)   
   
5.    (abs(car (trans (mapcar '- cp p1) 0 (mapcar '- p2 p1))))
   
6.    )

;高飞鸟的trans函数求垂距<br /> ;<br /> (defun sk_p2l(cp p1 p2)   <br />    (abs(car (trans (mapcar '- cp p1) 0 (mapcar '- p2 p1))))<br />    )

xinxirong

edata 发表于 2015-6-13 12:05
G版的垂点函数

(sk_p2l '(1.0 2.0 3.0) '(3.0 5.0 7.0) '(4.0 6.0 8.0))返回0.707107？ 应该是1.41421才对吧？