Primo commit gestione tastatura

LuaLibs/MachiningLib.lua

@@ -30,6 +30,7 @@ local Millings = require( 'MillingData')
 local Pocketings = require( 'PocketingData')
 local Sawings = require( 'SawingData')
 local Drillings = require( 'DrillData')
+local Probing = require( 'ProbingData')
 
 -- tipo di teste macchina
 local ONE_HEAD = 1                      -- una testa (Fast, One, Turn1T)
@@ -196,6 +197,8 @@ function GetMachinings( MachiningType, sType)
       Machinings = Pocketings
    elseif MachiningType == MCH_MY.MORTISING then
       Machinings = Sawings
+   elseif MachiningType == MCH_MY.PROBING then
+      Machinings = Probing
    end
    -- scrivo i parametri utensile nella lavorazione
    local validMachinings = {}
@@ -208,27 +211,30 @@ function GetMachinings( MachiningType, sType)
          if Machining.Tool.Name then
             if EgtTdbSetCurrTool( Machining.Tool.Name) then
                table.insert( validMachinings, Machining)
-               if ( MachiningType == MCH_MY.MILLING) or ( MachiningType == MCH_MY.POCKETING) or ( MachiningType == MCH_MY.DRILLING and EgtStartsWith( sType, 'Pocket')) then
-                  Machining.Tool.MaxMat = EgtTdbGetCurrToolMaxDepth()
-               else
-                  Machining.Tool.MaxMat = EgtTdbGetCurrToolParam( MCH_TP.MAXMAT)
-               end
-               if MachiningType == MCH_MY.DRILLING then
-                  if EgtStartsWith( Machining.Type, 'Drill') then
-                     Machining.SubType = 'Drill'
-                  elseif EgtStartsWith( Machining.Type, 'AngleDrill') then
-                     Machining.SubType = 'AngleDrill'
-                  elseif EgtStartsWith( Machining.Type, 'Pocket') then
-                     Machining.SubType = 'DrillPocket'
-                  elseif EgtStartsWith( Machining.Type, 'Predrill') then
-                     Machining.SubType = 'Predrill'
+               -- se non è tastatura, recupero dati utensile
+               if MachiningType ~= MCH_MY.PROBING then
+                  if ( MachiningType == MCH_MY.MILLING) or ( MachiningType == MCH_MY.POCKETING) or ( MachiningType == MCH_MY.DRILLING and EgtStartsWith( sType, 'Pocket')) then
+                     Machining.Tool.MaxMat = EgtTdbGetCurrToolMaxDepth()
+                  else
+                     Machining.Tool.MaxMat = EgtTdbGetCurrToolParam( MCH_TP.MAXMAT)
                   end
+                  if MachiningType == MCH_MY.DRILLING then
+                     if EgtStartsWith( Machining.Type, 'Drill') then
+                        Machining.SubType = 'Drill'
+                     elseif EgtStartsWith( Machining.Type, 'AngleDrill') then
+                        Machining.SubType = 'AngleDrill'
+                     elseif EgtStartsWith( Machining.Type, 'Pocket') then
+                        Machining.SubType = 'DrillPocket'
+                     elseif EgtStartsWith( Machining.Type, 'Predrill') then
+                        Machining.SubType = 'Predrill'
+                     end
+                  end
+                  Machining.Tool.Diameter = EgtTdbGetCurrToolParam( MCH_TP.DIAM)
+                  Machining.Tool.Length = EgtTdbGetCurrToolParam( MCH_TP.LEN)
+                  Machining.Tool.TotalLength = EgtTdbGetCurrToolParam( MCH_TP.TOTLEN)
+                  Machining.Tool.ToolHolderDiameter = EgtTdbGetCurrToolThDiam()
+                  Machining.Tool.ToolHolderLength = EgtTdbGetCurrToolThLength() or 72
                end
-               Machining.Tool.Diameter = EgtTdbGetCurrToolParam( MCH_TP.DIAM)
-               Machining.Tool.Length = EgtTdbGetCurrToolParam( MCH_TP.LEN)
-               Machining.Tool.TotalLength = EgtTdbGetCurrToolParam( MCH_TP.TOTLEN)
-               Machining.Tool.ToolHolderDiameter = EgtTdbGetCurrToolThDiam()
-               Machining.Tool.ToolHolderLength = EgtTdbGetCurrToolThLength() or 72
             end
          end
       end

LuaLibs/ProcessProbing.lua

@@ -0,0 +1,52 @@
+-- ProcessSplit.lua by Egaltech s.r.l. 2025/06/20
+-- Gestione tastatura
+
+-- Tabella per definizione modulo
+local ProcessProbing = {}
+
+-- Include
+require( 'EgtBase')
+local BL = require( 'BeamLib')
+
+-- Dati
+local BD = require( 'BeamData')
+
+---------------------------------------------------------------------
+local function GetProbingMachining( Machinings, nHead)
+   local sProbeMachining
+
+   for i = 1, #Machinings do
+      if EgtEndsWith( Machinings[i], '_H2') then
+         sProbeMachining = Machinings[i]
+         break
+      end
+   end
+
+   return sProbeMachining
+end
+
+---------------------------------------------------------------------
+-- Applicazione della lavorazione
+function ProcessProbing.Make( Proc, nRawId, nPartId, Info)
+   local bOk, sErr
+
+   -- per eseguire tastatura servono tutti i dati, altriemnti impossibile
+   if Info.vtProbe and Info.ptProbe and Info.sType then
+      -- recupero gruppo per geometria addizionale
+      local nAddGrpId = BL.GetAddGroup( nPartId)
+      local nIdLine = EgtLinePVL( nAddGrpId, Info.ptProbe, Info.vtProbe, 10) -- TODO lunghezza da portare fuori come parametro
+      local Machinings = GetMachinings( MCH_MY.PROBING, Info.sType)
+      local Probing = GetProbingMachining( Machinings, Info.nHead)
+      -- se c'è la linea e la lavorazione, applico
+      if Probing and nIdLine then
+      end
+   else
+      bOk = true
+      sErr = 'Error on probing'
+   end
+
+   return bOk, sErr
+end
+
+---------------------------------------------------------------------
+return ProcessProbing

Process.lua

@@ -8,7 +8,7 @@
 -- Intestazioni
 require( 'EgtBase')
 _ENV = EgtProtectGlobal()
-EgtEnableDebug( false)
+EgtEnableDebug( true)
 
 -- Imposto direttorio libreria specializzata per Travi
 EgtAddToPackagePath( BEAM.BASEDIR .. '\\LuaLibs\\?.lua')