corretto errore nelle mortase in doppio

2023-07-31 18:26:40 +02:00
6 changed files with 101 additions and 61 deletions
@@ -45,6 +45,7 @@
 -- 2023/02/17 Nelle tasche in doppio, la distanza minima ammessa tra le feature è stata portata a 50.
 -- 2023/02/20 Ora le mortase a coda di rondine laterali sono sempre fatte prima dei tagli longitudinali. 
 -- 2023/03/31 Corretto ordinamento per fori di coda da lasciare in coda.
+-- 2023/07/31 Corretto errore nelle mortase in doppio.

 -- Tabella per definizione modulo
 local BeamExec = {}
@@ -1505,11 +1506,11 @@ local function VerifyMortiseMirrored( Proc, vProc, b3Raw)
   local sPockType = 'Mortise'
   local sPocketing
   if Proc.Prc ~= 53 then
-      sPocketing = Mortise.VerifyMortiseOrPocket( Proc, dW, dMorH, nil, sPockType, false)
+      sPocketing = Mortise.VerifyMortiseOrPocket( Proc, dW, dMorH, nil, sPockType, false, true)
   end
   if not sPocketing then
      sPockType = 'Pocket'
-      sPocketing = Mortise.VerifyMortiseOrPocket( Proc, dW, dMorH, nil, sPockType, false)
+      sPocketing = Mortise.VerifyMortiseOrPocket( Proc, dW, dMorH, nil, sPockType, false, true)
   end
   if not sPocketing or not EgtMdbSetCurrMachining( sPocketing) then
      return
@@ -1,4 +1,4 @@
-- ProcessProfConcave.lua by Egaltech s.r.l. 2023/07/31
+-- ProcessProfConcave.lua by Egaltech s.r.l. 2023/05/25
 -- Gestione calcolo profilo concavo per Travi
 -- 2021/05/03 Aggiunta gestione smusso da sopra e sotto per macchina con testa da sotto.
 -- 2021/06/28 Per macchine con testa sotto, smussi di lato con questa testa se non c'è lav.ne da sopra.
@@ -6,7 +6,6 @@
 -- 2022/05/24 Aggiunta fresatura da sotto su macchine con testa da sotto.
 -- 2022/05/28 Aggiunto calcolo svuotatura da modulo di libreria.
 -- 2023/05/25 Sistemazione SCC per TURN.
-- 2023/07/31 Correzione e semplificazione di ModifySideInvertLead per invert.

 -- Tabella per definizione modulo
 local ProcessProfConcave = {}
@@ -90,7 +89,7 @@ end

 ---------------------------------------------------------------------
 local function ModifySideInvertLead( Proc, bHead, dToolDiam, dLenIni, dLenLst,
-                                     bFirstTrim, bLastTrim, dOffsetPar)
+                                     bFirstTrim, bLastTrim, bFlagInvert, dOffsetPar)

   -- confronto il punto iniziale e finale della lavorazione con il box della feature 
   -- e se è vicino alla parte esterna della trave inverto la lavorazione
