IsCurveAbove
From scripting
Revision as of 06:58, 22 April 2017 by Nickpisca (talk | contribs) (Created page with " Function IsCurveAbove(BottomObj As Variant, TopObj As Variant) As Boolean If IsUpdatable(BottomObj) = False Or IsUpdatable(TopObj) = False Then IsCurveAbove =...")
Function IsCurveAbove(BottomObj As Variant, TopObj As Variant) As Boolean If IsUpdatable(BottomObj) = False Or IsUpdatable(TopObj) = False Then IsCurveAbove = False Exit Function End If Dim BMeas Set BMeas = TheSPAWorkbench.GetMeasurable(BottomObj) Dim TMeas Set TMeas = TheSPAWorkbench.GetMeasurable(TopObj) Dim BCoord(8) Dim TCoord(8) BMeas.GetPointsOnCurve BCoord TMeas.GetPointsOnCurve TCoord If BCoord(2) < TCoord(2) Then IsCurveAbove = True Else IsCurveAbove = False End If End Function