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