EgtCAM5 1.9d1 :

- cancellando unico gruppo di lavoro si torna in disegna
- disabilitata gestione gruppi di lavoro durante esecuzione simulazione.

ProjectPage/OptionPanel/MachiningOptionPanel/SimulationExpander/SimulationExpanderViewModel.vb

@@ -309,9 +309,6 @@ Namespace EgtCAM5
                                                                                        ShowCncData()
                                                                                     End If
                                                                                  End Sub)
-         Application.Msn.Register(Application.CANCLOSEAPPFROMSIMUL, Sub()
-                                                                       IniFile.m_bSimulStatForClose = CanCloseApplication()
-                                                                    End Sub)
       End Sub
 
 #End Region
@@ -601,8 +598,10 @@ Namespace EgtCAM5
 
       Private Sub ExecSim()
          m_bSimExecuting = True
+         IniFile.m_bSimulExecuting = True
          Application.Msn.NotifyColleagues(Application.SETDRAWISENABLED, False)
          Application.Msn.NotifyColleagues(Application.OPERATIONVIEWEXPANDERISENABLED, False)
+         Application.Msn.NotifyColleagues(Application.MACHGROUPSISENABLED, False)
          EgtSimStart(False)
          EgtSimSetStep(SliderValue * m_SliderX)
          Dim nShowDataCounter As Integer = 0
@@ -664,8 +663,10 @@ Namespace EgtCAM5
             UpdateUI()
          End While
          m_bSimExecuting = False
+         IniFile.m_bSimulExecuting = False
          Application.Msn.NotifyColleagues(Application.SETDRAWISENABLED, True)
          Application.Msn.NotifyColleagues(Application.OPERATIONVIEWEXPANDERISENABLED, True)
+         Application.Msn.NotifyColleagues(Application.MACHGROUPSISENABLED, True)
       End Sub
 
       Private Sub ShowCncData()
@@ -765,13 +766,6 @@ Namespace EgtCAM5
          End If
       End Sub
 
-      Private Function CanCloseApplication() As Boolean
-         If m_IsExpanded Then
-            Return Not m_bSimExecuting
-         End If
-         Return True
-      End Function
-
 #End Region
 
    End Class