Difference between revisions of "IsMidPtCoordToFarFromCurve"

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