点到线段的最短距离。。。。

chuankay

最近需要用一个计算 “ 点 到 线段的最短距离 Dis” 的小函数，按照自己理解写的，有些地方不严谨，贴上脚本行大家来指正。LA， LB， LC是一个点与线段形成的三角形的三边长（也可能不是三角形，这里假设LA, LB,LC任意两个之和大于第三个）。Dis是最小距离，Arc#是对边角度，单位是弧度。

1. defun( getDistance (LA LB LC)
   
2.       
   
3.         ArcA = acos((LC**2 + LB**2 - LA**2)/(2*LB*LC))
   
4.         ArcB = acos((LA**2 + LC**2 - LB**2)/(2*LA*LC))
   
5.         ArcC = acos((LA**2 + LB**2 - LC**2)/(2*LA*LB))
   
6. 
   
7.         cond(
   
8.                 (ArcB >= pi/2 Dis = LC )
   
9.                 (ArcC >= pi/2 Dis = LB )
   
10.                 (ArcB < pi/2 && ArcC < pi/2 Dis = sin(ArcB)*LC)
    
11.         );cond
    
12.         Dis = round(Dis)
    
13. );defun        

复制代码

ASDK

学习学习

ASDK

学习学习

ASDK

学习学习