EgtCAM5 :

- dopo generazione CN ripristino fase di lavorazione precedentemente corrente.

ProjectPage/OptionPanel/MachiningOptionPanel/SimulationExpander/SimulationExpanderViewModel.vb

@@ -412,6 +412,9 @@ Namespace EgtCAM5
       ''' Creata the new tool.  This method is invoked by the NewCommand.
       ''' </summary>
       Public Sub Generate(ByVal param As Object)
+         ' Recupero la fase corrente
+         Dim nPhase As Integer = EgtGetCurrPhase()
+         ' Eseguo
          Dim sCurrFilePath As String = String.Empty
          EgtGetCurrFilePath(sCurrFilePath)
          If String.IsNullOrEmpty(sCurrFilePath) OrElse EgtGetModified() Then
@@ -439,8 +442,12 @@ Namespace EgtCAM5
          Else
             Application.Msn.NotifyColleagues(Application.NOTIFYSTATUSOUTPUT, EgtMsg(MSG_SIMULATION + 32))
          End If
-         ' Torno alla prima fase
-         EgtSetCurrPhase(1, True)
+         ' Torno alla fase originale (o alla prima se non definita)
+         If nPhase = 0 Then
+            EgtSetCurrPhase(1, True)
+         Else
+            EgtSetCurrPhase(nPhase, True)
+         End If
       End Sub
 
 #End Region ' GenerateCommand