IsCurveAbove
From scripting
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