DataBeam :

- correzioni per tasche passanti
- varie piccole migliorie.

LuaLibs/ProcessDrill.lua

@@ -1,4 +1,4 @@
--- ProcessDrill.lua by Egaltech s.r.l. 2021/02/18
+-- ProcessDrill.lua by Egaltech s.r.l. 2021/03/19
 -- Gestione calcolo forature per Travi
 
 -- Tabella per definizione modulo
@@ -163,6 +163,13 @@ end
 ---------------------------------------------------------------------
 -- Applicazione della lavorazione
 function ProcessDrill.Make( Proc, nPhase, nRawId, nPartId)
+   -- ingombro del pezzo
+   local b3Solid = EgtGetBBoxGlob( EgtGetFirstNameInGroup( nPartId, 'Box') or GDB_ID.NULL, GDB_BB.STANDARD)
+   if not b3Solid then
+      local sErr = 'Error : part box not found'
+      EgtOutLog( sErr)
+      return false, sErr
+   end
    -- recupero e verifico l'entità foro
    local AuxId = EgtGetInfo( Proc.Id, 'AUXID', 'i') or 0
    if AuxId then AuxId = AuxId + Proc.Id end
@@ -382,7 +389,9 @@ function ProcessDrill.Make( Proc, nPhase, nRawId, nPartId)
       if AreSameVectorApprox( vtExtr, Z_AX()) then
          nSCC = MCH_SCC.ADIR_YM
       elseif abs( vtExtr:getX()) < 0.1 then
-         nSCC = EgtIf( BL.IsPartFinalPhase( nPhase), MCH_SCC.ADIR_XM, MCH_SCC.ADIR_XP)
+         local bNearTail = ( Proc.Box:getCenter():getX() < b3Solid:getCenter():getX())
+         local bVeryShortPart = ( BD.LEN_VERY_SHORT_PART and b3Solid:getDimX() < BD.LEN_VERY_SHORT_PART)
+         nSCC = EgtIf( BL.IsPartFinalPhase( nPhase) or ( bNearTail and not bVeryShortPart), MCH_SCC.ADIR_XM, MCH_SCC.ADIR_XP)
       elseif vtExtr:getY() > 0.1 then
          nSCC = MCH_SCC.ADIR_YP
       end