EgtCAM5 1.8h1 :

- in simulazione aggiunta indicazione nome operazione.

ProjectPage/OptionPanel/MachiningOptionPanel/SimulationExpander/SimulationExpanderViewModel.vb

@@ -148,6 +148,19 @@ Namespace EgtCAM5
          End Set
       End Property
 
+      Private m_OpeName As String
+      Public Property OpeName As String
+         Get
+            Return m_OpeName
+         End Get
+         Set(value As String)
+            If value <> m_OpeName Then
+               m_OpeName = value
+               OnPropertyChanged("OpeName")
+            End If
+         End Set
+      End Property
+
       Private m_PlayPauseImage As String
       Public ReadOnly Property PlayPauseImage As String
          Get
@@ -545,6 +558,8 @@ Namespace EgtCAM5
          ShowMoveTypeFeed()
          ' Nome utensile e speed
          ShowToolNameSpeed()
+         ' Nome operazione e tipo
+         ShowOperationName()
       End Sub
 
       Private Sub IsValidAxisIndex(nIndex As Integer)
@@ -577,7 +592,11 @@ Namespace EgtCAM5
          Dim dSpeed As Double = 0
          If EgtSimGetToolInfo(sTool, dSpeed) Then
             TName = sTool
-            SValue = "S" & DoubleToString(dSpeed, 0)
+            If dSpeed > 1 Then
+               SValue = "S" & DoubleToString(dSpeed, 0)
+            Else
+               SValue = ""
+            End If
             Return True
          Else
             TName = ""
@@ -586,6 +605,18 @@ Namespace EgtCAM5
          End If
       End Function
 
+      Private Function ShowOperationName() As Boolean
+         Dim sName As String = String.Empty
+         Dim nType As Integer = 0
+         If EgtSimGetOperationInfo(sName, nType) Then
+            OpeName = sName
+            Return True
+         Else
+            OpeName = ""
+            Return False
+         End If
+      End Function
+
       Private Sub UpdateMachView()
          ' Se cambiato utensile, aggiorno stato visualizzazione macchina
          Dim sTool As String = String.Empty