#HOTFIX# Passaggio finitura tenone P14>0

- Corretto calcolo FaceUse
- Si cicla sulle ultime 5 facce anziché solo ultima

LuaLibs/BeamExec.lua

@@ -442,7 +442,7 @@ local function CalcHeadTailMachBeforeIntersDrillings( vProc, b3Raw)
    local b3TailBox
    for i = 1, #vProc do
       local Proc = vProc[i]
-      if Proc.Box and not Proc.Box:isEmpty() then 
+      if Proc.Box and not Proc.Box:isEmpty() then
          if Proc.Fct == 1 and BL.IsFeatureCuttingEntireSection( Proc.Box, b3Raw:getDimY(), b3Raw:getDimZ()) and ( Proc.Head or Proc.Tail) and Proc.Prc ~= 340 and Proc.Prc ~= 350 then
             if Proc.Head and Proc.Box:getCenter():getX() < dHeadX then
                dHeadX = Proc.Box:getCenter():getX()
@@ -467,6 +467,7 @@ end
 local function AnalyzeHeadFeatures( b3Solid, vProc, dRawW, dRawH)
    local nReplacedFeatureId = nil
    local bHeadFinishingNeeded = true
+   local nCuttingFeatureId = nil
    for i = 1, #vProc do
       local Proc = vProc[i]
       -- controllo se esiste già una feature taglio di testa
@@ -481,15 +482,19 @@ local function AnalyzeHeadFeatures( b3Solid, vProc, dRawW, dRawH)
       if Proc.Head and Proc.Id ~= nReplacedFeatureId and Proc.Prc ~= 340 then
          -- controllo se la feature taglia l'intera sezione; in caso positivo la finitura non è necessaria
          bHeadFinishingNeeded = not BL.IsFeatureCuttingEntireSection( Proc.Box, dRawW, dRawH)
+         if not bHeadFinishingNeeded and ( ( Proc.Grp == 1 or Proc.Grp == 2) and Proc.Prc == 10) and ( Proc.Flg > 0) then
+            nCuttingFeatureId = Proc.Id
+         end
       end
    end
-   return bHeadFinishingNeeded, nReplacedFeatureId
+   return bHeadFinishingNeeded, nReplacedFeatureId, nCuttingFeatureId
 end
 
 -------------------------------------------------------------------------------------------------------------
 local function AnalyzeTailFeatures( b3Solid, vProc, dRawW, dRawH)
    local nReplacedFeatureId = nil
    local bTailFinishingNeeded = true
+   local nCuttingFeatureId = nil
    for i = 1, #vProc do
       local Proc = vProc[i]
       -- controllo se esistè già una feature taglio di coda
@@ -504,9 +509,12 @@ local function AnalyzeTailFeatures( b3Solid, vProc, dRawW, dRawH)
       if Proc.Tail and Proc.Id ~= nReplacedFeatureId and Proc.Prc ~= 350 then
          -- controllo se la feature taglia l'intera sezione; in caso positivo la finitura non è necessaria
          bTailFinishingNeeded = not BL.IsFeatureCuttingEntireSection( Proc.Box, dRawW, dRawH)
+         if not bTailFinishingNeeded and ( ( Proc.Grp == 1 or Proc.Grp == 2) and Proc.Prc == 10) and ( Proc.Flg > 0) then
+            nCuttingFeatureId = Proc.Id
+         end
       end
    end
-   return bTailFinishingNeeded, nReplacedFeatureId
+   return bTailFinishingNeeded, nReplacedFeatureId, nCuttingFeatureId
 end
 
 -------------------------------------------------------------------------------------------------------------
