EgtCAM5 :

- Correzzione EgtSaveFile Dialog.
- Eliminazione Can da tutti i comandi dei bottoni nel programma.

ProjectPage/OptionPanel/MachiningOptionPanel/SimulationExpander/MachineAxis.vb

@@ -43,8 +43,10 @@ Public Class MachineAxis
          Return m_Token
       End Get
       Set(value As String)
-         m_Token = value
-         NotifyPropertyChanged("Token")
+         If value <> m_Token Then
+            m_Token = value
+            NotifyPropertyChanged("Token")
+         End If
       End Set
    End Property
 

ProjectPage/OptionPanel/MachiningOptionPanel/SimulationExpander/SimulationExpanderViewModel.vb

@@ -422,6 +422,7 @@ Namespace EgtCAM5
       Private Sub ExecSim()
          EgtSimStart()
          EgtSimSetStep(SliderValue * m_SliderX)
+         Dim nShowDataCounter As Integer = 0
          While m_nStatus <> SIM_ST.ST_STOP
             ' Se simulazione in svolgimento
             If m_nStatus = SIM_ST.ST_PLAY Or m_nStatus = SIM_ST.ST_STEP Then
@@ -459,14 +460,21 @@ Namespace EgtCAM5
                   End Select
                End If
                ' Aggiorno stato visualizzazione macchina (dipende anche da utensile)
-               'UpdateMachView()
+               UpdateMachView()
                ' Aggiorno visualizzazione
                EgtDraw()
                ' Aggiorno dati CNC
+               'If nShowDataCounter = 10 Then
                ShowCncData()
+               '   nShowDataCounter = 0
+               'ElseIf nShowDataCounter > 10 Then
+               '   nShowDataCounter = 0
+               'Else
+               '   nShowDataCounter += 1
+               'End If
             Else
-               ' Per evitare di ciclare rapidissimamente e consumare inutilmente CPU
-               System.Threading.Thread.Sleep(1)
+            ' Per evitare di ciclare rapidissimamente e consumare inutilmente CPU
+            System.Threading.Thread.Sleep(1)
             End If
             ' Costringo ad aggiornare UI
             UpdateUI()