http://nickpisca.com/BLAST/index.php?title=MoveArcWallCloserToCoordByInverse&feed=atom&action=historyMoveArcWallCloserToCoordByInverse - Revision history2024-03-29T14:51:20ZRevision history for this page on the wikiMediaWiki 1.28.1http://nickpisca.com/BLAST/index.php?title=MoveArcWallCloserToCoordByInverse&diff=241&oldid=prevNickpisca: Created page with " Sub MoveArcWallCloserToCoordByInverse(AWall As ArcWall, TInverse As HybridShapeInverse, XVal As Double, YVal As Double, ZVal As Double) If IsUpdatable(AWall) = False O..."2017-04-22T07:23:51Z<p>Created page with " Sub MoveArcWallCloserToCoordByInverse(AWall As ArcWall, TInverse As HybridShapeInverse, XVal As Double, YVal As Double, ZVal As Double) If <a href="/BLAST/index.php/IsUpdatable" title="IsUpdatable">IsUpdatable</a>(AWall) = False O..."</p>
<p><b>New page</b></p><div> Sub MoveArcWallCloserToCoordByInverse(AWall As ArcWall, TInverse As HybridShapeInverse, XVal As Double, YVal As Double, ZVal As Double) <br />
If [[IsUpdatable]](AWall) = False Or [[IsUpdatable]](TInverse) = False Then<br />
Exit Sub<br />
End If<br />
Dim A1Meas<br />
Set A1Meas = TheSPAWorkbench.GetMeasurable(MyPart.CreateReferenceFromObject(AWall))<br />
Dim FCoord(2)<br />
A1Meas.GetCOG FCoord<br />
Dim FDist As Double<br />
FDist = [[find3DDistance]](FCoord(0), FCoord(1), FCoord(2), XVal, YVal, ZVal)<br />
<br />
Dim OrigBool As Integer<br />
OrigBool = TInverse.Orientation<br />
Dim OppBool As Integer<br />
OppBool = (-1) * OrigBool<br />
TInverse.Orientation = OppBool<br />
[[IsUpdatable]] AWall<br />
Set A1Meas = TheSPAWorkbench.GetMeasurable(MyPart.CreateReferenceFromObject(AWall))<br />
Dim SCoord(2)<br />
A1Meas.GetCOG SCoord<br />
Dim SDist As Double<br />
SDist = [[find3DDistance]](SCoord(0), SCoord(1), SCoord(2), XVal, YVal, ZVal)<br />
<br />
If SDist > FDist Then<br />
TInverse.Orientation = OrigBool<br />
[[IsUpdatable]] AWall<br />
End If<br />
End Sub<br />
<br />
<br />
[[Category:CATIA DP VB]]</div>Nickpisca