EgtCAM5 1.8k2 :

- migliorata sistemazione visualizzazione al passaggio da simulazione a lavorazioni.
2017-11-17 07:45:55 +00:00
parent e718cfc994
commit 6a32b7b2c9
2 changed files with 6 additions and 6 deletions
@@ -73,7 +73,10 @@ Namespace EgtCAM5
                  End If
               Else
                  CloseSimulation()
-                  If IniFile.m_bShowOnlyTable Then EgtShowOnlyTable(True)
+                  If IniFile.m_bShowOnlyTable Then
+                     EgtShowOnlyTable(True)
+                     EgtZoom(ZM.ALL)
+                  End If
               End If
               m_IsExpanded = value
               Application.Msn.NotifyColleagues(Application.SIMULATIONEXPANDER_GET_ISEXPANDED, value)
@@ -484,7 +487,6 @@ Namespace EgtCAM5
         StatusMsg = ""
         ' Mi assicuro di terminare la simulazione
         ResetSimulation()
-         EgtDraw()
      End Sub

      Private Sub ResetSimulation()
@@ -496,8 +498,6 @@ Namespace EgtCAM5
         WritePrivateProfileString(S_SIMUL, K_SLIDERVAL, sVal)
         ' Torno alla prima fase
         EgtSetCurrPhase(1, True)
-         ' Ripristino visibilità standard
-         'EgtSetMachineLook(MCH_LOOK.TAB)
      End Sub

      Private Sub ExecSim()