DataWall :

- prima versione che inserisce alcune lavorazioni.
2020-06-26 17:54:09 +00:00
parent 111496f5a7
commit 1cb5906403
6 changed files with 1265 additions and 86 deletions
@@ -0,0 +1,108 @@
+-- MachiningLib.lua by Egaltech s.r.l. 2020/06/24
+-- Libreria ricerca lavorazioni per Pareti
+
+-- Tabella per definizione modulo
+local MachiningLib = {}
+
+-- Include
+require( 'EgtBase')
+
+EgtOutLog( ' MachiningLib started', 1)
+
+-- Dati
+local WD = require( 'WallData')
+local Cuttings = require( 'CutData')
+local Millings = require( 'MillingData')
+local Pocketings = require( 'PocketingData')
+local Sawings = require( 'SawingData')
+local Drillings = require( 'DrillData')
+
+---------------------------------------------------------------------
+local function SetCurrMachiningAndTool( sMachName)
+   if not EgtMdbSetCurrMachining( sMachName) then return false end
+   local sTuuid = EgtMdbGetCurrMachiningParam( MCH_MP.TUUID)
+   local sTool = EgtTdbGetToolFromUUID( sTuuid)
+   if not sTool then return false end
+   if not EgtTdbSetCurrTool( sTool) then return false end
+   return EgtTdbGetCurrToolParam( MCH_TP.ACTIVE)
+end
+
+---------------------------------------------------------------------
+function MachiningLib.FindCutting( sType)
+   for i = 1, #Cuttings do
+      local Cutting = Cuttings[i]
+      if Cutting.On and Cutting.Type == sType and SetCurrMachiningAndTool( Cutting.Name) then
+         return Cutting.Name
+      end
+   end
+end
+
+---------------------------------------------------------------------
+function MachiningLib.FindMilling( sType, dDepth, sTuuidMstr)
+   for i = 1, #Millings do
+      local Milling = Millings[i]
+      if Milling.On and Milling.Type == sType and SetCurrMachiningAndTool( Milling.Name) then
+         local sTuuid = EgtGetMachiningParam( MCH_MP.TUUID)
+         local dTMaxDepth = EgtTdbGetCurrToolMaxDepth()
+         if ( not sTuuidMstr or sTuuidMstr == sTuuid) and
+            ( not dDepth or dTMaxDepth > dDepth - GEO.EPS_SMALL) then
+            return Milling.Name, dTMaxDepth
+         end
+      end
+   end
+end
+
+---------------------------------------------------------------------
+function MachiningLib.FindPocketing( sType, dMaxDiam, dDepth)
+   for i = 1, #Pocketings do
+      local Pocketing = Pocketings[i]
+      if Pocketing.On and Pocketing.Type == sType and SetCurrMachiningAndTool( Pocketing.Name) then
+         local dTDiam = EgtTdbGetCurrToolParam( MCH_TP.DIAM)
+         local dTMaxDepth = EgtTdbGetCurrToolMaxDepth()
+         if ( not dMaxDiam or dTDiam < dMaxDiam + GEO.EPS_SMALL) and
+            ( not dDepth or dTMaxDepth > dDepth - GEO.EPS_SMALL) then
+            return Pocketing.Name, dTDiam, dTMaxDepth
+         end
+      end
+   end
+end
+
+---------------------------------------------------------------------
+function MachiningLib.FindSawing( sType)
+   for i = 1, #Sawings do
+      local Sawing = Sawings[i]
+      if Sawing.On and Sawing.Type == sType and SetCurrMachiningAndTool( Sawing.Name) then
+         return Sawing.Name
+      end
+   end
+
+end
+
+---------------------------------------------------------------------
+function MachiningLib.FindDrilling( dDiam)
+   -- ricerca sulle forature, dal diametro maggiore al minore
+   for i = #Drillings, 1, -1 do
+      local Drilling = Drillings[i]
+      if Drilling.On and Drilling.Type == 'Drill' and SetCurrMachiningAndTool( Drilling.Name) then
+         local dTDiam = EgtTdbGetCurrToolParam( MCH_TP.DIAM)
+         local dTMaxMat = EgtTdbGetCurrToolParam( MCH_TP.MAXMAT)
+         if dTDiam < dDiam + 10 * GEO.EPS_SMALL  and  dTDiam > dDiam - WD.DRILL_TOL - 10 * GEO.EPS_SMALL then
+            return Drilling.Name, Drilling.Type, dTMaxMat
+         end
+      end
+   end
+   -- ricerca sulle svuotature, dal diametro maggiore al minore
+   for i = #Drillings, 1, -1 do
+      local Drilling = Drillings[i]
+      if Drilling.On and Drilling.Type == 'Pocket' and SetCurrMachiningAndTool( Drilling.Name) then
+         local dTDiam = EgtTdbGetCurrToolParam( MCH_TP.DIAM)
+         local dTMaxDepth = EgtTdbGetCurrToolMaxDepth()
+         if dTDiam < dDiam - 10 * GEO.EPS_SMALL then
+            return Drilling.Name, Drilling.Type, dTMaxDepth
+         end
+      end
+   end
+end
+
+-------------------------------------------------------------------------------------------------------------
+return MachiningLib