Aggiunto nuovo parametro per tastatura

2023-05-04 14:37:17 +02:00
1 changed files with 6 additions and 0 deletions
@@ -1189,6 +1189,12 @@ Public Class AlarmsPageUC
      EgtLuaSetGlobNumVar("CMD.THICK", dToolThick * 1000)
      EgtTdbGetCurrToolParam(MCH_TP.LEN, dToolLen)
      EgtLuaSetGlobNumVar("CMD.LENGTH", dToolLen * 1000)
+      ' Nuova varibile per gestione tastatura utensili Frankfurt (Polishing)
+      Dim nType As Integer
+      EgtTdbGetCurrToolParam(MCH_TP.TYPE, nType)
+      If m_CurrentMachine.bPolishingWheel AndAlso nType = MCH_TY.MILL_POLISHING Then
+         EgtLuaSetGlobStringVar("CMD.POLISHING", "1")
+      End If
      EgtLuaSetGlobBoolVar("CMD.INCHES", m_MainWindow.m_CNCommunication.GetMachineInInches())
      EgtLuaCallFunction("CMD.CmdString")
      ' Leggo variabili