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