Difference between revisions of "ReturnMidCurveDist"
From scripting
(Created page with " Function ReturnMidCurveDist(CurveObj As Variant) As Double If IsUpdatable(CurveObj) Then Dim TMeas Set TMeas = TheSPAWorkbench.GetMeasurable(CurveObj) Dim TC(...") |
(No difference)
|
Latest revision as of 19:56, 24 April 2017
Function ReturnMidCurveDist(CurveObj As Variant) As Double If IsUpdatable(CurveObj) Then Dim TMeas Set TMeas = TheSPAWorkbench.GetMeasurable(CurveObj) Dim TC(8) TMeas.GetPointsOnCurve TC midPtCoord = ReturnMidPtCoord(CDbl(TC(0)), CDbl(TC(1)), CDbl(TC(2)), CDbl(TC(6)), CDbl(TC(7)), CDbl(TC(8))) Dim FindDist As Double FindDist = find3DDistance(midPtCoord(0), midPtCoord(1), midPtCoord(2), TC(3), TC(4), TC(5)) ReturnMidCurveDist = FindDist End If End Function