Difference between revisions of "IsMidPtCoordToFarFromCurve"
From scripting
(Created page with " Function IsMidPtCoordToFarFromCurve(Pt1 As Variant, Pt2 As Variant, CCurve As Variant, MaxDist As Double, ConstSet As HybridBody) As Boolean Dim MidPt As HybridShapePointB...") |
(No difference)
|
Latest revision as of 07:00, 22 April 2017
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