Difference between revisions of "MovePointOnCurveCloserToObj"
From scripting
(Created page with " Sub MovePointOnCurveCloserToObj(CurvePt As HybridShapePointOnCurve, CompareObj As Variant) Dim CurOri As Boolean CurOri = CurvePt.Orientation Dim OppOri As Boolean OppOri...") |
(No difference)
|
Latest revision as of 19:36, 24 April 2017
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