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