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