EgtCAM5 :

- piccole migliorie nella simulazione.

ProjectPage/OptionPanel/MachiningOptionPanel/SimulationExpander/SimulationExpanderViewModel.vb

@@ -510,11 +510,8 @@ Namespace EgtCAM5
          Application.Msn.NotifyColleagues(Application.NOTIFYSTATUSOUTPUT, "")
          ' Se stato già stop, porto in home
          If m_nStatus = SIM_ST.ST_STOP Then
-            ' Vado in home
-            EgtSimHome()
-            ' Imposto prima fase
-            EgtSetCurrPhase(1, True)
-            ' Aggiorno visualizzazione
+            ' Mi riporto all'inizio
+            EgtSimStart()
             EgtDraw()
             ' Aggiorno dati CNC
             ShowCncData()
@@ -569,8 +566,6 @@ Namespace EgtCAM5
 #Region "METHODS"
 
       Private Sub InitializeSimulation()
-         ' Imposto prima fase
-         EgtSetCurrPhase(1)
          ' Costringo ad aggiornare UI
          UpdateUI()
          ' Imposto stato corrente
@@ -581,8 +576,6 @@ Namespace EgtCAM5
          SliderValue = SliderVal
          ' Porto la testa in home
          EgtSimStart()
-         EgtSimHome()
-         LoadCurrTools()
          EgtDraw()
          ShowCncData()
       End Sub
@@ -609,7 +602,6 @@ Namespace EgtCAM5
 
       Private Sub ExecSim()
          EgtSimStart()
-         LoadCurrTools()
          EgtSimSetStep(SliderValue * m_SliderX)
          While m_nStatus <> SIM_ST.ST_STOP
             ' Se simulazione in svolgimento
@@ -734,23 +726,6 @@ Namespace EgtCAM5
          End If
       End Function
 
-      Private Function LoadCurrTools() As Boolean
-         '' Imposto la lama corrente
-         'Dim sSaw As String = m_MainWindow.m_CurrentMachine.sCurrSaw
-         'If Not EgtLoadTool("H1", 1, sSaw) Then
-         '   Return False
-         'End If
-         '' Imposto eventuale secondo utensile montato
-         'If m_MainWindow.m_CurrentMachine.MountedToolConfig = CurrentMachine.MountedToolConfigs.SAWANDAUXTOOL Then
-         '   Dim sTool As String = m_MainWindow.m_CurrentMachine.sCurrDrill
-         '   If String.IsNullOrEmpty(sTool) Then sTool = m_MainWindow.m_CurrentMachine.sCurrMill
-         '   If Not String.IsNullOrEmpty(sTool) AndAlso Not EgtLoadTool("H1", 2, sTool) Then
-         '      Return False
-         '   End If
-         'End If
-         Return True
-      End Function
-
       Private Sub UpdateMachView()
          ' Se cambiato utensile, aggiorno stato visualizzazione macchina
          Dim sTool As String = String.Empty