Trouver le milieu entre deux points

[Invité Patrick]

Arguments fournis à la fonction: deux points sous forme de Variant

Valeur retournée par la fonction: un point qui est le milieu entre ces deux points

Auteur: Norman Yuan (nyuan@trulinedrafting.com)

Adaptée (changement du nom de la fonction pour la franciser)

 

Public Function P_MilieuEntreDeuxPoints(pt1 As Variant, pt2 As Variant) As Variant

   Dim midPT(0 To 2) As Double

   midPT(0) = (pt1(0) + pt2(0)) / 2
   midPT(1) = (pt1(1) + pt2(1)) / 2
   midPT(2) = (pt1(2) + pt2(2)) / 2

   P_MilieuEntreDeuxPoints = midPT

End Function