Difference between revisions of "MoveOffsetCloserToObj"

From scripting
Jump to: navigation, search
(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