DataBeam :

- in Tenon corretta scelta bordo vicino per attacco
- in LapJoint se non definito BD.MIN_LEN_LAMELLO si usa 1000, in MachineByMill migliorata ricerca utensile e corretta gestione inversione in funzione del lato di lavoro
- in Mortise migliorato controllo necessità CleanCorners.

LuaLibs/ProcessMortise.lua

@@ -1,4 +1,4 @@
--- ProcessMortise.lua by Egaltech s.r.l. 2021/12/01
+-- ProcessMortise.lua by Egaltech s.r.l. 2022/12/12
 -- Gestione calcolo mortase per Travi
 -- 2021/07/20 Aggiunta gestione rinvio angolare su FAST.
 -- 2021/12/01 Se frontale aggiungo taglio con Grp e Proc di vero taglio (per aggiornare ingombro di testa /coda).
@@ -6,6 +6,7 @@
 -- 2022/07/29 Nella pulitura angoli aggiunto il check dimensioni tasca vs utensile. Corretta direzione utensile per mortasa frontale.
 -- 2022/09/27 Migliorata la scelta utensile. Se c'è almeno una lavorazione 'mortise' si cerca di usare quelle, riducendo l'elevazione se necessario.
 --            Se non c'è nemmeno una lavorazione 'mortise' si passa alle pocket.
+-- 2022/12/12 Migliorato controllo necessità CleanCorners.
 
 -- Tabella per definizione modulo
 local ProcessMortise = {}
@@ -141,20 +142,21 @@ end
 ---------------------------------------------------------------------
 -- Pulizia angoli nel caso sia settato il parametro P04=1
 local function CleanCorners( Proc, dMorH, vtN, bDoubleDir, AuxId)
-   -- verifico se è attiva la pulizia e se l'orientamento della feature è adeguato
-   local bCleanCorners = ( EgtGetInfo( Proc.Id, 'P04', 'i') == 1 and
-                           ( AreSameOrOppositeVectorApprox( vtN, X_AX()) or 
-                             AreSameOrOppositeVectorApprox( vtN, Y_AX()) or
-                             AreSameOrOppositeVectorApprox( vtN, Z_AX())))
+   -- verifico se l'orientamento della feature è adeguato
+   local bCleanCorners = ( AreSameOrOppositeVectorApprox( vtN, X_AX()) or 
+                           AreSameOrOppositeVectorApprox( vtN, Y_AX()) or
+                           AreSameOrOppositeVectorApprox( vtN, Z_AX()))
    if not bCleanCorners then
-      EgtOutLog( 'Warning: mortising not aligned with XYZ axes, corner cleaning skipped')
-      return
+      local sWarn = 'Warning: mortising not aligned with XYZ axes, corner cleaning skipped'
+      EgtOutLog( sWarn)
+      return true, sWarn
    end
    -- cerco la lavorazione adatta
    local sMortisingCleanCorners = ML.FindSawing( 'Mortising')
    if not sMortisingCleanCorners then
-      EgtOutLog( 'Warning: mortising tool not found, corner cleaning skipped')
-      return
+      local sWarn = 'Warning: mortising tool not found, corner cleaning skipped'
+      EgtOutLog( sWarn)
+      return true, sWarn
    end
    -- recupero i dati dell'utensile
    local dSawWidth = 50
@@ -565,10 +567,12 @@ function ProcessMortise.Make( Proc, nPhase, nRawId, nPartId, dCurrOvmH)
       end
    end
    -- verifico se necessaria la pulizia degli angoli ( tenone ad angoli non raggiati) e applico nel caso
-   local _, sWarn2 = CleanCorners( Proc, dMorH, vtN, bOpenBtm and not bForceOneSide, AuxId)
-   if sWarn2 then
-      if not sWarn then sWarn = '' end
-      sWarn = EgtIf( #sWarn > 0, sWarn .. '\n' .. sWarn2, sWarn2)
+   if ( EgtGetInfo( Proc.Id, 'P04', 'i') == 1) then
+      local _, sWarn2 = CleanCorners( Proc, dMorH, vtN, bOpenBtm and not bForceOneSide, AuxId)
+      if sWarn2 then
+         if not sWarn then sWarn = '' end
+         sWarn = EgtIf( #sWarn > 0, sWarn .. '\n' .. sWarn2, sWarn2)
+      end
    end
 
    return true, sWarn