Difference between revisions of "MoveCurveParCloserToObj"
From scripting
(Created page with " Sub MoveCurveParCloserToObj(CurvePar As HybridShapeCurvePar, CompareObj As Variant) Dim CurOri As Boolean CurOri = CurvePar.InvertDirection Dim OppOri As Boolean OppOri =...") |
(No difference)
|
Latest revision as of 19:32, 24 April 2017
Sub MoveCurveParCloserToObj(CurvePar As HybridShapeCurvePar, CompareObj As Variant) Dim CurOri As Boolean CurOri = CurvePar.InvertDirection Dim OppOri As Boolean OppOri = Not CurOri IsUpdatable CurvePar IsUpdatable CompareObj Dim CMeas Set CMeas = TheSPAWorkbench.GetMeasurable(CurvePar) Dim FirstDist As Double FirstDist = CMeas.GetMinimumDistance(CompareObj) CurvePar.InvertDirection = OppOri IsUpdatable CurvePar Dim CMeas2 Set CMeas2 = TheSPAWorkbench.GetMeasurable(CurvePar) Dim SecondDist As Double SecondDist = CMeas.GetMinimumDistance(CompareObj) If SecondDist > FirstDist Then CurvePar.InvertDirection = CurOri IsUpdatable CurvePar End If End Sub