http://nickpisca.com/BLAST/index.php?title=KeepTrimOrientation&feed=atom&action=history
KeepTrimOrientation - Revision history
2024-03-28T20:35:49Z
Revision history for this page on the wiki
MediaWiki 1.28.1
http://nickpisca.com/BLAST/index.php?title=KeepTrimOrientation&diff=349&oldid=prev
Nickpisca at 20:48, 24 April 2017
2017-04-24T20:48:51Z
<p></p>
<table class="diff diff-contentalign-left" data-mw="interface">
<col class='diff-marker' />
<col class='diff-content' />
<col class='diff-marker' />
<col class='diff-content' />
<tr style='vertical-align: top;' lang='en'>
<td colspan='2' style="background-color: white; color:black; text-align: center;">← Older revision</td>
<td colspan='2' style="background-color: white; color:black; text-align: center;">Revision as of 20:48, 24 April 2017</td>
</tr><tr><td colspan="2" class="diff-lineno" id="mw-diff-left-l40" >Line 40:</td>
<td colspan="2" class="diff-lineno">Line 40:</td></tr>
<tr><td class='diff-marker'> </td><td style="background-color: #f9f9f9; color: #333333; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #e6e6e6; vertical-align: top; white-space: pre-wrap;"></td><td class='diff-marker'> </td><td style="background-color: #f9f9f9; color: #333333; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #e6e6e6; vertical-align: top; white-space: pre-wrap;"></td></tr>
<tr><td class='diff-marker'> </td><td style="background-color: #f9f9f9; color: #333333; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #e6e6e6; vertical-align: top; white-space: pre-wrap;"></td><td class='diff-marker'> </td><td style="background-color: #f9f9f9; color: #333333; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #e6e6e6; vertical-align: top; white-space: pre-wrap;"></td></tr>
<tr><td class='diff-marker'>−</td><td style="color:black; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #ffe49c; vertical-align: top; white-space: pre-wrap;"><div>[[CATIA DP VB]]</div></td><td class='diff-marker'>+</td><td style="color:black; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #a3d3ff; vertical-align: top; white-space: pre-wrap;"><div>[[<ins class="diffchange diffchange-inline">Category:</ins>CATIA DP VB]]</div></td></tr>
</table>
Nickpisca
http://nickpisca.com/BLAST/index.php?title=KeepTrimOrientation&diff=213&oldid=prev
Nickpisca: Created page with " Function KeepTrimOrientation(TrimObj As HybridShapeTrim, nthSmallest As Integer) As Boolean Dim UVal As Integer Dim VVal As Integer UVal = -1 Dim WinningArr(3) Dim Winni..."
2017-04-22T07:09:12Z
<p>Created page with " Function KeepTrimOrientation(TrimObj As HybridShapeTrim, nthSmallest As Integer) As Boolean Dim UVal As Integer Dim VVal As Integer UVal = -1 Dim WinningArr(3) Dim Winni..."</p>
<p><b>New page</b></p><div> Function KeepTrimOrientation(TrimObj As HybridShapeTrim, nthSmallest As Integer) As Boolean<br />
Dim UVal As Integer<br />
Dim VVal As Integer<br />
UVal = -1<br />
Dim WinningArr(3)<br />
Dim WinningOri(3)<br />
Dim TempArr(1)<br />
Dim WinArrNum As Integer<br />
WinArrNum = 0<br />
Dim CMeas<br />
Dim CLen As Double<br />
ForceColorObjUgly TrimObj, 120, 120, 220, 1, 1000, 3, 1000<br />
<br />
While UVal <= 1<br />
VVal = -1<br />
While VVal <= 1<br />
TrimObj.FirstOrientation = UVal<br />
TrimObj.SecondOrientation = VVal<br />
IsUpdatable TrimObj<br />
Set CMeas = TheSPAWorkbench.GetMeasurable(TrimObj)<br />
CLen = CMeas.Length<br />
<br />
WinningArr(WinArrNum) = CLen<br />
TempArr(0) = UVal<br />
TempArr(1) = VVal<br />
WinningOri(WinArrNum) = TempArr<br />
WinArrNum = WinArrNum + 1<br />
VVal = VVal + 2<br />
Wend<br />
UVal = UVal + 2<br />
Wend <br />
<br />
Sort2Arrays WinningArr, WinningOri <br />
<br />
TrimObj.FirstOrientation = WinningOri(nthSmallest)(0)<br />
TrimObj.SecondOrientation = WinningOri(nthSmallest)(1)<br />
IsUpdatable TrimObj <br />
<br />
End Function<br />
<br />
<br />
[[CATIA DP VB]]</div>
Nickpisca