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