Difference between revisions of "ReturnMidPtCoord"
From scripting
(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