Difference between revisions of "ReturnMidPtCoord"

From scripting
Jump to: navigation, search
(Created page with " 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(...")
 
(No difference)

Latest revision as of 19:56, 24 April 2017

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