MovePointOnCurveCloserToObj

From scripting
Revision as of 19:36, 24 April 2017 by Nickpisca (talk | contribs) (Created page with " Sub MovePointOnCurveCloserToObj(CurvePt As HybridShapePointOnCurve, CompareObj As Variant) Dim CurOri As Boolean CurOri = CurvePt.Orientation Dim OppOri As Boolean OppOri...")
(diff) ← Older revision | Latest revision (diff) | Newer revision → (diff)
Jump to: navigation, search
Sub MovePointOnCurveCloserToObj(CurvePt As HybridShapePointOnCurve, CompareObj As Variant)
Dim CurOri As Boolean
CurOri = CurvePt.Orientation
Dim OppOri As Boolean
OppOri = Not CurOri
IsUpdatable CurvePt
IsUpdatable CompareObj
Dim CMeas
Set CMeas = TheSPAWorkbench.GetMeasurable(CurvePt)
Dim FirstDist As Double
FirstDist = CMeas.GetMinimumDistance(CompareObj)

CurvePt.Orientation = OppOri
IsUpdatable CurvePt
Dim CMeas2
Set CMeas2 = TheSPAWorkbench.GetMeasurable(CurvePt)
Dim secondDist As Double
secondDist = CMeas.GetMinimumDistance(CompareObj)  

If secondDist > FirstDist Then
    CurvePt.Orientation = CurOri
    IsUpdatable CurvePt
End If

End Sub