用数学的方法求点到直线的距离

Lispboy

1. (defun XD::Geom:P2L-Dist (pnt pt1 pt2 / c1 c2 c3 dis)
   
2.   (setq c1 (- (cadr pt2) (cadr pt1))
   
3.         c2 (- (car pt1) (car pt2))
   
4.         c3 (sqrt (+ (* c1 c1) (* c2 c2)))
   
5.         c1 (/ c1 c3)
   
6.         c2 (/ c2 c3)
   
7.         c3 (/ (- (* (car pt2) (cadr pt1)) (* (car pt1) (cadr pt2))) c3)
   
8.         dis (+ (* c1 (car pnt)) (* c2 (cadr pnt)) c3)
   
9.   )
   
10. )
    
11. 
    

(defun XD::Geom:P2L-Dist (pnt pt1 pt2 / c1 c2 c3 dis)<br />   (setq c1 (- (cadr pt2) (cadr pt1))<br />         c2 (- (car pt1) (car pt2))<br />         c3 (sqrt (+ (* c1 c1) (* c2 c2)))<br />         c1 (/ c1 c3)<br />         c2 (/ c2 c3)<br />         c3 (/ (- (* (car pt2) (cadr pt1)) (* (car pt1) (cadr pt2))) c3)<br />         dis (+ (* c1 (car pnt)) (* c2 (cadr pnt)) c3)<br />   )<br /> )<br /> <br />

Highflybird

下面是trans函数的应用:
[pcode=lisp,true]
;;;----------------------------------------------------;
;;;功能: 点到直线的距离（带方向）                      ;
;;;输入: 要求的点Pt，和直线的两个端点P1,P2             ;
;;;输出: 带符号的距离，为正P1,P2,Pt逆时针，否则顺时针  ;
;;;----------------------------------------------------;
(defun LINE:Perpendicular_Distance_2 (pt p1 p2 / )
  (car (trans (mapcar '- pt p1) 0 (mapcar '- p2 p1)))
)
[/pcode]

Lispboy

Highflybird 发表于 2013-6-14 11:44
下面是trans函数的应用:

;;;----------------------------------------------------;

对直线，说逆时针是不是比较抽象，改上下左右比较好？

Free-Lancer

左右以前进方向来说更好理解来自: Android客户端

q3_2006

直线的方向，有点晕！

wufeng0258

学习了，非常好，辛苦了

st788796

返回距离和向量可能会更有用途

1. (defun XD::Pnt:P2L (p p1 p2)
   
2.   (list        (car (trans (mapcar '- p p1) 0 (mapcar '- p2 p1)))
   
3.         (mapcar        '-
   
4.                 (inters        p1
   
5.                         p2
   
6.                         p
   
7.                         (polar p
   
8.                                (+ (angle p1 p2) (/ pi 2))
   
9.                                1.
   
10.                         )
    
11.                         nil
    
12.                 )
    
13.                 p
    
14.         )
    
15.   )
    
16. )
    

(defun XD::Pnt:P2L (p p1 p2)<br />   (list        (car (trans (mapcar '- p p1) 0 (mapcar '- p2 p1)))<br />         (mapcar        '-<br />                 (inters        p1<br />                         p2<br />                         p<br />                         (polar p<br />                                (+ (angle p1 p2) (/ pi 2))<br />                                1.<br />                         )<br />                         nil<br />                 )<br />                 p<br />         )<br />   )<br /> )<br />

newer

st788796 发表于 2013-11-17 22:21
返回距离和向量可能会更有用途

向量最好转成单位向量。

st788796

newer 发表于 2013-11-17 23:02
向量最好转成单位向量。

仅返回单位向量就不能用于DIM类的MoveStretchPoint了，可以加个 开关是否转换

kkt123

直线的方向，有点晕:L:L

zhangjianjie630

学习了....

coiew

这个方法很强，我到现在还没理解。

MUYIY

学习了，谢谢