DataBeam :

- migliorata gestione conservazione barre modifiche in parallelo con TS3
- migliorati tenoni.

LuaLibs/ProcessTenon.lua

@@ -1,4 +1,4 @@
--- ProcessTenon.lua by Egaltech s.r.l. 2019/11/27
+-- ProcessTenon.lua by Egaltech s.r.l. 2019/12/10
 -- Gestione calcolo tenone per Travi
 
 -- Tabella per definizione modulo
@@ -78,8 +78,7 @@ function ProcessTenon.Make( Proc, nPhase, nRawId, nPartId, dOvmHead)
    -- ingombro del grezzo
    local b3Raw = EgtGetRawPartBBox( nRawId)
    -- ingombro del pezzo
-   local Ls = EgtGetFirstNameInGroup( nPartId, 'Box')
-   local b3Solid = EgtGetBBoxGlob( Ls or GDB_ID.NULL, GDB_BB.STANDARD)
+   local b3Solid = EgtGetBBoxGlob( EgtGetFirstNameInGroup( nPartId, 'Box') or GDB_ID.NULL, GDB_BB.STANDARD)
    if not b3Solid then
       local sErr = 'Error on process ' .. tostring( Proc.Id) .. ' part box not found'
       EgtOutLog( sErr)
@@ -131,13 +130,12 @@ function ProcessTenon.Make( Proc, nPhase, nRawId, nPartId, dOvmHead)
          return false, sErr
       end
       -- creo piano di taglio sulla testa del tenone e lo lavoro
-      local b3Solid = EgtGetBBoxGlob( EgtGetFirstNameInGroup( nPartId, 'Box') or GDB_ID.NULL, GDB_BB.STANDARD)
       local AddId = EgtSurfTmPlaneInBBox( EgtGetParent( Proc.Id), ptC, vtN, b3Solid, GDB_RT.GLOB)
       if AddId then
          EgtRelocate( AddId, nAddGrpId)
          EgtSetName( AddId, 'AddCut_' .. tostring( Proc.Id))
          -- se pezzo piccolo, in coda e piano inclinato attorno a Z applico svuotatura
-         if b3Solid:getDimX() < 1000 and vtExtr:getX() < 0 and abs( vtExtr:getY()) > 0.173 then
+         if b3Solid:getDimX() < BD.LEN_SHORT_PART and vtExtr:getX() < 0 and abs( vtExtr:getY()) > 0.173 then
             local sPocketing = ML.FindPocketing( 'OpenPocket')
             -- inserisco la lavorazione di svuotatura
             local sName = 'Pock_' .. ( EgtGetName( Proc.Id) or tostring( Proc.Id))
@@ -163,7 +161,7 @@ function ProcessTenon.Make( Proc, nPhase, nRawId, nPartId, dOvmHead)
          -- altrimenti applico taglio di lama
          else
             local CutProc = { Id = AddId, Grp = Proc.Grp, Prc = Proc.Prc, Box = Proc.Box, Fct = Proc.Fct, Flg = Proc.Flg, Head = Proc.Head, Tail = Proc.Tail}
-            local bFromBottom = ( b3Solid:getDimX() < 1000 and vtExtr:getZ() > 0.25)
+            local bFromBottom = ( b3Solid:getDimX() <  BD.LEN_SHORT_PART and vtExtr:getZ() > 0.25)
             local bOk, sErr = Cut.Make( CutProc, nPhase, nRawId, nPartId, 0, bFromBottom)
             if not bOk then return bOk, sErr end
          end