DataBeam :

- in lavorazione DtMortise con tasche si aggiustano i parametri di ingresso/uscita
- in lavorazione LapJoint modificato controllo di feature lunga (si tiene conto anche della lunghezza del pezzo)
- nelle lavorazioni dei profili aggiunta gestione utilizzo testa sotto per macchine che ne sono provviste.

LuaLibs/ProcessLapJoint.lua

@@ -4562,6 +4562,13 @@ function ProcessLapJoint.Make( Proc, nPhase, nRawId, nPartId, dOvmHead)
    local MAX_MILL_LIN = 80
    -- recupero l'ingombro del grezzo di appartenenza
    local b3Raw = EgtGetRawPartBBox( nRawId)
+   -- recupero l'ingombro della trave
+   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
    -- in base al tipo di feature attribuisco il significato dei parametri Q
    AssignQIdent( Proc)
    -- se non forzate frese, uso la lama
@@ -4593,7 +4600,8 @@ function ProcessLapJoint.Make( Proc, nPhase, nRawId, nPartId, dOvmHead)
       end
    end
    -- se lunghezza richiede spezzatura
-   if Proc.Box:getDimX() > BD.LONGCUT_MAXLEN then
+   if ( Proc.Box:getDimX() > BD.LONGCUT_MAXLEN) or
+      ( Proc.Box:getDimX() > 0.8 * b3Solid:getDimX() and Proc.Box:getDimX() > BD.LONGCUT_ENDLEN) then
       -- una faccia
       if Proc.Fct == 1 then
          return LongCut.Make( Proc, nPhase, nRawId, nPartId)
@@ -4645,13 +4653,6 @@ function ProcessLapJoint.Make( Proc, nPhase, nRawId, nPartId, dOvmHead)
          end
       -- due facce
       elseif Proc.Fct == 2 then
-         -- recupero l'ingombro della trave
-         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
          -- se praticamente è lunga come la trave
          if Proc.Box:getDimX() > 0.8 * b3Solid:getDimX() then
             local nUseSideTool = EgtGetInfo( Proc.Id, Q_SIDE_ROUGH_TOOL, 'i') or 0