@@ -98,9 +97,6 @@ local function ModifySideInvertLead( Proc, bHead, dToolDiam, dLenIni, dLenLst,
   local ptEp = EgtGetMachiningEndPoint()
   local nMachMode = EgtGetMachiningParam( MCH_MP.STEPTYPE)
   if nMachMode == 1 and ptSP and ptEp then
-      -- recupero flag inversione direzione di lavorazione
-      local bInvertMode = EgtGetMachiningParam( MCH_MP.INVERT)
-      -- verifico se da aggiustare
      if abs( EgtIf( bHead, Proc.Box:getMax():getX(), Proc.Box:getMin():getX()) - ptSP:getX()) < 
         abs( EgtIf( bHead, Proc.Box:getMax():getX(), Proc.Box:getMin():getX()) - ptEp:getX()) then
         -- ottengo il lato lavoro e lo inverto
@@ -108,14 +104,9 @@ local function ModifySideInvertLead( Proc, bHead, dToolDiam, dLenIni, dLenLst,
         if nSideWork > 0 then
            EgtSetMachiningParam( MCH_MP.WORKSIDE, EgtIf( nSideWork == MCH_MILL_WS.LEFT, MCH_MILL_WS.RIGHT, MCH_MILL_WS.LEFT))
         end
-         -- imposto il contrario dell'inversione trovata
-         bInvertMode = not bInvertMode
-         EgtSetMachiningParam( MCH_MP.INVERT, bInvertMode)
-      end
-      -- se lavorazione invertita rispetto a geometria, scambio dati di inizio e fine
-      if bInvertMode then
-         dLenIni, dLenLst = dLenLst, dLenIni
-         bFirstTrim, bLastTrim = bLastTrim, bFirstTrim
+         -- ottengo l'inversione e setto il contrario
+         local bInvertMode = EgtGetMachiningParam( MCH_MP.INVERT)
+         EgtSetMachiningParam( MCH_MP.INVERT, not bInvertMode)
      end
      -- modifico attacco e uscita
      if dLenIni and dLenLst then
@@ -129,6 +120,9 @@ local function ModifySideInvertLead( Proc, bHead, dToolDiam, dLenIni, dLenLst,
         if bLastTrim and dLenLst < dToolDiam / 2 + ( 20 * GEO.EPS_SMALL) then
            dEndAddLen = dToolDiam / 2 - dLenLst + dOffsetPar + 1
         end
+         if bFlagInvert then
+            dStartAddLen, dEndAddLen = dEndAddLen, dStartAddLen
+         end
         EgtSetMachiningParam( MCH_MP.STARTADDLEN, dStartAddLen)
         EgtSetMachiningParam( MCH_MP.ENDADDLEN, dEndAddLen)
      end
@@ -253,6 +247,8 @@ function ProcessProfConcave.Make( Proc, nPhase, nRawId, nPartId, dCurrOvmH)
   -- acquisisco informazioni sulle facce estreme
   local _, _, dLenIni = EgtSurfTmFacetMinAreaRectangle( Proc.Id, nFirstFacet, GDB_ID.ROOT)
   local _, _, dLenLst = EgtSurfTmFacetMinAreaRectangle( Proc.Id, nLastFacet, GDB_ID.ROOT)
+   -- flag percorso invertito
+   local bFlagInvert = false
   -- verifico se in testa o coda
   local bHead = ( vtN:getX() > 0)
   EgtOutLog( 'vtN=' .. tostring( vtN), 3)
@@ -348,6 +344,7 @@ function ProcessProfConcave.Make( Proc, nPhase, nRawId, nPartId, dCurrOvmH)
             ( not bHead and vtExtr:getY() > 0.1) then
            EgtSetMachiningParam( MCH_MP.TOOLINVERT, true)
            EgtSetMachiningParam( MCH_MP.INVERT, true)
+            bFlagInvert = not bFlagInvert
         end
      -- altrimenti lavorazione dal davanti o dal dietro
      else
@@ -356,12 +353,14 @@ function ProcessProfConcave.Make( Proc, nPhase, nRawId, nPartId, dCurrOvmH)
         if vtExtr:getZ() < 0 then
            EgtSetMachiningParam( MCH_MP.TOOLINVERT, true)
            EgtSetMachiningParam( MCH_MP.INVERT, true)
+            bFlagInvert = not bFlagInvert
         end
         -- se lavorazione a destra da dietro o sinistra di fronte, inverto
         if  ( bHead and vtN:getY() > 0.1) or
             ( not bHead and vtN:getY() < -0.1) then
            EgtSetMachiningParam( MCH_MP.WORKSIDE, MCH_MILL_WS.LEFT)
            EgtSetMachiningParam( MCH_MP.INVERT, true)
+            bFlagInvert = not bFlagInvert
         end
      end
      -- assegno affondamento e offset radiale
@@ -379,7 +378,7 @@ function ProcessProfConcave.Make( Proc, nPhase, nRawId, nPartId, dCurrOvmH)
      else
         -- applico controllo del punto entrata lavorazione e se non è distante dall'esterno
         -- della feature inverto il punto di inizio della lavorazione
-         ModifySideInvertLead( Proc, bHead, dToolDiam + ( 2 * dExtra), dLenIni, dLenLst, bFirstTrim, bLastTrim, dExtra)
+         ModifySideInvertLead( Proc, bHead, dToolDiam + ( 2 * dExtra), dLenIni, dLenLst, bFirstTrim, bLastTrim, bFlagInvert, dExtra)
      end
      -- se lavorazione da due parti, aggiungo la seconda
      if bDoubleCham then
@@ -394,6 +393,8 @@ function ProcessProfConcave.Make( Proc, nPhase, nRawId, nPartId, dCurrOvmH)
         end
         -- aggiungo geometria
         EgtSetMachiningGeometry( {{ AuxId, -1}})
+         -- resetto il flag inversione percorso
+         bFlagInvert = false
         -- se lavorazione da sopra o da sotto
         if nSide ~= 0 then
            -- se lavorazione a destra di fronte o sinistra da dietro, inverto
@@ -401,6 +402,7 @@ function ProcessProfConcave.Make( Proc, nPhase, nRawId, nPartId, dCurrOvmH)
               ( not bHead and vtExtr:getY() < -0.1) then
               EgtSetMachiningParam( MCH_MP.TOOLINVERT, true)
               EgtSetMachiningParam( MCH_MP.INVERT, true)
+               bFlagInvert = not bFlagInvert
            end
         else
            -- se lavorazione a destra di fronte o sinistra da dietro, inverto
@@ -408,6 +410,7 @@ function ProcessProfConcave.Make( Proc, nPhase, nRawId, nPartId, dCurrOvmH)
               ( not bHead and vtN:getY() < -0.1) then
               EgtSetMachiningParam( MCH_MP.TOOLINVERT, true)
               EgtSetMachiningParam( MCH_MP.INVERT, true)
+               bFlagInvert = not bFlagInvert
            end
         end
         -- assegno affondamento e offset radiale
@@ -425,7 +428,7 @@ function ProcessProfConcave.Make( Proc, nPhase, nRawId, nPartId, dCurrOvmH)
         else
            -- applico controllo del punto entrata lavorazione e se non è distante dall'esterno
            -- della feature inverto il punto di inizio della lavorazione
-            ModifySideInvertLead( Proc, bHead, dToolDiam + ( 2 * dExtra), dLenIni, dLenLst, bFirstTrim, bLastTrim, dExtra)
+            ModifySideInvertLead( Proc, bHead, dToolDiam + ( 2 * dExtra), dLenIni, dLenLst, bFirstTrim, bLastTrim, bFlagInvert, dExtra)
         end
      end
   end
@@ -484,11 +487,14 @@ function ProcessProfConcave.Make( Proc, nPhase, nRawId, nPartId, dCurrOvmH)
         end
         -- aggiungo geometria
         EgtSetMachiningGeometry( {{ AuxId, -1}})
+         -- resetto il flag inversione percorso
+         bFlagInvert = false
         -- se lavorazione da sopra e da sotto
         if ( nSide == 0) then
            if vtExtr:getZ() > 0.1 then
               EgtSetMachiningParam( MCH_MP.TOOLINVERT, true)
               EgtSetMachiningParam( MCH_MP.INVERT, true)
+               bFlagInvert = true
            end
         -- altrimenti lavorazione davanti e dietro
         else
@@ -497,6 +503,7 @@ function ProcessProfConcave.Make( Proc, nPhase, nRawId, nPartId, dCurrOvmH)
               ( not bHead and vtExtr:getY() < -0.1) then
               EgtSetMachiningParam( MCH_MP.TOOLINVERT, true)
               EgtSetMachiningParam( MCH_MP.INVERT, true)
+               bFlagInvert = true
            end
         end
         -- imposto l'affondamento
@@ -527,7 +534,7 @@ function ProcessProfConcave.Make( Proc, nPhase, nRawId, nPartId, dCurrOvmH)
            -- applico controllo del punto entrata lavorazione e se non è distante dall'esterno
            -- della feature inverto il punto di inizio della lavorazione e modifico i parametri dell'attacco
            -- e uscita
-            ModifySideInvertLead( Proc, bHead, dToolDiam, dLenIni, dLenLst, bFirstTrim, bLastTrim, dOffsetPar)
+            ModifySideInvertLead( Proc, bHead, dToolDiam, dLenIni, dLenLst, bFirstTrim, bLastTrim, bFlagInvert, dOffsetPar)
         end
         -- se abilitata, aggiungo lavorazione di finitura
         if bFinish then
@@ -561,6 +568,8 @@ function ProcessProfConcave.Make( Proc, nPhase, nRawId, nPartId, dCurrOvmH)
      end
      -- aggiungo geometria
      EgtSetMachiningGeometry( {{ AuxId, -1}})
+      -- resetto il flag inversione percorso
+      bFlagInvert = false
      -- se lavorazione da sopra o da sotto
      if nSide ~= 0 then
         if not bDouble and nSide == -1 then
@@ -569,6 +578,7 @@ function ProcessProfConcave.Make( Proc, nPhase, nRawId, nPartId, dCurrOvmH)
                ( not bHead and vtExtr:getY() < -0.1) then
               EgtSetMachiningParam( MCH_MP.TOOLINVERT, true)
               EgtSetMachiningParam( MCH_MP.INVERT, true)
+               bFlagInvert = not bFlagInvert
            end
         else
            -- se lavorazione a destra di fronte o sinistra da dietro, inverto
@@ -576,6 +586,7 @@ function ProcessProfConcave.Make( Proc, nPhase, nRawId, nPartId, dCurrOvmH)
                ( not bHead and vtExtr:getY() > 0.1) then
               EgtSetMachiningParam( MCH_MP.TOOLINVERT, true)
               EgtSetMachiningParam( MCH_MP.INVERT, true)
+               bFlagInvert = not bFlagInvert
            end
         end
      -- altrimenti lavorazione dal davanti o dal dietro
@@ -584,12 +595,14 @@ function ProcessProfConcave.Make( Proc, nPhase, nRawId, nPartId, dCurrOvmH)
         if vtExtr:getZ() < 0 then
            EgtSetMachiningParam( MCH_MP.TOOLINVERT, true)
            EgtSetMachiningParam( MCH_MP.INVERT, true)
+            bFlagInvert = not bFlagInvert
         end
         -- se lavorazione a destra da dietro o sinistra di fronte, inverto
         if  ( bHead and vtN:getY() > 0.1) or
             ( not bHead and vtN:getY() < -0.1) then
            EgtSetMachiningParam( MCH_MP.WORKSIDE, MCH_MILL_WS.LEFT)
            EgtSetMachiningParam( MCH_MP.INVERT, true)
+            bFlagInvert = not bFlagInvert
         end
      end
      -- se in doppio, imposto l'affondamento
@@ -618,7 +631,7 @@ function ProcessProfConcave.Make( Proc, nPhase, nRawId, nPartId, dCurrOvmH)
         -- applico controllo del punto entrata lavorazione e se non è distante dall'esterno
         -- della feature inverto il punto di inizio della lavorazione e modifico i parametri dell'attacco
         -- e uscita
-         ModifySideInvertLead( Proc, bHead, dToolDiam, dLenIni, dLenLst, bFirstTrim, bLastTrim, dOffsetPar)
+         ModifySideInvertLead( Proc, bHead, dToolDiam, dLenIni, dLenLst, bFirstTrim, bLastTrim, bFlagInvert, dOffsetPar)
      end
      -- se abilitata, aggiungo lavorazione di finitura
      if bFinish then
@@ -671,7 +684,7 @@ function ProcessProfConcave.Make( Proc, nPhase, nRawId, nPartId, dCurrOvmH)
         EgtSetMachiningParam( MCH_MP.STEP, 0)
         EgtSetMachiningParam( MCH_MP.OFFSR, 0)
         if BD.TURN then
-            local nSCC = GetSccForTurn( vtN, 'V')
+            local nSCC = GetSccForTurn( vtN)
            EgtSetMachiningParam( MCH_MP.SCC, nSCC)
            -- modifico attacco e uscita per forzare risalita
            EgtSetMachiningParam( MCH_MP.STARTADDLEN, dToolDiam / 2)
@@ -1,4 +1,4 @@
-- ProcessProfConvex.lua by Egaltech s.r.l. 2023/07/31
+-- ProcessProfConvex.lua by Egaltech s.r.l. 2023/05/25
 -- Gestione calcolo profilo convesso per Travi
 -- 2021/05/03 Aggiunta gestione smusso da sopra e sotto per macchina con testa da sotto.
 -- 2021/06/28 Per macchine con testa sotto, smussi di lato con questa testa se non c'è lav.ne da sopra.
@@ -6,7 +6,6 @@
 -- 2022/05/24 Aggiunta fresatura da sotto su macchine con testa da sotto.
 -- 2022/05/28 Aggiunto calcolo svuotatura da modulo di libreria.
 -- 2023/05/25 Sistemazione SCC per TURN.
-- 2023/07/31 Correzione e semplificazione di ModifySideInvertLead per invert.

 -- Tabella per definizione modulo
 local ProcessProfConvex = {}
@@ -90,7 +89,7 @@ end

 ---------------------------------------------------------------------
 local function ModifySideInvertLead( Proc, bHead, dToolDiam, dLenIni, dLenLst,
-                                     bFirstTrim, bLastTrim, dOffsetPar)
+                                     bFirstTrim, bLastTrim, bFlagInvert, dOffsetPar)

   -- confronto il punto iniziale e finale della lavorazione con il box della feature 
   -- e se è vicino alla parte esterna della trave inverto la lavorazione
@@ -98,9 +97,6 @@ local function ModifySideInvertLead( Proc, bHead, dToolDiam, dLenIni, dLenLst,
   local ptEp = EgtGetMachiningEndPoint()
   local nMachMode = EgtGetMachiningParam( MCH_MP.STEPTYPE)
   if nMachMode == 1 and ptSP and ptEp then
-      -- recupero flag inversione direzione di lavorazione
-      local bInvertMode = EgtGetMachiningParam( MCH_MP.INVERT)
-      -- verifico se da aggiustare
      if abs( EgtIf( bHead, Proc.Box:getMax():getX(), Proc.Box:getMin():getX()) - ptSP:getX()) < 
         abs( EgtIf( bHead, Proc.Box:getMax():getX(), Proc.Box:getMin():getX()) - ptEp:getX()) then
         -- ottengo il lato lavoro e lo inverto
@@ -108,14 +104,9 @@ local function ModifySideInvertLead( Proc, bHead, dToolDiam, dLenIni, dLenLst,
         if nSideWork > 0 then
            EgtSetMachiningParam( MCH_MP.WORKSIDE, EgtIf( nSideWork == MCH_MILL_WS.LEFT, MCH_MILL_WS.RIGHT, MCH_MILL_WS.LEFT))
         end
-         -- imposto il contrario dell'inversione trovata
-         bInvertMode = not bInvertMode
-         EgtSetMachiningParam( MCH_MP.INVERT, bInvertMode)
-      end
-      -- se lavorazione invertita rispetto a geometria, scambio dati di inizio e fine
-      if bInvertMode then
-         dLenIni, dLenLst = dLenLst, dLenIni
-         bFirstTrim, bLastTrim = bLastTrim, bFirstTrim
+         -- ottengo l'inversione e setto il contrario
+         local bInvertMode = EgtGetMachiningParam( MCH_MP.INVERT)
+         EgtSetMachiningParam( MCH_MP.INVERT, not bInvertMode)
      end
      -- modifico attacco e uscita
      if dLenIni and dLenLst then
@@ -129,6 +120,9 @@ local function ModifySideInvertLead( Proc, bHead, dToolDiam, dLenIni, dLenLst,
         if bLastTrim and dLenLst < dToolDiam / 2 + ( 20 * GEO.EPS_SMALL) then
            dEndAddLen = dToolDiam / 2 - dLenLst + dOffsetPar + 1
         end
+         if bFlagInvert then
+            dStartAddLen, dEndAddLen = dEndAddLen, dStartAddLen
+         end
         EgtSetMachiningParam( MCH_MP.STARTADDLEN, dStartAddLen)
         EgtSetMachiningParam( MCH_MP.ENDADDLEN, dEndAddLen)
      end
@@ -253,6 +247,8 @@ function ProcessProfConvex.Make( Proc, nPhase, nRawId, nPartId, dCurrOvmH)
   -- acquisisco informazioni sulle facce estreme
   local _, _, dLenIni = EgtSurfTmFacetMinAreaRectangle( Proc.Id, nFirstFacet, GDB_ID.ROOT)
   local _, _, dLenLst = EgtSurfTmFacetMinAreaRectangle( Proc.Id, nLastFacet, GDB_ID.ROOT)
+   -- flag percorso invertito
+   local bFlagInvert = false
   -- verifico se in testa o coda
   local bHead = ( vtN:getX() > 0)
   EgtOutLog( 'vtN=' .. tostring( vtN), 3)
@@ -348,6 +344,7 @@ function ProcessProfConvex.Make( Proc, nPhase, nRawId, nPartId, dCurrOvmH)
             ( not bHead and vtExtr:getY() > 0.1) then
            EgtSetMachiningParam( MCH_MP.TOOLINVERT, true)
            EgtSetMachiningParam( MCH_MP.INVERT, true)
+            bFlagInvert = not bFlagInvert
         end
      -- altrimenti lavorazione dal davanti o dal dietro
      else
@@ -356,12 +353,14 @@ function ProcessProfConvex.Make( Proc, nPhase, nRawId, nPartId, dCurrOvmH)
         if vtExtr:getZ() < 0 then
            EgtSetMachiningParam( MCH_MP.TOOLINVERT, true)
            EgtSetMachiningParam( MCH_MP.INVERT, true)
+            bFlagInvert = not bFlagInvert
         end
         -- se lavorazione a destra da dietro o sinistra di fronte, inverto
         if  ( bHead and vtN:getY() > 0.1) or
             ( not bHead and vtN:getY() < -0.1) then
            EgtSetMachiningParam( MCH_MP.WORKSIDE, MCH_MILL_WS.LEFT)
            EgtSetMachiningParam( MCH_MP.INVERT, true)
+            bFlagInvert = not bFlagInvert
         end
      end
      -- assegno affondamento e offset radiale
@@ -379,7 +378,7 @@ function ProcessProfConvex.Make( Proc, nPhase, nRawId, nPartId, dCurrOvmH)
      else
         -- applico controllo del punto entrata lavorazione e se non è distante dall'esterno
         -- della feature inverto il punto di inizio della lavorazione
-         ModifySideInvertLead( Proc, bHead, dToolDiam + ( 2 * dExtra), dLenIni, dLenLst, bFirstTrim, bLastTrim, dExtra)
+         ModifySideInvertLead( Proc, bHead, dToolDiam + ( 2 * dExtra), dLenIni, dLenLst, bFirstTrim, bLastTrim, bFlagInvert, dExtra)
      end
      -- se lavorazione da due parti, aggiungo la seconda
      if bDoubleCham then
@@ -394,6 +393,8 @@ function ProcessProfConvex.Make( Proc, nPhase, nRawId, nPartId, dCurrOvmH)
         end
         -- aggiungo geometria
         EgtSetMachiningGeometry( {{ AuxId, -1}})
+         -- resetto il flag inversione percorso
+         bFlagInvert = false
         -- se lavorazione da sopra o da sotto
         if nSide ~= 0 then
            -- se lavorazione a destra di fronte o sinistra da dietro, inverto
@@ -401,6 +402,7 @@ function ProcessProfConvex.Make( Proc, nPhase, nRawId, nPartId, dCurrOvmH)
               ( not bHead and vtExtr:getY() < -0.1) then
               EgtSetMachiningParam( MCH_MP.TOOLINVERT, true)
               EgtSetMachiningParam( MCH_MP.INVERT, true)
+               bFlagInvert = not bFlagInvert
            end
         else
            -- se lavorazione a destra di fronte o sinistra da dietro, inverto
@@ -408,6 +410,7 @@ function ProcessProfConvex.Make( Proc, nPhase, nRawId, nPartId, dCurrOvmH)
               ( not bHead and vtN:getY() < -0.1) then
               EgtSetMachiningParam( MCH_MP.TOOLINVERT, true)
               EgtSetMachiningParam( MCH_MP.INVERT, true)
+               bFlagInvert = not bFlagInvert
            end
         end
         -- assegno affondamento e offset radiale
@@ -425,7 +428,7 @@ function ProcessProfConvex.Make( Proc, nPhase, nRawId, nPartId, dCurrOvmH)
         else
            -- applico controllo del punto entrata lavorazione e se non è distante dall'esterno
            -- della feature inverto il punto di inizio della lavorazione
-            ModifySideInvertLead( Proc, bHead, dToolDiam + ( 2 * dExtra), dLenIni, dLenLst, bFirstTrim, bLastTrim, dExtra)
+            ModifySideInvertLead( Proc, bHead, dToolDiam + ( 2 * dExtra), dLenIni, dLenLst, bFirstTrim, bLastTrim, bFlagInvert, dExtra)
         end
      end
   end
@@ -484,11 +487,14 @@ function ProcessProfConvex.Make( Proc, nPhase, nRawId, nPartId, dCurrOvmH)
         end
         -- aggiungo geometria
         EgtSetMachiningGeometry( {{ AuxId, -1}})
+         -- resetto il flag inversione percorso
+         bFlagInvert = false
         -- se lavorazione da sopra e da sotto
         if ( nSide == 0) then
            if vtExtr:getZ() > 0.1 then
               EgtSetMachiningParam( MCH_MP.TOOLINVERT, true)
               EgtSetMachiningParam( MCH_MP.INVERT, true)
+               bFlagInvert = true
            end
         -- altrimenti lavorazione davanti e dietro
         else
@@ -497,6 +503,7 @@ function ProcessProfConvex.Make( Proc, nPhase, nRawId, nPartId, dCurrOvmH)
               ( not bHead and vtExtr:getY() < -0.1) then
               EgtSetMachiningParam( MCH_MP.TOOLINVERT, true)
               EgtSetMachiningParam( MCH_MP.INVERT, true)
+               bFlagInvert = true
            end
         end
         -- imposto l'affondamento
@@ -527,7 +534,7 @@ function ProcessProfConvex.Make( Proc, nPhase, nRawId, nPartId, dCurrOvmH)
            -- applico controllo del punto entrata lavorazione e se non è distante dall'esterno
            -- della feature inverto il punto di inizio della lavorazione e modifico i parametri dell'attacco
            -- e uscita
-            ModifySideInvertLead( Proc, bHead, dToolDiam, dLenIni, dLenLst, bFirstTrim, bLastTrim, dOffsetPar)
+            ModifySideInvertLead( Proc, bHead, dToolDiam, dLenIni, dLenLst, bFirstTrim, bLastTrim, bFlagInvert, dOffsetPar)
         end
         -- se abilitata, aggiungo lavorazione di finitura
         if bFinish then
@@ -561,6 +568,8 @@ function ProcessProfConvex.Make( Proc, nPhase, nRawId, nPartId, dCurrOvmH)
      end
      -- aggiungo geometria
      EgtSetMachiningGeometry( {{ AuxId, -1}})
+      -- resetto il flag inversione percorso
+      bFlagInvert = false
      -- se lavorazione da sopra o da sotto
      if nSide ~= 0 then
         if not bDouble and nSide == -1 then
@@ -569,6 +578,7 @@ function ProcessProfConvex.Make( Proc, nPhase, nRawId, nPartId, dCurrOvmH)
                ( not bHead and vtExtr:getY() < -0.1) then
               EgtSetMachiningParam( MCH_MP.TOOLINVERT, true)
               EgtSetMachiningParam( MCH_MP.INVERT, true)
+               bFlagInvert = not bFlagInvert
            end
         else
            -- se lavorazione a destra di fronte o sinistra da dietro, inverto
@@ -576,6 +586,7 @@ function ProcessProfConvex.Make( Proc, nPhase, nRawId, nPartId, dCurrOvmH)
                ( not bHead and vtExtr:getY() > 0.1) then
               EgtSetMachiningParam( MCH_MP.TOOLINVERT, true)
               EgtSetMachiningParam( MCH_MP.INVERT, true)
+               bFlagInvert = not bFlagInvert
            end
         end
      -- altrimenti lavorazione dal davanti o dal dietro
@@ -584,12 +595,14 @@ function ProcessProfConvex.Make( Proc, nPhase, nRawId, nPartId, dCurrOvmH)
         if vtExtr:getZ() < 0 then
            EgtSetMachiningParam( MCH_MP.TOOLINVERT, true)
            EgtSetMachiningParam( MCH_MP.INVERT, true)
+            bFlagInvert = not bFlagInvert
         end
         -- se lavorazione a destra da dietro o sinistra di fronte, inverto
         if  ( bHead and vtN:getY() > 0.1) or
             ( not bHead and vtN:getY() < -0.1) then
            EgtSetMachiningParam( MCH_MP.WORKSIDE, MCH_MILL_WS.LEFT)
            EgtSetMachiningParam( MCH_MP.INVERT, true)
+            bFlagInvert = not bFlagInvert
         end
      end
      -- se in doppio, imposto l'affondamento
@@ -618,7 +631,7 @@ function ProcessProfConvex.Make( Proc, nPhase, nRawId, nPartId, dCurrOvmH)
         -- applico controllo del punto entrata lavorazione e se non è distante dall'esterno
         -- della feature inverto il punto di inizio della lavorazione e modifico i parametri dell'attacco
         -- e uscita
-         ModifySideInvertLead( Proc, bHead, dToolDiam, dLenIni, dLenLst, bFirstTrim, bLastTrim, dOffsetPar)
+         ModifySideInvertLead( Proc, bHead, dToolDiam, dLenIni, dLenLst, bFirstTrim, bLastTrim, bFlagInvert, dOffsetPar)
      end
      -- se abilitata, aggiungo lavorazione di finitura
      if bFinish then
@@ -465,7 +465,8 @@ function ProcessProfFront.Make( Proc, nPhase, nRawId, nPartId, dCurrOvmH)
            return false, sErr
         else
            -- applico controllo del punto entrata lavorazione e se non è distante dall'esterno
-            -- della feature inverto il punto di inizio della lavorazione
+            -- della feature inverto il punto di inizio della lavorazione e modifico i parametri dell'attacco
+            -- e uscita
            ModifySideInvertLead( Proc, bHead, dToolDiam)
         end
         -- se abilitata, aggiungo lavorazione di finitura
@@ -553,7 +554,8 @@ function ProcessProfFront.Make( Proc, nPhase, nRawId, nPartId, dCurrOvmH)
         return false, sErr
      else
         -- applico controllo del punto entrata lavorazione e se non è distante dall'esterno
-         -- della feature inverto il punto di inizio della lavorazione
+         -- della feature inverto il punto di inizio della lavorazione e modifico i parametri dell'attacco
+         -- e uscita
         ModifySideInvertLead( Proc, bHead, dToolDiam)
      end
      -- se abilitata, aggiungo lavorazione di finitura
@@ -1,4 +1,4 @@
-- ProcessProfHead.lua by Egaltech s.r.l. 2023/07/31
+-- ProcessProfHead.lua by Egaltech s.r.l. 2022/05/28
 -- Gestione calcolo profilo di testa per Travi
 -- 2021/05/03 Aggiunta gestione smusso da sopra e sotto per macchina con testa sotto.
 -- 2021/06/28 Per macchine con testa sotto, smussi di lato con questa testa se non c'è lav.ne da sopra.
@@ -6,7 +6,6 @@
 -- 2022/02/02 Aggiunta funzione OnlyChamfer.
 -- 2022/05/24 Aggiunta fresatura da sotto su macchine con testa da sotto.
 -- 2022/05/28 Aggiunto calcolo svuotatura da modulo di libreria.
-- 2023/07/31 Correzione e semplificazione di ModifySideInvertLead per invert.

 -- Tabella per definizione modulo
 local ProcessProfHead = {}
@@ -82,7 +81,7 @@ end

 ---------------------------------------------------------------------
 local function ModifySideInvertLead( Proc, bHead, dToolDiam, dLenIni, dLenLst,
-                                     bFirstTrim, bLastTrim, dOffsetPar)
+                                     bFirstTrim, bLastTrim, bFlagInvert, dOffsetPar)

   -- confronto il punto iniziale e finale della lavorazione con il box della feature 
   -- e se è vicino alla parte esterna della trave inverto la lavorazione
@@ -90,9 +89,6 @@ local function ModifySideInvertLead( Proc, bHead, dToolDiam, dLenIni, dLenLst,
   local ptEp = EgtGetMachiningEndPoint()
   local nMachMode = EgtGetMachiningParam( MCH_MP.STEPTYPE)
   if nMachMode == 1 and ptSP and ptEp then
-      -- recupero flag inversione direzione di lavorazione
-      local bInvertMode = EgtGetMachiningParam( MCH_MP.INVERT)
-      -- verifico se da aggiustare
      if abs( EgtIf( bHead, Proc.Box:getMax():getX(), Proc.Box:getMin():getX()) - ptSP:getX()) < 
         abs( EgtIf( bHead, Proc.Box:getMax():getX(), Proc.Box:getMin():getX()) - ptEp:getX()) then
         -- ottengo il lato lavoro e lo inverto
@@ -100,14 +96,9 @@ local function ModifySideInvertLead( Proc, bHead, dToolDiam, dLenIni, dLenLst,
         if nSideWork > 0 then
            EgtSetMachiningParam( MCH_MP.WORKSIDE, EgtIf( nSideWork == MCH_MILL_WS.LEFT, MCH_MILL_WS.RIGHT, MCH_MILL_WS.LEFT))
         end
-         -- imposto il contrario dell'inversione trovata
-         bInvertMode = not bInvertMode
-         EgtSetMachiningParam( MCH_MP.INVERT, bInvertMode)
-      end
-      -- se lavorazione invertita rispetto a geometria, scambio dati di inizio e fine
-      if bInvertMode then
-         dLenIni, dLenLst = dLenLst, dLenIni
-         bFirstTrim, bLastTrim = bLastTrim, bFirstTrim
+         -- ottengo l'inversione e setto il contrario
+         local bInvertMode = EgtGetMachiningParam( MCH_MP.INVERT)
+         EgtSetMachiningParam( MCH_MP.INVERT, not bInvertMode)
      end
      -- modifico attacco e uscita
      if dLenIni and dLenLst then
@@ -121,6 +112,9 @@ local function ModifySideInvertLead( Proc, bHead, dToolDiam, dLenIni, dLenLst,
         if bLastTrim and dLenLst < dToolDiam / 2 + ( 20 * GEO.EPS_SMALL) then
            dEndAddLen = dToolDiam / 2 - dLenLst + dOffsetPar + 1
         end
+         if bFlagInvert then
+            dStartAddLen, dEndAddLen = dEndAddLen, dStartAddLen
+         end
         EgtSetMachiningParam( MCH_MP.STARTADDLEN, dStartAddLen)
         EgtSetMachiningParam( MCH_MP.ENDADDLEN, dEndAddLen)
      end
@@ -230,6 +224,8 @@ function ProcessProfHead.Make( Proc, nPhase, nRawId, nPartId, dCurrOvmH)
   -- acquisisco informazioni sulle facce estreme
   local _, _, dLenIni = EgtSurfTmFacetMinAreaRectangle( Proc.Id, nFirstFacet, GDB_ID.ROOT)
   local _, _, dLenLst = EgtSurfTmFacetMinAreaRectangle( Proc.Id, nLastFacet, GDB_ID.ROOT)
+   -- flag percorso invertito
+   local bFlagInvert = false
   -- verifico se in testa o coda
   local bHead = ( vtN:getX() > 0)
   EgtOutLog( 'vtN=' .. tostring( vtN), 3)
@@ -330,6 +326,7 @@ function ProcessProfHead.Make( Proc, nPhase, nRawId, nPartId, dCurrOvmH)
             ( not bHead and vtExtr:getY() > 0.1) then
            EgtSetMachiningParam( MCH_MP.TOOLINVERT, true)
            EgtSetMachiningParam( MCH_MP.INVERT, true)
+            bFlagInvert = not bFlagInvert
         end
      -- altrimenti lavorazione dal davanti o dal dietro
      else
@@ -338,12 +335,14 @@ function ProcessProfHead.Make( Proc, nPhase, nRawId, nPartId, dCurrOvmH)
         if vtExtr:getZ() < 0 then
            EgtSetMachiningParam( MCH_MP.TOOLINVERT, true)
            EgtSetMachiningParam( MCH_MP.INVERT, true)
+            bFlagInvert = not bFlagInvert
         end
         -- se lavorazione a destra da dietro o sinistra di fronte, inverto
         if  ( bHead and vtN:getY() > 0.1) or
             ( not bHead and vtN:getY() < -0.1) then
            EgtSetMachiningParam( MCH_MP.WORKSIDE, MCH_MILL_WS.LEFT)
            EgtSetMachiningParam( MCH_MP.INVERT, true)
+            bFlagInvert = not bFlagInvert
         end
      end
      -- assegno affondamento e offset radiale
@@ -362,7 +361,7 @@ function ProcessProfHead.Make( Proc, nPhase, nRawId, nPartId, dCurrOvmH)
         -- applico controllo del punto entrata lavorazione e se non è distante dall'esterno
         -- della feature inverto il punto di inizio della lavorazione
         ModifySideInvertLead( Proc, bHead, dToolDiam + ( 2 * dExtra), dLenIni, 
-                               dLenLst, ( #vAngs > 0 and vAngs[1] == 0), ( #vAngs > 0 and vAngs[#vAngs] == (Proc.Fct-2)), dExtra)
+                               dLenLst, ( #vAngs > 0 and vAngs[1] == 0), ( #vAngs > 0 and vAngs[#vAngs] == (Proc.Fct-2)), bFlagInvert, dExtra)
      end
      -- se lavorazione da due parti, aggiungo la seconda
      if bDoubleCham then
@@ -377,6 +376,8 @@ function ProcessProfHead.Make( Proc, nPhase, nRawId, nPartId, dCurrOvmH)
         end
         -- aggiungo geometria
         EgtSetMachiningGeometry( {{ AuxId, -1}})
+         -- resetto il flag inversione percorso
+         bFlagInvert = false
         -- se lavorazione da sopra o da sotto
         if nSide ~= 0 then
            -- se lavorazione a destra di fronte o sinistra da dietro, inverto
@@ -384,6 +385,7 @@ function ProcessProfHead.Make( Proc, nPhase, nRawId, nPartId, dCurrOvmH)
               ( not bHead and vtExtr:getY() < -0.1) then
               EgtSetMachiningParam( MCH_MP.TOOLINVERT, true)
               EgtSetMachiningParam( MCH_MP.INVERT, true)
+               bFlagInvert = not bFlagInvert
            end
         -- altrimenti lavorazione dal davanti o dal dietro
         else
@@ -392,6 +394,7 @@ function ProcessProfHead.Make( Proc, nPhase, nRawId, nPartId, dCurrOvmH)
               ( not bHead and vtN:getY() < -0.1) then
               EgtSetMachiningParam( MCH_MP.TOOLINVERT, true)
               EgtSetMachiningParam( MCH_MP.INVERT, true)
+               bFlagInvert = not bFlagInvert
            end
         end
         -- assegno affondamento e offset radiale
@@ -410,7 +413,7 @@ function ProcessProfHead.Make( Proc, nPhase, nRawId, nPartId, dCurrOvmH)
            -- applico controllo del punto entrata lavorazione e se non è distante dall'esterno
            -- della feature inverto il punto di inizio della lavorazione
            ModifySideInvertLead( Proc, bHead, dToolDiam + ( 2 * dExtra), dLenIni,
-                                  dLenLst, ( #vAngs > 0 and vAngs[1] == 0), ( #vAngs > 0 and vAngs[#vAngs] == (Proc.Fct-2)), dExtra)
+                                  dLenLst, ( #vAngs > 0 and vAngs[1] == 0), ( #vAngs > 0 and vAngs[#vAngs] == (Proc.Fct-2)), bFlagInvert, dExtra)
         end
      end
   end
@@ -470,6 +473,8 @@ function ProcessProfHead.Make( Proc, nPhase, nRawId, nPartId, dCurrOvmH)
         end
         -- aggiungo geometria
         EgtSetMachiningGeometry( {{ AuxId, -1}})
+         -- resetto il flag inversione percorso
+         bFlagInvert = false
         -- se lavorazione da sopra e da sotto
         if ( nSide == 0) then
            if vtExtr:getZ() > 0.1 then
@@ -512,7 +517,7 @@ function ProcessProfHead.Make( Proc, nPhase, nRawId, nPartId, dCurrOvmH)
            -- della feature inverto il punto di inizio della lavorazione e modifico i parametri dell'attacco
            -- e uscita
            ModifySideInvertLead( Proc, bHead, dToolDiam, dLenIni,
-                                  dLenLst, ( #vAngs > 0 and vAngs[1] == 0), ( #vAngs > 0 and vAngs[#vAngs] == (Proc.Fct-2)), dOffsetPar)
+                                  dLenLst, ( #vAngs > 0 and vAngs[1] == 0), ( #vAngs > 0 and vAngs[#vAngs] == (Proc.Fct-2)), bFlagInvert, dOffsetPar)
         end
         -- se abilitata, aggiungo lavorazione di finitura
         if bFinish then
@@ -546,6 +551,8 @@ function ProcessProfHead.Make( Proc, nPhase, nRawId, nPartId, dCurrOvmH)
      end
      -- aggiungo geometria
      EgtSetMachiningGeometry( {{ AuxId, -1}})
+      -- resetto il flag inversione percorso
+      bFlagInvert = false
      -- se lavorazione da sopra o da sotto
      if nSide ~= 0 then
         if not bDouble and nSide == -1 then
@@ -554,6 +561,7 @@ function ProcessProfHead.Make( Proc, nPhase, nRawId, nPartId, dCurrOvmH)
                ( not bHead and vtExtr:getY() < -0.1) then
               EgtSetMachiningParam( MCH_MP.TOOLINVERT, true)
               EgtSetMachiningParam( MCH_MP.INVERT, true)
+               bFlagInvert = not bFlagInvert
            end
         else
            -- se lavorazione a destra di fronte o sinistra da dietro, inverto
@@ -561,6 +569,7 @@ function ProcessProfHead.Make( Proc, nPhase, nRawId, nPartId, dCurrOvmH)
                ( not bHead and vtExtr:getY() > 0.1) then
               EgtSetMachiningParam( MCH_MP.TOOLINVERT, true)
               EgtSetMachiningParam( MCH_MP.INVERT, true)
+               bFlagInvert = not bFlagInvert
            end
         end
      -- altrimenti lavorazione dal davanti o dal dietro
@@ -569,12 +578,14 @@ function ProcessProfHead.Make( Proc, nPhase, nRawId, nPartId, dCurrOvmH)
         if vtExtr:getZ() < 0 then
            EgtSetMachiningParam( MCH_MP.TOOLINVERT, true)
            EgtSetMachiningParam( MCH_MP.INVERT, true)
+            bFlagInvert = not bFlagInvert
         end
         -- se lavorazione a destra da dietro o sinistra di fronte, inverto
         if  ( bHead and vtN:getY() > 0.1) or
             ( not bHead and vtN:getY() < -0.1) then
            EgtSetMachiningParam( MCH_MP.WORKSIDE, MCH_MILL_WS.LEFT)
            EgtSetMachiningParam( MCH_MP.INVERT, true)
+            bFlagInvert = not bFlagInvert
         end
      end
      -- se in doppio, imposto l'affondamento
@@ -602,7 +613,7 @@ function ProcessProfHead.Make( Proc, nPhase, nRawId, nPartId, dCurrOvmH)
         -- della feature inverto il punto di inizio della lavorazione e modifico i parametri dell'attacco
         -- e uscita
         ModifySideInvertLead( Proc, bHead, dToolDiam, dLenIni, 
-                               dLenLst, ( #vAngs > 0 and vAngs[1] == 0), ( #vAngs > 0 and vAngs[#vAngs] == (Proc.Fct-2)), dOffsetPar)
+                               dLenLst, ( #vAngs > 0 and vAngs[1] == 0), ( #vAngs > 0 and vAngs[#vAngs] == (Proc.Fct-2)), bFlagInvert, dOffsetPar)
      end
      -- se abilitata, aggiungo lavorazione di finitura
      if bFinish then
@@ -1,6 +1,6 @@
-- Version.lua by Egaltech s.r.l. 2023/07/31
+-- Version.lua by Egaltech s.r.l. 2023/07/19
 -- Gestione della versione di Beam

 NAME = 'Beam'
-VERSION = '2.5g3'
+VERSION = '2.5g2'
 MIN_EXE = '2.5c1'