ReturnMidPtCoord

From scripting
Revision as of 19:56, 24 April 2017 by Nickpisca (talk | contribs) (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(...")
(diff) ← Older revision | Latest revision (diff) | Newer revision → (diff)
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