MovePlaneOffsetCloserToObj

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