DataBeam :

- piccole modifiche ai fori per testa da sotto
- correzione ai LapJoint per tagli con sega a catena passanti (variabili non inizializzate)
- in forature corretta gestione Invert con testa da sotto e migliorato calcolo ingombro portautensile
- in mortase a coda di rondine migliorata scelta lavorazione in presenza di testa da sotto
- in lapjoint correzioni ribasso a U con testa da sotto
- a FindMilling e FindPocketing aggiunto parametro opzionale dMaxTotLen
- in LapJoint aggiunta gestione massima lunghezza fresa da sotto su svuotature.

LuaLibs/MachiningLib.lua

@@ -1,4 +1,4 @@
--- MachiningLib.lua by Egaltech s.r.l. 2020/11/13
+-- MachiningLib.lua by Egaltech s.r.l. 2021/04/14
 -- Libreria ricerca lavorazioni per Travi
 
 -- Tabella per definizione modulo
@@ -38,16 +38,18 @@ function MachiningLib.FindCutting( sType)
 end
 
 ---------------------------------------------------------------------
-function MachiningLib.FindMilling( sType, dDepth, sTuuidMstr, dMaxDiam)
+function MachiningLib.FindMilling( sType, dDepth, sTuuidMstr, dMaxDiam, dMaxTotLen)
    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()
          local dTDiam = EgtTdbGetCurrToolParam( MCH_TP.DIAM)
+         local dTTotLen = EgtTdbGetCurrToolParam( MCH_TP.TOTLEN)
          if ( not dDepth or dTMaxDepth > dDepth - GEO.EPS_SMALL) and
             ( not sTuuidMstr or sTuuidMstr == sTuuid) and
-            ( not dMaxDiam or dTDiam < dMaxDiam + GEO.EPS_SMALL) then
+            ( not dMaxDiam or dTDiam < dMaxDiam + GEO.EPS_SMALL) and
+            ( not dMaxTotLen or dTTotLen < dMaxTotLen + GEO.EPS_SMALL) then
             return Milling.Name, dTMaxDepth, dTDiam
          end
       end
@@ -55,14 +57,16 @@ function MachiningLib.FindMilling( sType, dDepth, sTuuidMstr, dMaxDiam)
 end
 
 ---------------------------------------------------------------------
-function MachiningLib.FindPocketing( sType, dMaxDiam, dDepth)
+function MachiningLib.FindPocketing( sType, dMaxDiam, dDepth, dMaxTotLen)
    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()
+         local dTTotLen = EgtTdbGetCurrToolParam( MCH_TP.TOTLEN)
          if ( not dMaxDiam or dTDiam < dMaxDiam + GEO.EPS_SMALL) and
-            ( not dDepth or dTMaxDepth > dDepth - GEO.EPS_SMALL) then
+            ( not dDepth or dTMaxDepth > dDepth - GEO.EPS_SMALL) and
+            ( not dMaxTotLen or dTTotLen < dMaxTotLen + GEO.EPS_SMALL) then
             return Pocketing.Name, dTDiam, dTMaxDepth
          end
       end