DataBeam :

- correzioni e migliorie.

LuaLibs/ProcessDrill.lua

@@ -1,4 +1,4 @@
--- ProcessDrill.lua by Egaltech s.r.l. 2019/07/02
+-- ProcessDrill.lua by Egaltech s.r.l. 2019/07/08
 -- Gestione calcolo forature per Travi
 
 -- Tabella per definizione modulo
@@ -56,7 +56,7 @@ end
 
 ---------------------------------------------------------------------
 -- Verifica se da lavorare in due metà
-function ProcessDrill.Split( Proc)
+function ProcessDrill.Split( Proc, b3Raw)
    -- recupero e verifico l'entità foro
    local AuxId = EgtGetInfo( Proc.Id, 'AUXID', 'i') or 0
    if AuxId then AuxId = AuxId + Proc.Id end
@@ -73,8 +73,8 @@ function ProcessDrill.Split( Proc)
    if not sDrilling then
       return bOpen
    end
-   -- restituisco se va fatto in doppio
-   return ( bOpen and dLen > dMaxMat + 10 * GEO.EPS_SMALL)
+   -- restituisco se va fatto in doppio (solo fori orizzontali)
+   return ( bOpen and dLen > dMaxMat + 10 * GEO.EPS_SMALL and abs( vtExtr:getY()) * b3Raw:getDimZ() > abs( vtExtr:getZ()) * b3Raw:getDimY())
 end
 
 ---------------------------------------------------------------------
@@ -180,9 +180,15 @@ function ProcessDrill.Make( Proc, nPhase, nRawId, nPartId)
    end
    EgtSetMachiningParam( MCH_MP.SCC, nSCC)
    -- aggiusto l'affondamento
-   local dDepth = min( dLen, dMaxDepth)
+   local sMyWarn
+   local dDepth = dLen
    if Proc.Flg == 2 or Proc.Flg == -2 then
-      local dDepth = min( dLen / 2 + BD.DRILL_OVERLAP, dMaxDepth)
+      dDepth = dLen / 2 + BD.DRILL_OVERLAP
+   end
+   if dDepth > dMaxDepth + 10 * GEO.EPS_SMALL then
+      sMyWarn = 'Warning in drill : depth (' .. EgtNumToString( dDepth, 1) .. ') bigger than max tool depth (' .. EgtNumToString( dMaxDepth, 1) .. ')'
+      dDepth = dMaxDepth
+      EgtOutLog( sMyWarn .. ' (process ' .. tostring( Proc.Id) .. ')')
    end
    EgtSetMachiningParam( MCH_MP.DEPTH, dDepth)
    -- dichiaro non si generano sfridi per VMill
@@ -198,11 +204,11 @@ function ProcessDrill.Make( Proc, nPhase, nRawId, nPartId)
          EgtSetOperationMode( nMchFId, false)
          return false, sWarn
       else
-         return true, sWarn
+         return true, ( sMyWarn or sWarn)
       end
    end
 
-   return true
+   return true, sMyWarn
 end   
 
 ---------------------------------------------------------------------