IsMidPtCoordToFarFromCurve

From scripting
Jump to: navigation, search
Function IsMidPtCoordToFarFromCurve(Pt1 As Variant, Pt2 As Variant, CCurve As Variant, MaxDist As Double, ConstSet As  HybridBody) As Boolean 
Dim MidPt As HybridShapePointBetween
Set MidPt = MyHSFactory.AddNewPointBetween(Pt1, Pt2, 0.5, True)
ConstSet.AppendHybridShape MidPt
IsUpdatable MidPt
Dim MMeas
Set MMeas = TheSPAWorkbench.GetMeasurable(MidPt)
Dim MDist As Double
MDist = MMeas.GetMinimumDistance(CCurve)
If MDist < MaxDist Then
    IsMidPtCoordToFarFromCurve = False
Else
    IsMidPtCoordToFarFromCurve = True
End If
MyHSFactory.DeleteObjectForDatum MidPt
End Function