Distance entre 2 points


Soit un point A de coordonnées et un point B de coordonnées . La distance entre ces 2 points est donnée par la formule:  

Implémentation en AutoLISP

Ici, rien à faire. AutoLISP fournit une fonction nommée Distance qui prends 2 points en argument et qui retourne la distance qui les sépare.

Implémentation en VBA

Function Distance(Pt1, Pt2) As Double
  Distance = Sqr((Pt2(0) - Pt1(0)) ^ 2 + (Pt2(1) - Pt1(1)) ^ 2 + (Pt2(2) - Pt1(2)) ^ 2)
End Function