MoveArcWallCloserToCoordByInverse

From scripting
Jump to: navigation, search
Sub MoveArcWallCloserToCoordByInverse(AWall As ArcWall, TInverse As HybridShapeInverse, XVal As Double, YVal As  Double, ZVal As Double) 
If IsUpdatable(AWall) = False Or IsUpdatable(TInverse) = False Then
    Exit Sub
End If
Dim A1Meas
Set A1Meas = TheSPAWorkbench.GetMeasurable(MyPart.CreateReferenceFromObject(AWall))
Dim FCoord(2)
A1Meas.GetCOG FCoord
Dim FDist As Double
FDist = find3DDistance(FCoord(0), FCoord(1), FCoord(2), XVal, YVal, ZVal)

Dim OrigBool As Integer
OrigBool = TInverse.Orientation
Dim OppBool As Integer
OppBool = (-1) * OrigBool
TInverse.Orientation = OppBool
IsUpdatable AWall
Set A1Meas = TheSPAWorkbench.GetMeasurable(MyPart.CreateReferenceFromObject(AWall))
Dim SCoord(2)
A1Meas.GetCOG SCoord
Dim SDist As Double
SDist = find3DDistance(SCoord(0), SCoord(1), SCoord(2), XVal, YVal, ZVal)

If SDist > FDist Then
    TInverse.Orientation = OrigBool
    IsUpdatable AWall
End If
End Sub