ReturnMidPtCoord

From scripting
Jump to: navigation, search
Function ReturnMidPtCoord(X1 As Double, Y1 As Double, Z1 As Double, X2 As Double, Y2 As Double, Z2 As Double) As Variant
Dim FinalPt(2)
FinalPt(0) = (X1 + X2) / 2
FinalPt(1) = (Y1 + Y2) / 2
FinalPt(2) = (Z1 + Z2) / 2
ReturnMidPtCoord = FinalPt
End Function