@@ -600,6 +608,17 @@ function BeamExec.ProcessBeams( dRawW, dRawH, dRawL, dOvmHead, dOvmMid, vBeam, b
       local b3Part = EgtGetBBoxGlob( Pz or GDB_ID.NULL, GDB_BB.EXACT)
       local b3Solid = vBeam[i].Box
       if b3Part:isEmpty() or b3Solid:isEmpty() then break end
+      -- analizzo le features per valutare l'esistenza di feature head/tail che renderebbero inutili le rispettive finiture o di tagli di testa/coda sostituiti da cui leggere il parametro Q05
+      local vProc = CollectFeatures( Pz, b3Solid, 0)
+      local bSFinishingNeeded, nReplacedHeadCutFeatureId, nHeadCuttingFeatureId = AnalyzeHeadFeatures( b3Solid, vProc, dRawW, dRawH)
+      local bEFinishingNeeded, nReplacedTailCutFeatureId, nTailCuttingFeatureId = AnalyzeTailFeatures( b3Solid, vProc, dRawW, dRawH)
+      -- Scrivo gli di delle facce di taglio custom: serviranno dopo per calcolare l'elevazione rispetto a queste
+      if nHeadCuttingFeatureId then
+         EgtSetInfo( vBeam[i].Id, 'HEADCUTFEATUREID', nHeadCuttingFeatureId)
+      end
+      if nTailCuttingFeatureId then
+         EgtSetInfo( vBeam[i].Id, 'TAILCUTFEATUREID', nTailCuttingFeatureId)
+      end
       if bBigSectionCut then
          -- lascio in coda solo il materiale necessario; il resto verrà tolto nell'head cut successivo
          local lastB3Solid = nil
@@ -612,9 +631,6 @@ function BeamExec.ProcessBeams( dRawW, dRawH, dRawL, dOvmHead, dOvmMid, vBeam, b
                dOffset = dOvmMid
             end
          end
-         -- analizzo le features per valutare l'esistenza di feature head/tail che renderebbero inutili le rispettive finiture o di tagli di testa/coda sostituiti da cui leggere il parametro Q05
-         local vProc = CollectFeatures( Pz, b3Solid, 0)
-         local bSFinishingNeeded, nReplacedHeadCutFeatureId = AnalyzeHeadFeatures( b3Solid, vProc, dRawW, dRawH)
          local iSQ05Value = nil
          if nReplacedHeadCutFeatureId then
             iSQ05Value = EgtGetInfo( nReplacedHeadCutFeatureId, 'Q05', 'i')
@@ -624,7 +640,6 @@ function BeamExec.ProcessBeams( dRawW, dRawH, dRawL, dOvmHead, dOvmMid, vBeam, b
          else
             DeltaSMin = BD.OVM_BLADE_HBEAM
          end
-         local bEFinishingNeeded, nReplacedTailCutFeatureId = AnalyzeTailFeatures( b3Solid, vProc, dRawW, dRawH)
          local iEQ05Value = nil
          if nReplacedTailCutFeatureId then
             iEQ05Value = EgtGetInfo( nReplacedTailCutFeatureId, 'Q05', 'i')
@@ -780,7 +795,82 @@ local function PrintFeatures( vProc, b3Raw)
 end
 
 -------------------------------------------------------------------------------------------------------------
-local function OrderFeatures( vProc, b3Raw)
+-- mi assicuro che i tagli di testa e coda troncanti (usati per ridurre i percorsi utensile in testa e coda) siano sempre fatti per primi
+local function ReorderTruncatingCuts( vProc, nPartId)
+   if not nPartId or #vProc == 0 then return end
+
+   local nHeadCuttingFeatureId = EgtGetInfo( nPartId, 'HEADCUTFEATUREID', 'i')
+   local nTailCuttingFeatureId = EgtGetInfo( nPartId, 'TAILCUTFEATUREID', 'i')
+
+   -- tagli di testa
+   -- 1: si trovano gli indici del taglio di testa e del rispettivo taglio troncante
+   local nHeadCutIndex, nHeadCuttingFeatureIndex
+   for index, value in ipairs( vProc) do
+      if value.Prc == 340 then
+         nHeadCutIndex = index
+      end
+      if value.Id == nHeadCuttingFeatureId then
+         nHeadCuttingFeatureIndex = index
+      end
+   end
+
+   -- 2: se non c'è il taglio di testa, il taglio troncante è il primo. Se c'è il taglio di testa, il taglio troncante lo deve seguire.
+   if not nHeadCutIndex and nHeadCuttingFeatureIndex then
+      local HeadCuttingFeature = vProc[ nHeadCuttingFeatureIndex]
+      table.remove( vProc, nHeadCuttingFeatureIndex)
+      table.insert( vProc, 1, HeadCuttingFeature)
+   elseif nHeadCutIndex and nHeadCuttingFeatureIndex then
+      if abs( nHeadCutIndex - nHeadCuttingFeatureIndex) ~= 1 then
+         local HeadCut = vProc[ nHeadCutIndex]
+         local HeadCuttingFeature = vProc[ nHeadCuttingFeatureIndex]
+
+         table.remove( vProc, nHeadCutIndex)
+         -- rimuovere il primo potrebbe aver cambiato l'indice del secondo
+         if nHeadCutIndex < nHeadCuttingFeatureIndex then
+            nHeadCuttingFeatureIndex = nHeadCuttingFeatureIndex - 1
+         end
+         table.remove( vProc, nHeadCuttingFeatureIndex)
+
+         table.insert( vProc, nHeadCutIndex, HeadCut)
+         table.insert( vProc, nHeadCutIndex + 1, HeadCuttingFeature)
+      end
+   end
+
+   -- tagli di coda
+   -- 1: si trovano gli indici del taglio di coda e del rispettivo taglio troncante
+      local nTailCutIndex, nTailCuttingFeatureIndex
+   for index, value in ipairs( vProc) do
+      if value.Prc == 350 then
+         nTailCutIndex = index
+      end
+      if value.Id == nTailCuttingFeatureId then
+         nTailCuttingFeatureIndex = index
+      end
+   end
+
+   -- 2: il taglio di coda c'è sempre. Il taglio troncante lo deve seguire.
+   if nTailCutIndex and nTailCuttingFeatureIndex then
+      if abs( nTailCutIndex - nTailCuttingFeatureIndex) ~= 1 then
+         local TailCut = vProc[ nTailCutIndex]
+         local TailCuttingFeature = vProc[ nTailCuttingFeatureIndex]
+
+         table.remove( vProc, nTailCutIndex)
+         -- rimuovere il primo potrebbe aver cambiato l'indice del secondo
+         if nTailCutIndex < nTailCuttingFeatureIndex then
+            nTailCuttingFeatureIndex = nTailCuttingFeatureIndex - 1
+         end
+         table.remove( vProc, nTailCuttingFeatureIndex)
+
+         table.insert( vProc, nTailCutIndex, TailCut)
+         table.insert( vProc, nTailCutIndex + 1, TailCuttingFeature)
+      end
+   end
+
+   return true
+end
+
+-------------------------------------------------------------------------------------------------------------
+local function OrderFeatures( vProc, b3Raw, nPartId)
 
    local dDrillPenalty = EgtIf( BD.PRESS_ROLLER, 200, 100)
    local dSmallDrillRange = EgtIf( b3Raw:getDimX() < BD.LEN_SHORT_PART, BD.DRILL_RANGE_SP or 200, BD.DRILL_RANGE or 600)
@@ -1099,6 +1189,8 @@ local function OrderFeatures( vProc, b3Raw)
          end
       end
    end
+
+   ReorderTruncatingCuts( vProc, nPartId)
 end
 
 -------------------------------------------------------------------------------------------------------------
@@ -2021,7 +2113,7 @@ local function AreDrillingsMirrored( Proc, ProcMirror, b3Raw)
 end
 
 -------------------------------------------------------------------------------------------------------------
-function GetFeatureInfoAndDependency( vProc, b3Raw)
+function GetFeatureInfoAndDependency( vProc, b3Raw, nPartId)
    -- ciclo tutte le feature
    for i = 1, #vProc do
       local Proc = vProc[i]
@@ -2062,6 +2154,22 @@ function GetFeatureInfoAndDependency( vProc, b3Raw)
                end
             end
          end
+         -- verifiche per tagli troncanti testa e coda: devono sempre essere subito dopo il taglio di testa e il taglio di coda, rispettivamente
+         local nHeadCuttingFeatureId = EgtGetInfo( nPartId, 'HEADCUTFEATUREID', 'i')
+         local nTailCuttingFeatureId = EgtGetInfo( nPartId, 'TAILCUTFEATUREID', 'i')
+         if Proc.Prc == 340 and ProcB == nHeadCuttingFeatureId then
+            Proc.Dependency = {}
+            Proc.Dependency.ExecBefore = ProcB
+         elseif Proc == nHeadCuttingFeatureId and ProcB.Prc == 340 then
+            ProcB.Dependency = {}
+            ProcB.Dependency.ExecBefore = Proc
+         elseif Proc.Prc == 350 and ProcB == nTailCuttingFeatureId then
+            Proc.Dependency = {}
+            Proc.Dependency.ExecBefore = ProcB
+         elseif Proc == nTailCuttingFeatureId and ProcB.Prc == 350 then
+            ProcB.Dependency = {}
+            ProcB.Dependency.ExecBefore = Proc
+         end
       end
    end
 end
@@ -2103,7 +2211,7 @@ function BeamExec.ProcessFeatures()
       -- recupero le feature di lavorazione della trave
       local vProc = CollectFeatures( nPartId, b3Raw, dCurrOvmH, dCurrOvmT)
       -- recupero informazioni ausiliarie feature e dipendenze tra feature stesse
-      GetFeatureInfoAndDependency( vProc, b3Raw)
+      GetFeatureInfoAndDependency( vProc, b3Raw, nPartId)
 
       -- verifica presenza forature influenzate da lavorazioni di testa o coda
       if BD.IMPROVE_HEAD_TAIL_DRILLINGS then
@@ -2115,7 +2223,7 @@ function BeamExec.ProcessFeatures()
          SetMirroredFeatures( vProc, b3Raw)
       end
       -- le ordino lungo X
-      OrderFeatures( vProc, b3Raw)
+      OrderFeatures( vProc, b3Raw, nPartId)
       -- le classifico
       local bAllOk, bSomeDown, bSomeSide, bSplitRot = ClassifyFeatures( vProc, b3Raw, Stats)
       if not bAllOk then

LuaLibs/BeamLib.lua

@@ -551,7 +551,7 @@ function BeamLib.GetFaceWithMostAdj( Proc, nPartId, bCompare3Fc, dCosSideAng)
             local nAddGrpId = BeamLib.GetAddGroup( nPartId)
             if not nAddGrpId then
                EgtOutLog( 'Error : missing AddGroup')
-               return 0, 0, 0
+               return 0, 0, 0, 0
             end
             -- verifico eventuale intersezione tra la faccia i-1 esima e la proiezione dell'altra sulla stessa
             local nShadowFacetId = EgtCopySurfTmFacet( nSurfId, j - 1, nAddGrpId)
@@ -1189,7 +1189,7 @@ end
 -------------------------------------------------------------------------------------------------------------
 -- restituisce vero se la feature con box b3Proc taglia l'intera sezione della barra, rappresentata dalle sue dimensioni W e H
 function BeamLib.IsFeatureCuttingEntireSection( b3Proc, dRawW, dRawH)
-   return ((abs(b3Proc:getDimY() - dRawW) < 10 * GEO.EPS_SMALL or b3Proc:getDimY() > dRawW) and (abs(b3Proc:getDimZ() - dRawH) < 10 * GEO.EPS_SMALL or b3Proc:getDimZ() > dRawH))
+   return ( b3Proc:getDimY() > ( dRawW - 500 * GEO.EPS_SMALL)  and  b3Proc:getDimZ() > ( dRawH - 500 * GEO.EPS_SMALL))
 end
 
 -------------------------------------------------------------------------------------------------------------

LuaLibs/FacesBySaw.lua

@@ -83,8 +83,8 @@ function MakeParallelOne( nSurfId, nFacet, sCutting, dSawDiam, nFaceUse, dVzLimD
    if BD.KIOTP then Ktp = BD.KIOTP end
    if ( sLeadInOutType == 'PerpendicularOutraw') then
       bLioTang = false
-      dLiCompLength = dActualElevation + EgtMdbGetGeneralParam( MCH_GP.SAFEZ) + dCutExtra
-      dLoCompLength = dActualElevation + EgtMdbGetGeneralParam( MCH_GP.SAFEZ) + dCutExtra
+      dLiCompLength = dActualElevation + EgtMdbGetGeneralParam( MCH_GP.SAFEZ)
+      dLoCompLength = dActualElevation + EgtMdbGetGeneralParam( MCH_GP.SAFEZ)
       dLiTang = 1
       dLoTang = 1
       dLiPerp = 0

LuaLibs/MachiningLib.lua

@@ -80,7 +80,7 @@ end
 -- setta ultimi testa e utensile utilizzati se compatibili con ottimizzazione testa
 local function ConfirmNextMachining()
    -- utensile corrente
-   local sToolUuid = EgtMdbGetCurrMachiningParam( MCH_MP.TUUID)
+   local sToolUuid = EgtGetMachiningParam( MCH_MP.TUUID)
    local sToolName = EgtTdbGetToolFromUUID( sToolUuid or '')
    EgtTdbSetCurrTool( sToolName or '')
    -- testa dell'utensile corrente
@@ -331,7 +331,7 @@ end
 
 ---------------------------------------------------------------------
 local function FindMachining( MachiningType, sType, Params, bTopHead, bDownHead, bExcludeH2, bExcludeH3, sSortingCriterion)
-   local bOptimizeHeads = BEAM and BEAM.BW and ( not sSortingCriterion or sSortingCriterion == '')
+   local bOptimizeHeads = ( not sSortingCriterion or sSortingCriterion == '')
    if bTopHead == nil and bDownHead == nil then
       bTopHead = true
       bDownHead = false

LuaLibs/ProcessDrill.lua

@@ -642,8 +642,8 @@ function ProcessDrill.Make( Proc, nPhase, nRawId, nPartId)
       local dStep = EgtGetMachiningParam( MCH_MP.STEP)
       local nNumStep = ceil( dDepth/dStep)
       local dRealStep = dDepth / nNumStep
-      -- Se nel penultimo step le punte si trovano più vicine del minimo ( MinDistX1X2 + Puntina centraggio H1 + puntina centraggio H2) ricalcolo facendo uno step in meno
-      if ( ( dLen / 2)  - ( dRealStep * (nNumStep - 1))) * 2 < ( 40 + 10 + 10) then
+      -- Se foro passante e nel penultimo step le punte si trovano più vicine del minimo ( MinDistX1X2 + Puntina centraggio H1 + puntina centraggio H2) ricalcolo facendo uno step in meno
+      if bOpen and ( nNumStep > 1) and ( ( dLen / 2)  - ( dRealStep * (nNumStep - 1))) * 2 < ( 40 + 10 + 10) then
          dRealStep = ceil( dDepth / (nNumStep - 1))
          EgtSetMachiningParam( MCH_MP.STEP, dRealStep)
          sMyWarn ='Warning in drill-double : step changed to ' .. tostring(dRealStep) .. 'mm'

LuaLibs/ProcessDtTenon.lua

@@ -352,8 +352,107 @@ function ProcessDtTenon.Make( Proc, nPhase, nRawId, nPartId, dOvmHead)
          BL.UpdateTCING( nRawId, dOffs)
       end
    end
+
+   -- si controllano le ultime 5 facce della feature
+   local nIndFace = -1
+   for i = 1, 5 do
+      if abs( vtExtr * EgtSurfTmFacetNormVersor( Proc.Id, Proc.Fct-i, GDB_ID.ROOT)) < GEO.EPS_ANG_SMALL then
+         nIndFace = Proc.Fct-i
+      end
+   end
+   -- controllo se serve passaggio di finitura in caso il tenone non cominci dal bordo della trave (P14 > 0)
+   if nIndFace > 0 then
+      -- verifico se almeno uno dei punti iniziale e finale della curva giace in uno dei piani limite del pezzo, quindi se è un lato aperto
+      local bOpen = false
+      local ptIni = EgtSP( AuxId, GDB_RT.GLOB)
+      local ptFin = EgtEP( AuxId, GDB_RT.GLOB)
+      if ( abs( ptIni:getX() - b3Solid:getMax():getX()) < 100 * GEO.EPS_SMALL or abs( ptFin:getX() - b3Solid:getMax():getX()) < 100 * GEO.EPS_SMALL) or
+         ( abs( ptIni:getX() - b3Solid:getMin():getX()) < 100 * GEO.EPS_SMALL or abs( ptFin:getX() - b3Solid:getMin():getX()) < 100 * GEO.EPS_SMALL) or
+         ( abs( ptIni:getY() - b3Solid:getMax():getY()) < 100 * GEO.EPS_SMALL or abs( ptFin:getY() - b3Solid:getMax():getY()) < 100 * GEO.EPS_SMALL) or
+         ( abs( ptIni:getY() - b3Solid:getMin():getY()) < 100 * GEO.EPS_SMALL or abs( ptFin:getY() - b3Solid:getMin():getY()) < 100 * GEO.EPS_SMALL) or
+         ( abs( ptIni:getZ() - b3Solid:getMax():getZ()) < 100 * GEO.EPS_SMALL or abs( ptFin:getZ() - b3Solid:getMax():getZ()) < 100 * GEO.EPS_SMALL) or
+         ( abs( ptIni:getZ() - b3Solid:getMin():getZ()) < 100 * GEO.EPS_SMALL or abs( ptFin:getZ() - b3Solid:getMin():getZ()) < 100 * GEO.EPS_SMALL) then
+            bOpen = true
+      end
+      -- se entrambi i punti non sono sul limite pezzo
+      if not bOpen then
+         -- recupero la lavorazione
+         sMillType = 'Tenon'
+         sMilling = ML.FindMilling( sMillType .. EgtIf( bMillDown and not bMillUp, '_H2', ''), nil, nil, nil, nil, bMillUp, bMillDown)
+         if not sMilling then
+            local sErr = 'Error : milling to finish the tenon not found in library'
+            EgtOutLog( sErr)
+            return false, sErr
+         end
+         -- recupero i dati dell'utensile
+         if EgtMdbSetCurrMachining( sMilling) then
+            local sTuuid = EgtMdbGetCurrMachiningParam( MCH_MP.TUUID)
+            if EgtTdbSetCurrTool( EgtTdbGetToolFromUUID( sTuuid) or '') then
+               dTDiam = EgtTdbGetCurrToolParam( MCH_TP.DIAM) or dTDiam
+               dMaxMat = EgtTdbGetCurrToolParam( MCH_TP.MAXMAT) or dMaxMat
+               local dSpeed = EgtMdbGetCurrMachiningParam( MCH_MP.SPEED) or 0
+               bCW = ( dSpeed >= 0)
+            end
+
+            -- inserisco la passata finale della lavorazione
+            local sNameF = 'TenF_' .. ( EgtGetName( Proc.Id) or tostring( Proc.Id))
+            local nMchFId = EgtAddMachining( sNameF, sMilling)
+            if not nMchFId then
+               local sErr = 'Error adding machining ' .. sNameF .. '-' .. sMilling
+               EgtOutLog( sErr)
+               return false, sErr
+            end
+            -- aggiungo geometria
+            EgtSetMachiningGeometry( {{ Proc.Id, nIndFace}})
+            -- sistemo i parametri
+            EgtSetMachiningParam( MCH_MP.DEPTH_STR, 'TH')
+            -- sistemo il lato e la direzione di lavoro
+            EgtSetMachiningParam( MCH_MP.WORKSIDE, EgtIf( bCW, MCH_MILL_WS.LEFT, MCH_MILL_WS.RIGHT))
+            EgtSetMachiningParam( MCH_MP.INVERT, EgtIf( bCW, true, false))
+            EgtSetMachiningParam( MCH_MP.LITANG, 0.7 * dTDiam)
+            EgtSetMachiningParam( MCH_MP.LIPERP, 20)
+            EgtSetMachiningParam( MCH_MP.LOTANG, 0.7 * dTDiam)
+            EgtSetMachiningParam( MCH_MP.LOPERP, 20)
+
+            local nFaceUse
+            if vtExtr:getX() > -GEO.EPS_SMALL then
+               nFaceUse = MCH_MILL_FU.PARAL_LEFT
+            else
+               nFaceUse = MCH_MILL_FU.PARAL_RIGHT
+            end
+            EgtSetMachiningParam( MCH_MP.FACEUSE, nFaceUse)
+
+            -- imposto elevazione
+            local sUserNotes = EgtSetVal( 'MaxElev', EgtNumToString( dDtTenH, 1)) .. ';'
+            EgtSetMachiningParam( MCH_MP.USERNOTES, sUserNotes)
+
+            -- imposto posizione braccio porta testa
+            local nSCC = MCH_SCC.NONE
+            if BD.TURN then
+               if abs( vtAx:getY()) > abs( vtAx:getZ()) then
+                  nSCC = EgtIf( vtAx:getY() > 0, MCH_SCC.ADIR_YP, MCH_SCC.ADIR_YM)
+               else
+                  nSCC = EgtIf( vtAx:getZ() > 0, MCH_SCC.ADIR_ZP, MCH_SCC.ADIR_ZM)
+               end
+            elseif not BD.C_SIMM then
+               nSCC = MCH_SCC.ADIR_YM
+               if abs( vtExtr:getY()) > 0.088 then
+                  nSCC = EgtIf( vtExtr:getX() < GEO.EPS_SMALL, MCH_SCC.ADIR_XM, MCH_SCC.ADIR_XP)
+               end
+            end
+            EgtSetMachiningParam( MCH_MP.SCC, nSCC)
+            -- eseguo
+            if not ML.ApplyMachining( true, false) then
+               local _, sErr = EgtGetLastMachMgrError()
+               EgtSetOperationMode( nMchFId, false)
+               return false, sErr
+            end
+         end
+      end
+   end
+
    return true
-end   
+end
 
 ---------------------------------------------------------------------
 return ProcessDtTenon

LuaLibs/ProcessLapJoint.lua

@@ -794,9 +794,10 @@ function ProcessLapJoint.IsTailFeature( Proc, b3Raw)
    -- verifico se è in coda
    local dEndDist = Proc.Box:getMin():getX() - b3Solid:getMin():getX()
    if ( dEndDist > BD.MAX_DIST_HTFEA) or bUseBHSideMill then
-      if not( BD.BH_MACHINE) and bUseBHSideMill and ( Proc.Box:getMax():getX() - b3Solid:getMin():getX()) < 400 then
+      if not( BD.BH_MACHINE) and bUseBHSideMill and ( Proc.Box:getMax():getX() - b3Solid:getMin():getX()) < 400 and b3Solid:getDimX() > BD.LEN_VERY_SHORT_PART then
          return true
-      else
+      -- se Front Slot e pezzo abbastanza lungo si rimanda la decisione a più avanti
+      elseif not ( ( Proc.Prc == 17) and ( b3Solid:getDimX() > ( BD.LEN_VERY_SHORT_PART or BD.LEN_SHORT_PART))) then
          return false
       end
    end
@@ -3398,6 +3399,10 @@ local function MakeAntiSplintBySaw( Proc, nFacet, vtN, b3Raw, nFacInd, bReduceDe
       end
    end
    local dExtraOffs = 0
+   -- se il taglio è praticamente verticale, riduto massimo materiale lama
+   if BD.DECR_VERT_CUT and vtN:getZ() > 0.985 then
+      dMaxDepth = dMaxDepth - BD.DECR_VERT_CUT - BD.COLL_SIC
+   end
    -- se profondità superiore al massimo lama modifico elevazione
    if dDepth > dMaxDepth then
       dExtraOffs = dMaxDepth - dDepth
@@ -3433,7 +3438,7 @@ local function MakeAntiSplintBySaw( Proc, nFacet, vtN, b3Raw, nFacInd, bReduceDe
 end
 
 ---------------------------------------------------------------------
-local function MakePocket( Proc, nPartId, b3Solid, ptPs, tvtN, nFaceRef, sMchFind, nUseRoughTool, sMasterPocket, dPrevFaceElev, tDimAndRef, dAng, bOpenOutRaw, bLapJointAngTrasm, nPhase, nRawId)
+local function MakePocket( Proc, nPartId, b3Solid, ptPs, tvtN, nFaceRef, sMchFind, nUseRoughTool, sMasterPocket, dPrevFaceElev, tDimAndRef, dAng, bOpenOutRaw, bLapJointAngTrasm, nPhase, nRawId, dCustomMaxElev)
    -- distanza dal pezzo successivo
    local dDistToNextPiece = BL.GetDistanceToNextPart( nRawId, nPhase)
    -- calcolo l'elevazione dal punto medio
@@ -3536,11 +3541,10 @@ local function MakePocket( Proc, nPartId, b3Solid, ptPs, tvtN, nFaceRef, sMchFin
          end
       end
    end
-   -- eventuale massima elevazione imposta dall'utente
-   local dMaxElev = EgtGetInfo( Proc.Id, Q_MAX_ELEVATION, 'd')
-   if dMaxElev and dMaxElev < 1 then dMaxElev = nil end
+   -- eventuale massima elevazione forzata
+   if dCustomMaxElev and dCustomMaxElev < 1 then dCustomMaxElev = nil end
    -- se elevazione superiore a massimo affondamento della fresa, riduco opportunamente
-   dElev = dMaxElev or dElev
+   dElev = dCustomMaxElev or dElev
    local sWarn
    local dDepth = dElev
    if dElev > dMaxDepth + 10 * GEO.EPS_SMALL then
@@ -3717,7 +3721,7 @@ local function MachineByMill( Proc, nPhase, nRawId, nPartId, b3Solid, tvtN, nBas
                EgtOutLog( sErr)
                return false, sErr
             else
-               sWarn = 'Warning : lapjoint chamfer angle machined with different tool'
+               sWarn = 'Warning : lapjoint angled face machined with different tool'
             end
          end
          -- recupero i dati dell'utensile
@@ -3728,6 +3732,15 @@ local function MachineByMill( Proc, nPhase, nRawId, nPartId, b3Solid, tvtN, nBas
                dTDiam = EgtTdbGetCurrToolParam( MCH_TP.DIAM) or dTDiam
             end
          end
+         -- se utensile troppo più grande dell'originale salto la lavorazione
+         if sTuuidPk and EgtTdbSetCurrTool( EgtTdbGetToolFromUUID( sTuuidPk) or '') then
+            local dTDiamOriginalTool = EgtTdbGetCurrToolParam( MCH_TP.DIAM) or 0
+            if dTDiam > 2 * dTDiamOriginalTool then
+               sWarn = 'Warning : lapjoint angled face skipped (no compatible tool)'
+               EgtOutLog( sWarn)
+               return true, sWarn
+            end
+         end
          -- Calcolo uso faccia
          local nFaceUse = BL.GetNearestParalOpposite( tDimAndRef[1][3]:getVersZ())
          -- inserisco la lavorazione di fresatura
@@ -5079,6 +5092,7 @@ function SawPlusChain.GetBottomFaceEdges( Proc, Face)
          CurrentEdge.IsOpen = vEdges[j].Open
          CurrentEdge.IsStartOpen = ( vEdges[nPreviousEdgeIndex].Open)
          CurrentEdge.IsEndOpen = ( vEdges[nNextEdgeIndex].Open)
+         CurrentEdge.Id = j - 1
 
          if CurrentEdge.AdjacentFaceId == Proc.MainFaces.LongFace.Id then
             table.insert( Edges.LongEdges, CurrentEdge)
@@ -5124,6 +5138,7 @@ function SawPlusChain.GetLongFaceEdges( Proc, Face)
          CurrentEdge.IsOpen = vEdges[j].Open
          CurrentEdge.IsStartOpen = ( vEdges[nPreviousEdgeIndex].Open)
          CurrentEdge.IsEndOpen = ( vEdges[nNextEdgeIndex].Open)
+         CurrentEdge.Id = j - 1
 
          if Proc.Topology == 'Tunnel' then
             if CurrentEdge.AdjacentFaceId > -1 then
@@ -5273,6 +5288,9 @@ function SawPlusChain.ApplyMachining( Machining, b3Raw)
    if Machining.MaxElev then
       sUserNotes = EgtSetValInNotes( sUserNotes, 'MaxElev', Machining.MaxElev)
    end
+   if Machining.nEdgeFaceUse then
+      sUserNotes = EgtSetValInNotes( sUserNotes, 'EdgesFaceUse', EgtNumToString( Machining.nEdgeFaceUse))
+   end
    EgtSetMachiningParam( MCH_MP.USERNOTES, sUserNotes)
 
    local bIsApplyOk = ML.ApplyMachining( true, false)
@@ -5451,6 +5469,7 @@ function SawPlusChain.Saw.CalculateMachiningParameters( Proc, FaceToMachine, Edg
    else
       Cutting.Faceuse = BL.GetNearestOrthoOpposite( -EdgeToMachine.ToolDirection)
    end
+   Cutting.nEdgeFaceUse = EdgeToMachine.Id
    -- SCC
    Cutting.SCC = SawPlusChain.Saw.GetSCC( EdgeToMachine.ToolDirection)
    -- asse bloccato
@@ -5491,6 +5510,7 @@ end
 
 function SawPlusChain.Saw.ApplyAllSteps( Cutting, b3Raw)
    local bIsCuttingOk = false
+   local sCuttingOriginalMessage = Cutting.Message or ''
    local sCuttingApplyMessage = ''
 
    local dOriginalRadialOffset = Cutting.RadialOffset
@@ -5505,7 +5525,9 @@ function SawPlusChain.Saw.ApplyAllSteps( Cutting, b3Raw)
       bIsCuttingOk, sCuttingApplyMessage = SawPlusChain.ApplyMachining( Cutting, b3Raw)
       -- update messaggi
       if sCuttingApplyMessage and #sCuttingApplyMessage > 0 then
-         sCuttingApplyMessage = sCuttingApplyMessage .. 'Apply : ' .. sCuttingApplyMessage .. '\n'
+         sCuttingApplyMessage = sCuttingOriginalMessage .. '\n' .. sCuttingApplyMessage .. 'Apply : ' .. sCuttingApplyMessage .. '\n'
+      else
+         sCuttingApplyMessage = sCuttingOriginalMessage
       end
    end
 
@@ -5762,7 +5784,7 @@ function SawPlusChain.Make( bOnlySaw, Proc, nRawId)
             return bIsCuttingOk, Cutting.Message
          end
       end
-   else
+   elseif Proc.IsParallel then
       -- se la lama non è arrivata sul fondo e c'è almeno un lato aperto va lavorato
       if Cutting.CanApply and Cutting.RadialOffset > 10 * GEO.EPS_SMALL then
          -- eventuale lavorazione di lama - lato della tasca da cui inizia la lavorazione
@@ -5822,7 +5844,7 @@ function SawPlusChain.Make( bOnlySaw, Proc, nRawId)
             return bIsMortisingOk, Mortising.Message
          end
       end
-   else
+   elseif Proc.IsParallel then
       -- se la sega a catena non è arrivata sul fondo e c'è almeno un lato aperto va lavorato
       if Mortising.LongitudinalOffset > 10 * GEO.EPS_SMALL then
          -- eventuale lavorazione di sega a catena - lato della tasca da cui inizia la lavorazione
@@ -5865,6 +5887,7 @@ local function MakeMoreFaces( Proc, nPhase, nRawId, nPartId, dOvmHead, bSinglePa
    if not BD.MAXDIAM_POCK_CORNER then
       BD.MAXDIAM_POCK_CORNER = 30
    end
+   local nMGrpId = EgtGetCurrMachGroup()
    local sWarn
    -- recupero l'ingombro del grezzo di appartenenza
    local b3Raw = EgtGetRawPartBBox( nRawId)
@@ -6451,6 +6474,35 @@ local function MakeMoreFaces( Proc, nPhase, nRawId, nPartId, dOvmHead, bSinglePa
                dMaxTotLen = BD.GetBottomToolMaxTotLen( vtN)
             end
             local dUserMaxElev = EgtGetInfo( Proc.Id, Q_MAX_ELEVATION, 'd')
+            local dCustomMaxElev
+            -- se esistono tagli troncanti in testa o in coda, si calcola il MaxElev da applicare
+            if not dUserMaxElev then
+               local nTailCutId = EgtGetInfo( nPartId, 'TAILCUTFEATUREID', 'i')
+               local nHeadCutId = EgtGetInfo( nPartId, 'HEADCUTFEATUREID', 'i')
+               if nHeadCutId or nTailCutId then
+                  local nSurfPartId = EgtCopyGlob( EgtGetFirstNameInGroup( EgtGetFirstNameInGroup( nPartId, 'Box') or GDB_ID.NULL, 'Box'), nAddGrpId)
+                  if nHeadCutId then
+                     local ptCCutSurf, vtNCutSurf = EgtSurfTmFacetCenter( nHeadCutId, 0, GDB_ID.ROOT)
+                     EgtCutSurfTmPlane( nSurfPartId, ptCCutSurf, vtNCutSurf, false, GDB_RT.GLOB)
+                     local nSurfPartIdOld = nSurfPartId
+                     nSurfPartId = EgtSurfTmBySewing( nAddGrpId, { nSurfPartId, nHeadCutId}, false)
+                     EgtErase( nSurfPartIdOld)
+                  end
+                  -- in coda si usa il troncante solo se la feature è settata da lavorare dopo separazione (Tail), altrimenti si rischia che venga fatta prima del taglio
+                  if nTailCutId and Proc.Tail then
+                     local ptCCutSurf, vtNCutSurf = EgtSurfTmFacetCenter( nTailCutId, 0, GDB_ID.ROOT)
+                     EgtCutSurfTmPlane( nSurfPartId, ptCCutSurf, vtNCutSurf, false, GDB_RT.GLOB)
+                     local nSurfPartIdOld = nSurfPartId
+                     nSurfPartId = EgtSurfTmBySewing( nAddGrpId, { nSurfPartId, nTailCutId}, false)
+                     EgtErase( nSurfPartIdOld)
+                  end
+                  dCustomMaxElev = EgtSurfTmFacetElevationInClosedSurfTm( Proc.Id, nFacInd, nSurfPartId, true)
+                  if dCustomMaxElev then
+                     dCustomMaxElev = dCustomMaxElev + dCollSic
+                  end
+                  EgtErase( nSurfPartId)
+               end
+            end
             -- ricerca lavorazione
             local sPocketing
             local _, sMyPocketing, dMyTMaxDepth, dMyTDiam = VerifyPocket( Proc, dDiam, dFacElev + dCollSic, dMaxTotLen, sMchFind, bMillUp, bMillDown)
@@ -6458,14 +6510,20 @@ local function MakeMoreFaces( Proc, nPhase, nRawId, nPartId, dOvmHead, bSinglePa
                _, sMyPocketing, dMyTMaxDepth, dMyTDiam = VerifyPocket( Proc, dDiam, dFacElev + dCollSic, dMaxTotLen, sMchFind)
                bMillDown = false
             end
-            -- se l'utente ha definito un'elevazione custom dUserMaxElev si lavora sempre la faccia standard
-            if sMyPocketing and
-               ( dMyTMaxDepth > dFacElev + dCollSic - 10 * GEO.EPS_SMALL or ( dMyTMaxDepth > 0.8 * dFacElev + dCollSic and not bIsU) or
-                 ( bIsL and nUseRoughTool == 0) or
-                 ( bIsL and Proc.Prc == 20) or
-                 ( Proc.Prc == 25 and not bIsU and not bIsL)) or
-                 ( dUserMaxElev and dUserMaxElev > 10 * GEO.EPS_SMALL) then
-               sPocketing = sMyPocketing
+            -- se è presente un'elevazione custom dCustomMaxElev si lavora sempre la faccia standard
+            if sMyPocketing then
+               if dUserMaxElev then
+                  dCustomMaxElev = dUserMaxElev
+               elseif dCustomMaxElev and ( dMyTMaxDepth < dCustomMaxElev + dCollSic - 10 * GEO.EPS_SMALL) then
+                  dCustomMaxElev = nil
+               end
+               if ( dMyTMaxDepth > dFacElev + dCollSic - 10 * GEO.EPS_SMALL or ( dMyTMaxDepth > 0.8 * dFacElev + dCollSic and not bIsU) or
+                  ( bIsL and nUseRoughTool == 0) or
+                  ( bIsL and Proc.Prc == 20) or
+                  ( Proc.Prc == 25 and not bIsU and not bIsL)) or
+                  ( dCustomMaxElev and dCustomMaxElev > 10 * GEO.EPS_SMALL) then
+                  sPocketing = sMyPocketing
+               end
             end
             if bMillDown then
                sMchFind = sMchFind ..'_H2'
@@ -6691,7 +6749,7 @@ local function MakeMoreFaces( Proc, nPhase, nRawId, nPartId, dOvmHead, bSinglePa
                               dToolMaxDiam = dToolTargetDiam
                            end
                            local _, sPocketing = VerifyPocket( Proc, dToolMaxDiam, dFacElev, nil, sMyMchFind)
-                           bOk, sWarn2, sTuuidPk, dDiamTool, dDepth = MakePocket( Proc, nPartId, b3Solid, ptPs, tvtNx, nFacInd, sMyMchFind, nUseRoughTool, sPocketing, dMachDepth, nil, nil, bAllWithEndCap, nil, nPhase, nRawId)
+                           bOk, sWarn2, sTuuidPk, dDiamTool, dDepth = MakePocket( Proc, nPartId, b3Solid, ptPs, tvtNx, nFacInd, sMyMchFind, nUseRoughTool, sPocketing, dMachDepth, nil, nil, bAllWithEndCap, nil, nPhase, nRawId, dCustomMaxElev)
                            if not bOk then return false, sWarn2 end
                            if sWarn2 then
                               if not sWarn then sWarn = '' end
@@ -6870,6 +6928,12 @@ local function MakeMoreFaces( Proc, nPhase, nRawId, nPartId, dOvmHead, bSinglePa
                                                            nil, nil, nil, b3Solid)
                if not bOk then return false, sWarn2 end
             end
+            -- dopo aver applicato gli antischeggia ricerco la svuotatura perchè l'ottimizzazione teste deve sapere quale è la lavorazione precedente
+            _, sPocketing, dMyTMaxDepth, dMyTDiam = VerifyPocket( Proc, dDiam, dFacElev + dCollSic, dMaxTotLen, sMchFind, bMillUp, bMillDown)
+            if not sPocketing and bMillUp then
+               _, sPocketing, dMyTMaxDepth, dMyTDiam = VerifyPocket( Proc, dDiam, dFacElev + dCollSic, dMaxTotLen, sMchFind)
+               bMillDown = false
+            end
             -- se smusso non esclusivo
             if nChamfer < 2 then
                -- eseguo la svuotatura della faccia principale, mi restituisce id utensile, il diametro utensile per il foro opzionale
@@ -6907,7 +6971,7 @@ local function MakeMoreFaces( Proc, nPhase, nRawId, nPartId, dOvmHead, bSinglePa
                if ( Proc.Fct == 4 and bTailOnSide) and ( dDistToNextPiece > dToolDiameter + 10 * GEO.EPS_SMALL) then
                   sMchFind = EgtIf( bMillDown, 'OpenPocket_H2', 'OpenPocket')
                end
-               bOk, sWarn2, sTuuidPk, dDiamTool = MakePocket( Proc, nPartId, b3Solid, ptC, tvtNx, nFacInd, sMchFind, nUseRoughTool, sPocketing, dMachiningDepth, nil, nil, bAllWithEndCap, bLapJointAngTrasm, nPhase, nRawId)
+               bOk, sWarn2, sTuuidPk, dDiamTool = MakePocket( Proc, nPartId, b3Solid, ptC, tvtNx, nFacInd, sMchFind, nUseRoughTool, sPocketing, dMachiningDepth, nil, nil, bAllWithEndCap, bLapJointAngTrasm, nPhase, nRawId, dCustomMaxElev)
                if not bOk then return false, sWarn2 end
                if sWarn2 then
                   if not sWarn then sWarn = '' end
@@ -7092,11 +7156,11 @@ local function MakeLongMoreFaces( Proc, nPhase, nRawId, nPartId, dOvmHead)
                nCapIdLeftSide = EgtSurfTmByFlatContour( nAddGrpId, nFirstId)
                if not nCapIdLeftSide then bAllWithEndCap = false end
             end
-          if nFirstId then
-             for nId = nFirstId, nFirstId + nPnt + nCrv + nSrf - 1 do
-                EgtErase( nId)
-             end
-          end
+            if nFirstId then
+               for nId = nFirstId, nFirstId + nPnt + nCrv + nSrf - 1 do
+                  EgtErase( nId)
+               end
+            end
          end
          if i > 1 then
             -- taglio della superficie lato sinistro
@@ -7188,7 +7252,7 @@ local function TestTwoFacesDownHead( Proc)
       end
       -- recupero le caratteristiche della feature e delle facce
       local vtRes = Proc.Face[1].VtN ^ Proc.Face[2].VtN
-      Proc.IsTopDownRabbet = abs( vtRes:getZ()) > 10 * GEO.EPS_SMALL
+      Proc.IsTopDownRabbet = Proc.AffectedFaces.Top and abs( vtRes:getZ()) > 10 * GEO.EPS_SMALL
       for i = 1, Proc.Fct do
          Proc.Face[i].IsTooDownwardForTopBlade = Proc.Face[i].VtN:getZ() < ( BD.CUT_VZ_MIN or -0.484) - 10 * GEO.EPS_SMALL
          Proc.Face[i].IsTooWideForTopBlade = Proc.Face[i].WidthTrimmed > dTopBladeMaxDepth
@@ -7197,9 +7261,11 @@ local function TestTwoFacesDownHead( Proc)
       if not ( Proc.Face[1].IsTooDownwardForTopBlade or Proc.Face[2].IsTooDownwardForTopBlade) then
          bDownHeadBlade = false
       else
-         if ( Proc.Face[1].IsTooDownwardForTopBlade and Proc.Face[2].IsTooWideForTopBlade) or
-            ( Proc.Face[2].IsTooDownwardForTopBlade and Proc.Face[1].IsTooWideForTopBlade) then
-            bDownHeadBlade = true
+         for i = 1, Proc.Fct do
+            if Proc.Face[i].IsTooDownwardForTopBlade and ( not Proc.IsTopDownRabbet or Proc.Face[i].IsTooWideForTopBlade) then
+               bDownHeadBlade = true
+               break
+            end
          end
       end
    end
@@ -7456,7 +7522,7 @@ function ProcessLapJoint.Make( Proc, nPhase, nRawId, nPartId, dOvmHead)
    end
    -- se lunghezza richiede spezzatura
    if ( Proc.Box:getDimX() > BD.LONGCUT_MAXLEN) or
-      ( Proc.Box:getDimX() > 0.7 * b3Solid:getDimX() and Proc.Box:getDimX() > BD.LONGCUT_ENDLEN) or
+      ( Proc.Box:getDimX() > 0.7 * b3Solid:getDimX() and ( b3Solid:getDimX() > ( BD.LEN_VERY_SHORT_PART or BD.LEN_SHORT_PART))) or
       ( ( nForceUseBladeOnNotContinueFace and nForceUseBladeOnNotContinueFace > 0) and ( Proc.Box:getDimX() > ( BD.LEN_SHORT_PART or 1000))) then
       -- una faccia
       if Proc.Fct == 1 then

LuaLibs/ProcessMortise.lua

@@ -352,6 +352,57 @@ function ProcessMortise.Make( Proc, nPhase, nRawId, nPartId, dCurrOvmH)
    if not bModif and not bOpenBtm then
       BL.SetOpenSide( AuxId, b3Solid)
    end
+
+   -- caso speciale feature trimmata diversamente in/out: si ricostruisce la curva non trimmata
+   -- recupero gruppo per geometria addizionale
+   local nAddGrpId = BL.GetAddGroup( nPartId)
+   if not nAddGrpId then
+      local sErr = 'Error : missing AddGroup'
+      EgtOutLog( sErr)
+      return false, sErr
+   end
+   -- estrazione loop trimesh: se 1 contorno ha il fondo, se due contorni è passante.
+   -- se passante si deve discriminare se i due contorni sono uguali (passante standard, trimmata allo stesso modo in/out) oppure se un contorno è diverso dall'altro (e quindi non è trimmata in egual modo in/out)
+   -- se più di 2 contorni si rimane nel caso standard
+   local idCurve1, nIdCount = EgtExtractSurfTmLoops( Proc.Id, nAddGrpId)
+   if nIdCount == 2 then
+      local idCurve2 = idCurve1 + 1
+      local dCurveLength1 = EgtCurveLength( idCurve1)
+      local dCurveLength2 = EgtCurveLength( idCurve2)
+      if abs( dCurveLength1 - dCurveLength2) > 100 * GEO.EPS_SMALL then
+         -- riferimento curva ausiliaria
+         local frAuxId = Frame3d( EgtGP( AuxId, GDB_RT.GLOB), vtExtr)
+         -- box dei due contorni nel riferimento della faccia di fondo
+         local b3Curve1 = EgtGetBBoxRef( idCurve1, GDB_BB.STANDARD, frAuxId)
+         local b3Curve2 = EgtGetBBoxRef( idCurve2, GDB_BB.STANDARD, frAuxId)
+         -- per creare la curva non trimmata si creerà un piano di intersezione con la trimesh appena sopra al contorno più vicino a AuxId, ossia a ptOffset
+         local ptOffset = b3Curve1:getMax()
+         if b3Curve1:getMin():getZ() > b3Curve2:getMin():getZ() + 10 * GEO.EPS_SMALL then
+            ptOffset = b3Curve2:getMax()
+         end
+         -- ptOffset si sposta appena sopra per garantire l'intersezione
+         ptOffset = ptOffset + Vector3d( 0, 0, 100 * GEO.EPS_SMALL)
+         local ptOffsetGlob = Point3d( ptOffset)
+         ptOffsetGlob:toGlob( frAuxId)
+         EgtErase( { idCurve1, idCurve2} )
+         -- intersezione piano a ptOffset con la trimesh: si ottiene la curva originale non trimmata
+         local nFirstId, nPnt, nCrv, nSrf = EgtPlaneSurfTmInters( ptOffsetGlob, frAuxId:getVersZ(), Proc.Id, nAddGrpId, GDB_RT.GLOB)
+         if nPnt == 0 and nCrv == 1 and nSrf == 0 then
+            EgtCloseCurveCompo( nFirstId)
+            local vtMove = -frAuxId:getVersZ() * ptOffset:getZ()
+            EgtMove( nFirstId, vtMove, GDB_RT.GLOB)
+            EgtErase( AuxId)
+            EgtChangeId( nFirstId, AuxId)
+         else
+            if nFirstId then
+               for nId = nFirstId, nFirstId + nPnt + nCrv + nSrf - 1 do
+                  EgtErase( nId)
+               end
+            end
+         end
+      end
+   end
+
    if bOpenBtm then
       -- creo superficie chiusa
       local nFlat = EgtSurfTmByFlatContour( EgtGetParent( AuxId), AuxId, 0.05)

LuaLibs/ProcessProfCamb.lua

@@ -33,7 +33,6 @@ local sEnableExtraBladeUpperFace = 'Q02' -- i
 local sDepthChamferMill          = 'Q03' -- d
 local sOverMaterialForFinish     = 'Q04' -- d
 local sPreemptiveChamfer         = 'Q05' -- i
-local bUseSmallMill              = 'Q06' -- i
 
 -- abilitazioni extra
 local dMakeAntiSplintOnHead = 1 -- valore impronta antischeggia, per disattivare settare = nil o = 0
@@ -208,36 +207,31 @@ local function VerifyCham( Proc, AuxId, nRawId, bMakeVertCham, sDephtCham, sOnly
 end
 
 ---------------------------------------------------------------------
-function VerifySmallMillCanFinish( dDiamCurrentTool, dDepthProfile, nSide)
-   local dToolMaxDepthSmall, dToolDiamSmall
+function VerifyOtherMillCanFinish( dDepthProfile, nSide)
+   local dToolMaxDepthFinish
    -- abilitazione lavorazione da sotto
-   local sMillType = 'Prof'
-   local sMillingSmall, _, _, bH2Small = ML.FindMilling( sMillType, nil, nil, nil, nil, true, nil, nil, nil, 'Smallest')
-   if not sMillingSmall then
+   local sMillType = 'Prof_end'
+   local sMillingFinish, _, _, _ = ML.FindMilling( sMillType, nil, nil, nil, nil, true, nil, nil, nil)
+   if not sMillingFinish then
       return false
    end
    -- Recupero i dati dell'utensile
-   if EgtMdbSetCurrMachining( sMillingSmall) then
+   if EgtMdbSetCurrMachining( sMillingFinish) then
       local sTuuid = EgtMdbGetCurrMachiningParam( MCH_MP.TUUID)
       if EgtTdbSetCurrTool( EgtTdbGetToolFromUUID( sTuuid)) then
-         dToolMaxDepthSmall = EgtTdbGetCurrToolMaxDepth()
-         dToolDiamSmall = EgtTdbGetCurrToolParam( MCH_TP.DIAM)
-         -- se non ci sono almeno 5mm di differenza si fa con utensile standard
-         if dDiamCurrentTool - 5 < dToolDiamSmall then
-            return false
-         end
+         dToolMaxDepthFinish = EgtTdbGetCurrToolMaxDepth()
       end
    else
       return false
    end
-   local bDouble = ( dDepthProfile + BD.CUT_EXTRA > dToolMaxDepthSmall)
+   local bDouble = ( dDepthProfile + BD.CUT_EXTRA > dToolMaxDepthFinish)
    -- se lavorazione in doppio richiesta, si verifica se richiesta testa sotto
    if bDouble and nSide == 0 then
       return false  -- TODO macchine con BD.DOWN_HEAD potrebbero lavorare in doppio in questo caso!
    end
 
-   if not bDouble or ( dDepthProfile + BD.MILL_OVERLAP < dToolMaxDepthSmall * 2) then
-      return true, sMillingSmall, bDouble
+   if not bDouble or ( dDepthProfile + BD.MILL_OVERLAP < dToolMaxDepthFinish * 2) then
+      return true, sMillingFinish, bDouble
    end
    return false
 end
@@ -506,12 +500,8 @@ function ProcessProfCamb.Make( Proc, nPhase, nRawId, nPartId, dCurrOvmH)
    end
 
 
-   local bUseSmallMillOnFinish = EgtGetInfo( Proc.Id, bUseSmallMill, 'i') == 1
-   local sMillingSmall, bDoubleSmall
-   -- se serve fresa più piccola per finitura
-   if bUseSmallMillOnFinish then
-      bUseSmallMillOnFinish, sMillingSmall, bDoubleSmall = VerifySmallMillCanFinish( dMillDiam, dProfDepth, nSide)
-   end
+   -- se configurata fresa di finitura
+   local bUseOtherMillOnFinish, sFinishMilling, bDoubleFinishMill = VerifyOtherMillCanFinish( dProfDepth, nSide)
 
    -- se il chamfer non è esclusivo continuo con le altre lavorazioni
    if nChamfer < 2 then
@@ -608,7 +598,7 @@ function ProcessProfCamb.Make( Proc, nPhase, nRawId, nPartId, dCurrOvmH)
             nMchId = nMch2Id
          end
          -- se abilitata, aggiungo lavorazione di finitura
-         if bFinish and not bUseSmallMillOnFinish then
+         if bFinish and not bUseOtherMillOnFinish then
             -- inserisco la lavorazione
             local sNewName = 'ProfB_Fin_' .. ( EgtGetName( Proc.Id) or tostring( Proc.Id))
             local nMch2Id = EgtCopyMachining( sNewName, EgtGetName( nMchId)) 
@@ -723,7 +713,7 @@ function ProcessProfCamb.Make( Proc, nPhase, nRawId, nPartId, dCurrOvmH)
          nMchId = nMch2Id
       end
       -- se abilitata, aggiungo lavorazione di finitura
-      if bFinish and not bUseSmallMillOnFinish then
+      if bFinish and not bUseOtherMillOnFinish then
          -- inserisco la lavorazione
          local sNewName = 'Prof_Fin_' .. ( EgtGetName( Proc.Id) or tostring( Proc.Id))
          local nMch2Id = EgtCopyMachining( sNewName, EgtGetName( nMchId)) 
@@ -780,12 +770,12 @@ function ProcessProfCamb.Make( Proc, nPhase, nRawId, nPartId, dCurrOvmH)
          end
       end
       -- se finitura con fresa piccola
-      if bFinish and bUseSmallMillOnFinish then
-         local sDepthSmall = EgtIf( bDoubleSmall, ( dProfDepth+ BD.MILL_OVERLAP ) / 2, dProfDepth + BD.CUT_EXTRA)
+      if bFinish and bUseOtherMillOnFinish then
+         local sDepthFinishMill = EgtIf( bDoubleFinishMill, ( dProfDepth+ BD.MILL_OVERLAP ) / 2, dProfDepth + BD.CUT_EXTRA)
          local sMachName = 'Fin_' .. ( EgtGetName( Proc.Id) or tostring( Proc.Id))
-         nMchId = EgtAddMachining( sMachName, sMillingSmall)
+         nMchId = EgtAddMachining( sMachName, sFinishMilling)
          if not nMchId then
-            local sErr = 'Error adding machining ' .. sMachName .. '-' .. sMillingSmall
+            local sErr = 'Error adding machining ' .. sMachName .. '-' .. sFinishMilling
             EgtOutLog( sErr)
             return false, sErr
          end
@@ -793,7 +783,7 @@ function ProcessProfCamb.Make( Proc, nPhase, nRawId, nPartId, dCurrOvmH)
          EgtSetMachiningGeometry( {{ AuxId, -1}})
 
          -- imposto l'affondamento
-         EgtSetMachiningParam( MCH_MP.DEPTH, sDepthSmall)
+         EgtSetMachiningParam( MCH_MP.DEPTH, sDepthFinishMill)
          -- posizione braccio porta testa
          EgtSetMachiningParam( MCH_MP.SCC, EgtIf( bHead, MCH_SCC.ADIR_XP, MCH_SCC.ADIR_XM))
          -- eseguo
@@ -803,7 +793,7 @@ function ProcessProfCamb.Make( Proc, nPhase, nRawId, nPartId, dCurrOvmH)
             return false, sErr
          end
 
-         if bDoubleSmall then
+         if bDoubleFinishMill then
             local sNewName = 'FinB_' .. ( EgtGetName( Proc.Id) or tostring( Proc.Id))
             local nMch2Id = EgtCopyMachining( sNewName, EgtGetName( nMchId))
             EgtSetMachiningParam( MCH_MP.TOOLINVERT, true)

LuaLibs/ProcessRidgeLap.lua

@@ -176,15 +176,15 @@ function ProcessRidgeLap.Make( Proc, nPhase, nRawId, nPartId, dOvmHead)
       local vtRef2 = Vector3d( vtN[vFaceOrd[2]])
       -- eseguo
       for i = 1, #vCuts do
-         local nOrthoOpposite
+         local vtOrtho
          if i % 2 == 1 then
-            nOrthoOpposite = BL.GetNearestOrthoOpposite( vtRef)
+            vtOrtho = vtRef
          else
-            nOrthoOpposite = BL.GetNearestOrthoOpposite( vtRef2)
+            vtOrtho = vtRef2
          end
          -- lavoro la faccia
          for j = 1, #vCuts[i] do
-            local bOk, sErr = Fbs.MakeOne( vCuts[i][j], 0, sCutting, dSawDiam, nOrthoOpposite, dVzLimDwnUp, 0, BD.CUT_SIC, 0, 0, 0, nil, b3Raw)
+            local bOk, sErr = Fbs.MakeOne( vCuts[i][j], 0, sCutting, dSawDiam, vtOrtho, dVzLimDwnUp, 0, BD.CUT_SIC, 0, 0, 0, nil, b3Raw)
             if not bOk then
                return bOk, sErr
             end

LuaLibs/ProcessStepJointNotch.lua

@@ -13,6 +13,7 @@ local Fbs = require( 'FacesBySaw')
 local DC = require( 'DiceCut')
 local Cut = require( 'ProcessCut')
 local Topology = require( 'FeatureTopology')
+local LapJoint = require( 'ProcessLapJoint')
 
 EgtOutLog( ' ProcessStepJointNotch started', 1)
 
@@ -49,7 +50,7 @@ function ProcessStepJointNotch.Classify( Proc)
    -- numero delle facce
    local nFacetCnt = EgtSurfTmFacetCount( Proc.Id)
    -- gestisco solo 2 o 4 facce
-   if nFacetCnt ~= 2 and nFacetCnt ~= 4 and nFacetCnt ~= 6 and nFacetCnt ~= 8 then
+   if nFacetCnt ~= 2 and nFacetCnt ~= 3 and nFacetCnt ~= 4 and nFacetCnt ~= 6 and nFacetCnt ~= 8 then
       return false, false
    end
    -- verifico le normali delle facce
@@ -583,6 +584,9 @@ end
 ---------------------------------------------------------------------
 -- Applicazione della lavorazione
 function ProcessStepJointNotch.Make( Proc, nPhase, nRawId, nPartId, dOvmHead)
+   if Proc.Fct == 3 then
+      return LapJoint.Make( Proc, nPhase, nRawId, nPartId, dOvmHead)
+   end
    -- esecuzione eventuale smusso
    -- ottengo anche il flag che indica che la feature è larga come la trave
    local bOkc, sErrC, nDiffWidth = MakeChamfer( Proc, nPhase, nRawId, nPartId, dOvmHead)

UpdateLog.txt

@@ -1,5 +1,36 @@
            ==== Beam Update Log ====
 
+Versione 2.7i1 (03/09/2025)
+- Added : in Tenone a coda di rondine aggiunto passaggio di finitura in caso di P14 > 0
+- Modif : in LapJoint migliorata la scelta lama in caso di due facce e altre piccole correzioni
+
+Versione 2.7h3 (26/08/2025)
+- Added : in LapJoint, se possibile, si ricalcola l'elevazione in caso di feature troncanti testa/coda
+- Modif : eventuali feature troncanti testa/coda sono fatte sempre subito dopo i rispettivi tagli di testa/coda
+
+Versione 2.7h2 (19/08/2025)
+- Modif : migliorata ottimizzazione teste
+- Modif : migliorate forature in doppio
+- Modif : in LapJoint migliorate lavorazioni lama + sega a catena
+- Modif : in LapJoint migliorata spezzatura per feature lunghe rispetto al pezzo
+- Modif : in LapJoint tipo BirdsMouth migliorata lavorazione faccia inclinata
+- Modif : in StepJointNotch, se 3 facce si riconduce a LapJoint
+
+Versione 2.7h1 (05/08/2025)
+- Fixed : in Mortise migliorata la lavorazione in caso di feature trimmata
+- Modif : in LapJoint, riduzione massimo materiale lama per lavorazioni antischeggia di lama con direzione verticale
+- Modif : in LapJoint migliorie alla lavorazione tipo BlockHaus
+- Modif : nei profili si usa il tipo lavorazione Prof_end per la finitura
+
+Versione 2.7g5 (14/07/2025)
+- Fixed : in tagli di testa e coda corretti attacchi
+
+Versione 2.7g4 (11/07/2025)
+- Fixed : in LapJoint 2 facce correzione nella scelta lama da sotto
+
+Versione 2.7g3 (11/07/2025)
+- Fixed : in RidgeLap corretta scelta del lato da lavorare
+
 Versione 2.7g2 (10/07/2025)
 - Fixed : in LapJoint correzione per caso in cui la sega a catena lavorava la tasca in modo errato
 
@@ -19,7 +50,7 @@ Versione 2.7f3 (19/06/2025)
 Versione 2.7f2 (18/06/2025)
 - Modif : in LongDoubleCut aggiunto messaggio feature non completa se utensile non arriva sul fondo
 - Modif : in StepJointNotch, se si forza truciolatore, si prende utensile più grande
-- Fixed : in LapJoint, piccola correzione calcolo sovrapposizione trimesh per smuotatura
+- Fixed : in LapJoint, piccola correzione calcolo sovrapposizione trimesh per svuotatura
 - Fixed : in LapJoint, per sovrapposizione in spezzatura, corretto caso tipo Tunnel
 
 Versione 2.7f1 (03/06/2025)

Version.lua

@@ -2,5 +2,5 @@
 -- Gestione della versione di Beam
 
 NAME = 'Beam'
-VERSION = '2.7g2'
+VERSION = '2.7i1'
 MIN_EXE = '2.7f2'