EgtCAM5 :

- Correzzioni e miglioramenti parametri di lavorazione.
- Per la visibilità dei parametri ora sia MachiningDb che MachiningOp fanno riferimento agli stessi vettori.
- Correzione smarcatura ultima lavorazione selezionata quando si passa alla simulazione.
- Aggiunto reset automatico della nuova lavorazione se mentre la creo passo in simulazione o in Draw.
- Migliorata ListBox per MachGroup.
- Disabilitato cambio macchina quando in modalità lavorazione.
- Aggiunta possibilità di cancellare le operazioni con il tasto Canc della tastiera.

ProjectPage/OptionPanel/MachiningOptionPanel/SimulationExpander/SimulationExpanderViewModel.vb

@@ -37,6 +37,7 @@ Namespace EgtCAM5
             If value <> m_IsExpanded Then
                If value Then
                   EgtDeselectAll()
+                  Application.Msn.NotifyColleagues(Application.REMOVEMARKFROMLASTOPERATION)
                   Application.Msn.NotifyColleagues(Application.GETDISTANCE_ISCHECKED, False)
                   InitializeSimulation()
                Else
@@ -429,7 +430,9 @@ Namespace EgtCAM5
          Dim sInfo As String = "EgtCAM5"
          Dim sCurrFilePath As String = String.Empty
          EgtGetCurrFilePath(sCurrFilePath)
-         EgtGenerate(Path.ChangeExtension(sCurrFilePath, ".cnc"), sInfo)
+         If Not EgtGenerate(Path.ChangeExtension(sCurrFilePath, ".cnc"), sInfo) Then
+            MessageBox.Show(EgtMsg(MSG_SIMULATION + 6), EgtMsg(MSG_SIMULATION + 5), MessageBoxButton.OK, MessageBoxImage.Stop)
+         End If
       End Sub
 
       ''' <summary>
@@ -514,11 +517,11 @@ Namespace EgtCAM5
                      Case MCH_SIM.OUTSTROKE
                         Dim sInfo As String = String.Empty
                         EgtGetOutstrokeInfo(sInfo)
-                        MsgBox(EgtMsg(MSG_SIMULATION + 2) & " " & sInfo, MsgBoxStyle.OkOnly, "ERROR")        'Extracorsa ...
+                        MessageBox.Show(EgtMsg(MSG_SIMULATION + 2) & " " & sInfo, EgtMsg(MSG_SIMULATION + 5), MessageBoxButton.OK, MessageBoxImage.Stop)        'Extracorsa ...
                      Case MCH_SIM.DIR_ERR
-                        MsgBox(EgtMsg(MSG_SIMULATION + 3), MsgBoxStyle.OkOnly, "ERROR")         'Direzione utensile irraggiungibile
+                        MessageBox.Show(EgtMsg(MSG_SIMULATION + 3), EgtMsg(MSG_SIMULATION + 5), MessageBoxButton.OK, MessageBoxImage.Stop)         'Direzione utensile irraggiungibile
                      Case Else
-                        MsgBox(EgtMsg(MSG_SIMULATION + 4), MsgBoxStyle.OkOnly, "ERROR")         'Errore
+                        MessageBox.Show(EgtMsg(MSG_SIMULATION + 4), EgtMsg(MSG_SIMULATION + 5), MessageBoxButton.OK, MessageBoxImage.Stop)         'Errore
                   End Select
                End If
                ' Aggiorno stato visualizzazione macchina (dipende anche da utensile)