DataBeam :

- corretta lunghezza libera frese per forature con interpolazione
- in tagli di testa aggiunta gestione come tagli longitudinali se vanno da inizio a fine trave
- in forature inclinate corretto calcolo ingombro portautensile
- in LapJoint corretta verifica dimensioni sega a catena rispetto alla geometria
- in LongCut aggiunta gestione tagli da Cut.

LuaLibs/ProcessDrill.lua

@@ -1,4 +1,4 @@
--- ProcessDrill.lua by Egaltech s.r.l. 2020/12/29
+-- ProcessDrill.lua by Egaltech s.r.l. 2021/01/13
 -- Gestione calcolo forature per Travi
 
 -- Tabella per definizione modulo
@@ -290,6 +290,7 @@ function ProcessDrill.Make( Proc, nPhase, nRawId, nPartId)
       sDrilling    = sDrilling2
       nType        = nType2
       dMaxDepth    = dMaxDepth2
+      dToolDiam    = dToolDiam2
       dDiamTh      = dDiamTh2
       dToolFreeLen = dToolFreeLen2
       dDepth       = dDepth2
@@ -313,13 +314,14 @@ function ProcessDrill.Make( Proc, nPhase, nRawId, nPartId)
    local dSubL1 = 0
    local dSubL2 = 0
    local dSubL3 = 0
+   local dDeltaRad = ( Proc.Diam - dToolDiam) / 2
    -- se foro non su testa o coda e inclinato, limito il massimo affondamento
    local bInvertFcse = ( bToInvert and Proc.Flg ~= -2)
    if ( not bInvertFcse and Proc.Fcs ~= 5 and Proc.Fcs ~= 6) or ( bInvertFcse and Proc.Fce ~= 5 and Proc.Fce ~= 6) then
       local CosB = abs( vtExtr:getX())
       if CosB < BD.DRILL_VX_MAX then
          local TgA = CosB / sqrt( 1 - CosB * CosB)
-         dSubL1 = ( dDiamTh / 2 + 2) * TgA
+         dSubL1 = ( dDiamTh / 2 + dDeltaRad + 2) * TgA
       else
          dMaxDepth = 0
       end
@@ -329,7 +331,7 @@ function ProcessDrill.Make( Proc, nPhase, nRawId, nPartId)
       local CosB = abs( vtExtr:getZ())
       if CosB < BD.DRILL_VX_MAX then
          local TgA = CosB / sqrt( 1 - CosB * CosB)
-         dSubL2 = ( dDiamTh / 2 + 2) * TgA
+         dSubL2 = ( dDiamTh / 2 + dDeltaRad + 2) * TgA
       else
          dMaxDepth = 0
       end
@@ -339,7 +341,7 @@ function ProcessDrill.Make( Proc, nPhase, nRawId, nPartId)
       local CosB = abs( vtExtr:getY())
       if CosB < BD.DRILL_VX_MAX then
          local TgA = CosB / sqrt( 1 - CosB * CosB)
-         dSubL3 = ( dDiamTh / 2 + 2) * TgA
+         dSubL3 = ( dDiamTh / 2 + dDeltaRad + 2) * TgA
       else
          dMaxDepth = 0
       end