MoveOffsetCloserToObj
From scripting
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