Difference between revisions of "ReturnMidCurveDist"

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