Gestione interruzione simulazione in TagliDiretti

Simulation/SimulationPageUC.xaml.vb

@@ -573,6 +573,11 @@ Public Class SimulationPageUC
          IsPressedShiftKey = True
       End If
 
+      ' eventualmente fermo la simulazione
+      m_nStatus = MCH_SIM_ST.UI_STOP
+      m_bPlay = False
+      PlayPauseBtn_Click(Nothing, Nothing)
+
       ' Se nella pagina di tagli diretti
       If m_MainWindow.DirectCutBtn.IsChecked And Not m_MainWindow.CadCutBtn.IsChecked Then
          ' Genero file CNC (lancio anche se errore in precedenza)
@@ -612,10 +617,6 @@ Public Class SimulationPageUC
          Return
       End If
 
-      ' eventualmente fermo la simulazione
-      m_nStatus = MCH_SIM_ST.UI_STOP
-      m_bPlay = False
-      PlayPauseBtn_Click(Nothing, Nothing)
       Dim bOk As Boolean = True
       EgtSetCurrentContext(m_CurrProjPage.CurrentProjectScene.GetCtx())
       ' Elimino eventuale attrezzaggio da OmagOFFICE