EgtCAM5 :

- Aggiunta errori di disegno utensili.
- Uscita da simulazione solo se in pausa.

ProjectPage/OptionPanel/MachiningOptionPanel/SimulationExpander/SimulationExpanderViewModel.vb

@@ -37,6 +37,11 @@ Namespace EgtCAM5
                   m_MachineAxisList(Index).IsReadOnlyAxesValue = True
                Next
             End If
+            If value = SIM_ST.ST_PAUSE OrElse value = SIM_ST.ST_STOP Then
+               Application.Msn.NotifyColleagues(Application.SETDRAWISENABLED, True)
+            Else
+               Application.Msn.NotifyColleagues(Application.SETDRAWISENABLED, False)
+            End If
          End Set
       End Property
 
@@ -213,6 +218,9 @@ Namespace EgtCAM5
                                                                                        ShowCncData()
                                                                                     End If
                                                                                  End Sub)
+         Application.Msn.Register(Application.CANCLOSEAPPFROMSIMUL, Sub()
+                                                                       IniFile.m_bSimulStatForClose = CanCloseApplication()
+                                                                    End Sub)
       End Sub
 
 #End Region
@@ -560,6 +568,15 @@ Namespace EgtCAM5
          End If
       End Sub
 
+      Private Function CanCloseApplication() As Boolean
+         If m_IsExpanded Then
+            If m_nStatus = SIM_ST.ST_PLAY Or m_nStatus = SIM_ST.ST_STEP Then
+               Return False
+            End If
+         End If
+         Return True
+      End Function
+
 #End Region
 
    End Class