IsCurveAbove

From scripting
Jump to: navigation, search
 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