Difference between revisions of "IsCurveAbove"
From scripting
(Created page with " Function IsCurveAbove(BottomObj As Variant, TopObj As Variant) As Boolean If IsUpdatable(BottomObj) = False Or IsUpdatable(TopObj) = False Then IsCurveAbove =...") |
(No difference)
|
Latest revision as of 06:58, 22 April 2017
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