Improvement/SideMortisingAndMarking:

- in presenza di offset Z tra grezzo e tavola, rese possibili le lavorazioni di mortising e marking sul fianco

BatchProcessNew.lua

@@ -358,7 +358,7 @@ if bToProcess then
       local vWallErr = {}
       for i = 2, #vWall do
          local dDimH = vWall[i].Box:getDimZ()
-         if abs( dDimH - dRawH) > 10 * GEO.EPS_SMALL then
+         if abs( dDimH - dRawH) > 100 * GEO.EPS_SMALL then
             table.insert( vWallErr, i)
          end
       end

LuaLibs/WMachiningLib.lua

@@ -56,7 +56,7 @@ function WMachiningLib.FindMilling( sType, dDepth, sTuuid, nTool_ID, dMaxDiam, d
       local Milling = Millings[i]
       if Milling.On and Milling.Type == sType and SetCurrMachiningAndTool( Milling.Name) then
          local nMchType = EgtMdbGetCurrMachiningParam( MCH_MP.TYPE)
-         local sMyTuuid = EgtGetMachiningParam( MCH_MP.TUUID)
+         local sMyTuuid = EgtMdbGetCurrMachiningParam( MCH_MP.TUUID)
          local dTMaxMat = EgtTdbGetCurrToolParam( MCH_TP.MAXMAT)
          local dTMaxDepth = EgtIf( WD.MILL_MAX_DEPTH_AS_MAT, dTMaxMat, EgtTdbGetCurrToolMaxDepth())
          local dTDiam = EgtTdbGetCurrToolParam( MCH_TP.DIAM)

LuaLibs/WProcessCut.lua

@@ -1,4 +1,4 @@
--- WProcessCut.lua by Egaltech s.r.l. 2020/11/13
+-- WProcessCut.lua by Egaltech s.r.l. 2020/11/25
 -- Gestione calcolo taglio di testa o longitudinale per Pareti
 
 -- Tabella per definizione modulo
@@ -8,6 +8,7 @@ local WPC = {}
 require( 'EgtBase')
 local WL = require( 'WallLib')
 local FreeContour = require( 'WProcessFreeContour')
+local LapJoint = require( 'WProcessLapJoint')
 
 EgtOutLog( ' WProcessCut started', 1)
 
@@ -29,7 +30,7 @@ function WPC.Classify( Proc, b3Raw)
    -- verifico abbia una sola faccia
    if Proc.Fct ~= 1 then return false end
    -- controllo la normale
-   local ptC, vtN = EgtSurfTmFacetCenter( Proc.Id, 0, GDB_ID.ROOT)
+   local vtN = EgtSurfTmFacetNormVersor( Proc.Id, 0, GDB_ID.ROOT)
    if vtN:getZ() < - 0.5 then return false end
    return true
 end
@@ -41,7 +42,7 @@ function WPC.FlipClassify( Proc)
    -- verifico abbia una sola faccia
    if Proc.Fct ~= 1 then return 0, 0 end 
    -- controllo la normale
-   local ptC, vtN = EgtSurfTmFacetCenter( Proc.Id, 0, GDB_ID.ROOT)
+   local vtN = EgtSurfTmFacetNormVersor( Proc.Id, 0, GDB_ID.ROOT)
    local vtNZ = vtN:getZ()
    if vtNZ > - GEO.EPS_SMALL then
       nFlip0 = 100
@@ -67,7 +68,12 @@ end
 ---------------------------------------------------------------------
 -- Applicazione della lavorazione
 function WPC.Make( Proc, nRawId, b3Raw)
-   return FreeContour.Make( Proc, nRawId, b3Raw)
+   local vtN = EgtSurfTmFacetNormVersor( Proc.Id, 0, GDB_ID.ROOT)
+   if vtN :getZ() > 0.866 then
+      return LapJoint.Make( Proc, nRawId, b3Raw)
+   else
+      return FreeContour.Make( Proc, nRawId, b3Raw)
+   end
 end
 
 ---------------------------------------------------------------------

LuaLibs/WProcessFreeContour.lua

@@ -12,6 +12,8 @@
 -- 2022/04/26 Migliorata gestione caso pocketing.
 -- 2022/08/05 Aggiunta segnalazione aree vietate non gestite.
 -- 2022/08/29 Corretta gestione tipo Pocket senza fondo (sono lavorabili da entrambe le parti con fresatura).
+-- 2022/12/13 Aggiunta la funzione Is3EdgesApprox per riconoscere come 3 lati anche facce con lati aggiuntivi molto corti (<15 mm)
+-- 2022/12/14 Aggiunto l'accorciamento della lama in caso di facce vicine orientate verso il basso
 
 -- Tabella per definizione modulo
 local WPF = {}
@@ -1233,6 +1235,33 @@ local function GetMaxDepth( vtNz, dMillDiam, dDiamTh, dMaxDepth, dFreeLen)
    end
 end
 
+---------------------------------------------------------------------
+-- Funzione per determinare se la faccia ha lati molto corti (trascurabili) ed è quindi approssimabile ad una 3 facce
+local function Is3EdgesApprox( Proc, nFacet, nAddGrpId)
+   local bResult = false
+   local nContourId = EgtExtractSurfTmFacetLoops( Proc.Id, nFacet, nAddGrpId)
+   EgtMergeCurvesInCurveCompo( nContourId)
+   -- recupero il numero effettivo di lati
+   local _, nEntityCount = EgtCurveDomain( nContourId)
+   local nEdges = nEntityCount
+   if nContourId then
+      if nEntityCount and nEntityCount  == 3 then
+         bResult = true
+      -- rimuovo i lati molto corti dal conteggio totale
+      elseif nEntityCount then
+         for i = 1, nEntityCount do
+            local dLength = EgtCurveCompoLength( nContourId, i - 1)
+            if dLength < 15 then nEdges = nEdges - 1 end
+         end
+      end
+      if nEdges == 3 then bResult = true end
+   end
+   if bResult == true then
+      EgtOutLog( 'FreeContour : Face with ' .. tointeger( nEntityCount) .. ' edges skipped (approx 3 edges)')
+   end
+   return bResult
+end
+
 ---------------------------------------------------------------------
 local function AddMillings( sMilling, vFace, Proc, nRawId, b3Raw, nConeCut, nAddGrpId)
    -- flag per fresature non passanti
@@ -1253,13 +1282,19 @@ local function AddMillings( sMilling, vFace, Proc, nRawId, b3Raw, nConeCut, nAdd
          dMaxDepth = EgtIf( WD.MILL_MAX_DEPTH_AS_MAT, EgtTdbGetCurrToolParam( MCH_TP.MAXMAT), dFreeLen) or dMaxDepth
       end
    end
+   -- verifico se la facce hanno alcuni lati molto corti e possono quindi essere approssimate a 3 lati
+   for currentFace = 1, #vFace do
+      if Is3EdgesApprox( Proc, vFace[currentFace].Fac, nAddGrpId) then
+         vFace[currentFace].Is3EdgesApprox = true
+      end
+   end
    -- verifico se ciclo chiuso
    local bClosed = ( abs( vFace[1].PrevAng) > 0.1)
    -- ciclo di inserimento delle fresate sulle facce del contorno in esame
    local i = 1
    -- se faccia finale con fine non lavorato, forzo partenza da prima faccia non tutta saltata (tipo 4)
-   if bClosed and ( ( vFace[#vFace].Type == 4 and vFace[#vFace].Edges > 3) or ( vFace[#vFace].Type & 2) ~= 0) then
-      while i <= #vFace and vFace[i].Type == 4  and vFace[i].Edges > 3 and abs( vFace[i].SideAng) < 0.1 do
+   if bClosed and ( ( vFace[#vFace].Type == 4 and ( vFace[#vFace].Edges > 3 and not vFace[#vFace].Is3EdgesApprox)) or ( vFace[#vFace].Type & 2) ~= 0) then
+      while i <= #vFace and vFace[i].Type == 4  and ( vFace[i].Edges > 3 and not vFace[i].Is3EdgesApprox) and abs( vFace[i].SideAng) < 0.1 do
          i = i + 1
       end
    end
@@ -1322,6 +1357,10 @@ local function AddMillings( sMilling, vFace, Proc, nRawId, b3Raw, nConeCut, nAdd
             end
          end
          local dEal = vFace[i].Whisk - vFace[i].Len
+         -- se faccia precedente inclinata verso il basso prolungo il finale per adeguarmi all percorso della lama
+         if j and vFace[j].Norm:getZ() < -0.017 then
+            dEal = dEal - vFace[j].Width * vFace[j].Norm:getZ()
+         end
          -- se angolo interno prima e faccia precedente inclinata verso l'alto oltre 16.1deg
          if vFace[i].PrevAng < -30 and j and vFace[j].Norm:getZ() < 0.96078 and vFace[j].Norm:getZ() > 0 then
             dEal = dEal + vFace[j].Width * vFace[j].Norm:getZ()
@@ -1359,7 +1398,7 @@ local function AddMillings( sMilling, vFace, Proc, nRawId, b3Raw, nConeCut, nAdd
          end
       end
       -- se tutta la faccia o la sua fine senza taglio, inserisco una fresatura
-      if ( vFace[i].Type & 2) ~= 0  or ( vFace[i].Type == 4 and vFace[i].Edges > 3) then
+      if ( vFace[i].Type & 2) ~= 0  or ( vFace[i].Type == 4 and ( vFace[i].Edges > 3 and not vFace[i].Is3EdgesApprox)) then
          -- inserisco la lavorazione
          local sName = 'Free_' .. ( EgtGetName( Proc.PartId) or tostring( Proc.PartId))
          local nMchId = EgtAddMachining( sName, sMilling)
@@ -1400,7 +1439,7 @@ local function AddMillings( sMilling, vFace, Proc, nRawId, b3Raw, nConeCut, nAdd
          local LastJ
          i = i + 1
          local j = EgtIf( i <= #vFace, i, EgtIf( bAllType4 or not bClosed, nil, 1))
-         while j and ( ( vFace[j].Type & 1) ~= 0  or ( vFace[j].Type == 4 and  vFace[j].Edges > 3)) and abs( vFace[j].SideAng) < 0.1 and abs( vFace[OrigI].SideAng) < 0.1 do
+         while j and ( ( vFace[j].Type & 1) ~= 0  or ( vFace[j].Type == 4 and ( vFace[j].Edges > 3 and not vFace[j].Is3EdgesApprox))) and abs( vFace[j].SideAng) < 0.1 and abs( vFace[OrigI].SideAng) < 0.1 do
             table.insert( vGeom, { Proc.Id, vFace[j].Fac})
             LastJ = j
             dEal = EgtIf( ( vFace[j].Type & 1) ~= 0, vFace[j].Whisk - vFace[j].Len, 0)
@@ -1411,13 +1450,13 @@ local function AddMillings( sMilling, vFace, Proc, nRawId, b3Raw, nConeCut, nAdd
             j = EgtIf( j + 1 <= #vFace, j + 1, EgtIf( bAllType4 or not bClosed, nil, 1))
          end
          -- se faccia singola è da fare tutta senza oltrepassare estremi
-         if #vFace == 1 and vFace[OrigI].Type == 4 and vFace[OrigI].Edges > 3 then
+         if #vFace == 1 and vFace[OrigI].Type == 4 and ( vFace[OrigI].Edges > 3 and not vFace[OrigI].Is3EdgesApprox) then
             dSal = -dMillDiam / 2
             dEal = -dMillDiam / 2
          -- altrimenti va verificato
          else
             -- se lavorazione completa su faccia iniziale
-            if vFace[OrigI].Type == 4 and vFace[OrigI].Edges > 3 then
+            if vFace[OrigI].Type == 4 and ( vFace[OrigI].Edges > 3 and not vFace[OrigI].Is3EdgesApprox) then
                -- se angolo interno prima
                if vFace[OrigI].PrevAng < -30 then
                   local dSinA = -sin( vFace[OrigI].PlPrevAng + 90)
@@ -1438,7 +1477,7 @@ local function AddMillings( sMilling, vFace, Proc, nRawId, b3Raw, nConeCut, nAdd
             -- se lavorazione completa o finale su faccia finale
             local LastFace = ( LastJ or OrigI)
             local OrigK = EgtIf( LastFace < #vFace, LastFace + 1, EgtIf( bClosed, 1, nil))
-            if ( vFace[LastFace].Type == 4 and vFace[LastFace].Edges > 3) or ( LastFace == OrigI and ( vFace[LastFace].Type & 2) ~= 0) then
+            if ( vFace[LastFace].Type == 4 and ( vFace[LastFace].Edges > 3 and not vFace[LastFace].Is3EdgesApprox)) or ( LastFace == OrigI and ( vFace[LastFace].Type & 2) ~= 0) then
                -- se angolo interno dopo
                if OrigK and vFace[OrigK].PrevAng < -30 then
                   local dSinA = -sin( vFace[OrigK].PlPrevAng + 90)
@@ -1700,7 +1739,7 @@ local function AddSawings( sSawing, vFace, Proc, nRawId, b3Raw)
          end
       end
       -- se fine faccia non tagliato completamente o faccia non tagliata completamente e abbastanza lunga, inserisco un ripasso con sega a catena
-      if ( vFace[i].Type & 2) ~= 0 or ( vFace[i].Type == 4 and vFace[i].Edges > 3 and vFace[i].Len > dSawDiam + 1) then
+      if ( vFace[i].Type & 2) ~= 0 or ( vFace[i].Type == 4 and ( vFace[i].Edges > 3 and not vFace[i].Is3EdgesApprox) and vFace[i].Len > dSawDiam + 1) then
          -- inserisco la lavorazione
          local sName = 'Free_' .. ( EgtGetName( Proc.PartId) or tostring( Proc.PartId))
          local nMchId = EgtAddMachining( sName, sSawing)
@@ -1761,6 +1800,8 @@ end
 
 ---------------------------------------------------------------------
 local function AddCuts( sCutting, vFace, Proc, nRawId, b3Raw, dSawThick)
+   -- verifico se ciclo chiuso
+   local bClosed = ( abs( vFace[1].PrevAng) > 0.1)
    -- ciclo di inserimento dei tagli sulle facce del contorno in esame
    for i = 1, #vFace do
       -- verifico se faccia da saltare, perchè macchina travi e faccia su bordo longitudinale esterno già finito
@@ -1769,6 +1810,8 @@ local function AddCuts( sCutting, vFace, Proc, nRawId, b3Raw, dSawThick)
       if not bToSkip and vFace[i].Type ~= 4 then
          -- indice del successivo
          local j = EgtIf( i < #vFace, i + 1, 1)
+         -- indice del precedente
+         local h = EgtIf( i > 1, i - 1, EgtIf( bClosed, #vFace, nil))
          -- inserisco la lavorazione
          local sName = 'Cut_' .. ( EgtGetName( Proc.PartId) or tostring( Proc.PartId)) .. '_' .. tostring( i) 
          local nMchId = EgtAddMachining( sName, sCutting)
@@ -1812,7 +1855,14 @@ local function AddCuts( sCutting, vFace, Proc, nRawId, b3Raw, dSawThick)
          EgtSetMachiningParam( MCH_MP.LEADINTYPE, nLeadIn)
          local dSal = 0
          if ( not bInvert and vFace[i].PrevAng < -0.1) or ( bInvert and vFace[j].PrevAng < -0.1) then
-            dSal = -WHISK_SAFE
+            -- se faccia precedente inclinata verso il basso
+            if not bInvert and h and vFace[h].Norm:getZ() < -0.017 then
+               dSal = vFace[h].Width * vFace[h].Norm:getZ() - WHISK_SAFE
+            elseif bInvert and j and vFace[j].Norm:getZ() < -0.017 then
+               dSal = vFace[j].Width * vFace[j].Norm:getZ() - WHISK_SAFE
+            else
+               dSal = -WHISK_SAFE
+            end
          end
          EgtSetMachiningParam( MCH_MP.STARTADDLEN, dSal)
          -- assegno i dati di uscita (sicurezza solo se angolo interno)
@@ -1823,7 +1873,14 @@ local function AddCuts( sCutting, vFace, Proc, nRawId, b3Raw, dSawThick)
          EgtSetMachiningParam( MCH_MP.LEADOUTTYPE, nLeadOut)
          local dEal = 0
          if ( not bInvert and vFace[j].PrevAng < -0.1) or ( bInvert and vFace[i].PrevAng < -0.1) then
-            dEal = -WHISK_SAFE
+            -- se faccia precedente inclinata verso il basso
+            if not bInvert and j and vFace[j].Norm:getZ() < -0.017 then
+               dEal = vFace[j].Width * vFace[j].Norm:getZ() - WHISK_SAFE
+            elseif bInvert and h and vFace[h].Norm:getZ() < -0.017 then
+               dEal = vFace[h].Width * vFace[h].Norm:getZ() - WHISK_SAFE
+            else
+               dEal = -WHISK_SAFE
+            end
          end
          EgtSetMachiningParam( MCH_MP.ENDADDLEN, dEal)
          -- posizione braccio porta testa

LuaLibs/WProcessLapJoint.lua

@@ -1,4 +1,4 @@
--- WProcessLapJoint.lua by Egaltech s.r.l. 2022/02/04
+-- WProcessLapJoint.lua by Egaltech s.r.l. 2022/12/22
 -- Gestione calcolo mezzo-legno per Pareti
 -- 2021/08/27 DS Se tre o più facce con flag PCKT=1 forzo svuotatura con fresa (per Variant).
 -- 2021/08/29 DS Se svuotatura di fianco setto flag per farla dopo i tagli.
@@ -10,6 +10,10 @@
 -- 2022/02/03 DS Gorge larga come gambo più sicurezza.
 -- 2022/02/04 DS In svuotatura aggiunta gestione WD.MAXDIAM_POCK_CORNER in presenza di almeno un angolo interno.
 -- 2022/09/30 In MakeSideGrooveByMill sistemato il calcolo del massimo sottosquadro dell'utensile per determinare la fattibilità della tasca.
+-- 2022/10/05 In MakeSideGrooveByMill implementata l'inversione dello step se la tasca guarda verso il basso
+-- 2022/11/15 DS Con lama massima inclinazione 60deg.
+-- 2022/12/01 Per 2 facce con angolo > 90° implementata lavorazione principale verticale. Se da sopra, aggiunta ripresa del lato inclinato.
+-- 2022/12/14 Nel caso di 2 facce piccola correzione al modo di ordinare le facce.
 
 -- Tabella per definizione modulo
 local WPL = {}
@@ -113,7 +117,7 @@ function WPL.Classify( Proc, b3Raw)
       vtN[1] = EgtSurfTmFacetNormVersor( Proc.Id, 0, GDB_ID.ROOT)
       vtN[2] = EgtSurfTmFacetNormVersor( Proc.Id, 1, GDB_ID.ROOT)
       -- verifico se è lavorabile da sopra o di fianco
-      return ( vtN[1]:getZ() >= - 0.01 or vtN[2]:getZ() >= - 0.01) 
+      return ( vtN[1]:getZ() >= - 0.028 or vtN[2]:getZ() >= - 0.028) 
    -- se più di 2 facce
    else
       local nFacInd, dElev, nFacInd2, dElev2 = WL.GetFaceWithMostAdj( Proc.Id, Proc.PartId)
@@ -1374,10 +1378,18 @@ local function MakeByMill( Proc, nFacet, nOthFac, nRawId, b3Raw, dSideDist)
 end
 
 ---------------------------------------------------------------------
-local function MakeSideGrooveByMill( Proc, nFacet, nRawId, b3Raw, sCustomMach, dMaxDepthOnSide, bEnablePreMill, bMachFromDn, dAng, bAsEnablePreMill, nSinglePass)
-   -- dati della faccia
+local function MakeSideGrooveByMill( Proc, nFacet, nRawId, b3Raw, sCustomMach, dMaxDepthOnSide, bEnablePreMill, bMachFromDn, dAng, bAsEnablePreMill, nSinglePass, bExcludeFinishing)
+   local sWarn
+   -- dati della faccia principale (la più verticale)
    local ptC, vtN = EgtSurfTmFacetCenter( Proc.Id, nFacet, GDB_ID.ROOT)
    local dElev = WL.GetFaceElevation( Proc.Id, nFacet, nRawId)
+   -- dati della faccia più orizzontale
+   local nOtherFacet = abs( nFacet - 1)
+   local vtN2 = EgtSurfTmFacetNormVersor( Proc.Id, nOtherFacet, GDB_ID.ROOT)
+   local dElevOtherFacet = WL.GetFaceElevation( Proc.Id, nOtherFacet, nRawId)
+   -- se lap joint 2 facce dal basso e angolo negativo
+   local bExcludeSideMill = Proc.Fct == 2 and vtN:getZ() < -0.01 and vtN2:getZ() < -0.01
+   -- dimensioni della faccia principale
    local _, dH, dV = EgtSurfTmFacetMinAreaRectangle( Proc.Id, nFacet, GDB_ID.ROOT)
    local dThick = min( dH, dV)
    local frFace = Frame3d( ptC, vtN)
@@ -1792,121 +1804,138 @@ local function MakeSideGrooveByMill( Proc, nFacet, nRawId, b3Raw, sCustomMach, d
          end
       end
    end
-   -- inserisco la lavorazione di ribasso o gola
-   local sName = EgtIf( bEnablePreMill ~= nil, 'SideMill_', 'Mill_') .. ( EgtGetName( Proc.Id) or tostring( Proc.Id))
-   local nMchFId = EgtAddMachining( sName, sMilling)
-   if not nMchFId then
-      local sErr = 'Error adding machining ' .. sName .. '-' .. sMilling
-      EgtOutLog( sErr)
-      return false, sErr
+   
+   -- se la groove è rivolta verso il basso (-85°) lavoro a salire con step negativo
+   local bUpwardMilling = false
+   if Proc.Fct == 2 and vtN2:getZ() < -0.996 then
+      bUpwardMilling = true
    end
-   EgtSetInfo( nMchFId, 'Part', Proc.PartId)
-   -- se ho abilitato la lavorazione di lama per garantire passaggio utensile, setto la nota per spostare la fresatura dopo i tagli di lama
-   if bEnablePreMill or bAsEnablePreMill then
-      EgtSetInfo( nMchFId, 'MOVE_AFTER', 1)
-   end
-   -- aggiungo geometria
-   EgtSetMachiningGeometry( {{ Proc.Id, nFacet}})
-   -- imposto posizione braccio porta testa
-   --local nSCC = MCH_SCC.ADIR_ZP
-   --if abs( vtN:getZ()) < GEO.EPS_SMALL then
-   --   nSCC = EgtIf( Proc.Box:getDimX() >= Proc.Box:getDimY(), MCH_SCC.ADIR_YP, MCH_SCC.ADIR_XP)
-   --end
-   local nSCC = MCH_SCC.ADIR_NEAR
-   EgtSetMachiningParam( MCH_MP.SCC, nSCC)
-   -- imposto modo di lavorare la faccia
-   local nFaceUse = WL.GetNearestParalOpposite( Z_AX(), vtN)
-   EgtSetMachiningParam( MCH_MP.FACEUSE, nFaceUse)
-   -- imposto elevazione e step
-   local dStep = EgtGetMachiningParam( MCH_MP.STEP)
-   if dStep < GEO.EPS_SMALL then dStep = 0.75 * dMaxMat end
-   local nStep = ceil( ( dThick - dMaxMat) / dStep)
-   dStep = max( ( dThick - dMaxMat) / max( nStep, 1), 0)
-   local dMaxElev = max( ( nStep + 1) * dStep - GEO.EPS_SMALL, 0)
-   if nSinglePass and nSinglePass > 0 then
-      dStep = 0
-      if nSinglePass == 1 then
-         EgtSetMachiningParam( MCH_MP.DEPTH, dMaxMat)
+   
+   local dStepOri
+   if not bExcludeSideMill then
+      -- inserisco la lavorazione di ribasso o gola
+      local sName = EgtIf( bEnablePreMill ~= nil, 'SideMill_', 'Mill_') .. ( EgtGetName( Proc.Id) or tostring( Proc.Id))
+      local nMchFId = EgtAddMachining( sName, sMilling)
+      if not nMchFId then
+         local sErr = 'Error adding machining ' .. sName .. '-' .. sMilling
+         EgtOutLog( sErr)
+         return false, sErr
       end
-   end
-   EgtSetMachiningParam( MCH_MP.STEP, dStep)
-   EgtSetMachiningParam( MCH_MP.USERNOTES, 'MaxElev=' .. EgtNumToString( dMaxElev, 3) .. ';')
-   -- setto il lato di lavoro standard
-   EgtSetMachiningParam( MCH_MP.INVERT, true)
-   EgtSetMachiningParam( MCH_MP.WORKSIDE, MCH_MILL_WS.LEFT)
-   -- modifico ingressi e uscita
-   -- se ho inserito il pretaglio modifico
-   if bEnablePreMill or bAsEnablePreMill then
-      if nModifyLeadInOut > 0 then
-         -- Confronto il raggio fresa con l'elevazione dalla normale per vedere se devo modificare l'uscita
-         if dElev > ( 0.5 * dMillDiam) then
-               if nModifyLeadInOut == 1 then
-               -- setto il tipo di passo a una via
-               EgtSetMachiningParam( MCH_MP.STEPTYPE, MCH_MILL_ST.ONEWAY)
-               -- modifico il tipo di uscita
-               EgtSetMachiningParam( MCH_MP.LEADOUTTYPE, MCH_MILL_LO.PERP_TG)
+      EgtSetInfo( nMchFId, 'Part', Proc.PartId)
+      -- se ho abilitato la lavorazione di lama per garantire passaggio utensile, setto la nota per spostare la fresatura dopo i tagli di lama
+      if bEnablePreMill or bAsEnablePreMill then
+         EgtSetInfo( nMchFId, 'MOVE_AFTER', 1)
+      end
+      -- aggiungo geometria
+      EgtSetMachiningGeometry( {{ Proc.Id, nFacet}})
+      -- imposto posizione braccio porta testa
+      --local nSCC = MCH_SCC.ADIR_ZP
+      --if abs( vtN:getZ()) < GEO.EPS_SMALL then
+      --   nSCC = EgtIf( Proc.Box:getDimX() >= Proc.Box:getDimY(), MCH_SCC.ADIR_YP, MCH_SCC.ADIR_XP)
+      --end
+      local nSCC = MCH_SCC.ADIR_NEAR
+      EgtSetMachiningParam( MCH_MP.SCC, nSCC)
+      -- imposto modo di lavorare la faccia
+      local nFaceUse = WL.GetNearestParalOpposite( Z_AX(), vtN)
+      EgtSetMachiningParam( MCH_MP.FACEUSE, nFaceUse)
+      -- imposto elevazione e step
+      local dStep = EgtGetMachiningParam( MCH_MP.STEP)
+      dStepOri = dStep
+      if dStep < GEO.EPS_SMALL then dStep = 0.75 * dMaxMat end
+      local nStep = ceil( ( dThick - dMaxMat) / dStep)
+      dStep = max( ( dThick - dMaxMat) / max( nStep, 1), 0)
+      local dMaxElev = max( ( nStep + 1) * dStep - GEO.EPS_SMALL, 0)
+      if nSinglePass and nSinglePass > 0 then
+         dStep = 0
+         if nSinglePass == 1 then
+            EgtSetMachiningParam( MCH_MP.DEPTH, dMaxMat)
+         end
+      end
+      if bUpwardMilling then
+         dStep = -dStep
+      end
+      EgtSetMachiningParam( MCH_MP.STEP, dStep)
+      EgtSetMachiningParam( MCH_MP.USERNOTES, 'MaxElev=' .. EgtNumToString( dMaxElev, 3) .. ';')
+      -- setto il lato di lavoro standard
+      EgtSetMachiningParam( MCH_MP.INVERT, true)
+      EgtSetMachiningParam( MCH_MP.WORKSIDE, MCH_MILL_WS.LEFT)
+      -- modifico ingressi e uscita
+      -- se ho inserito il pretaglio modifico
+      if bEnablePreMill or bAsEnablePreMill then
+         if nModifyLeadInOut > 0 then
+            -- Confronto il raggio fresa con l'elevazione dalla normale per vedere se devo modificare l'uscita
+            if dElev > ( 0.5 * dMillDiam) then
+                  if nModifyLeadInOut == 1 then
+                  -- setto il tipo di passo a una via
+                  EgtSetMachiningParam( MCH_MP.STEPTYPE, MCH_MILL_ST.ONEWAY)
+                  -- modifico il tipo di uscita
+                  EgtSetMachiningParam( MCH_MP.LEADOUTTYPE, MCH_MILL_LO.PERP_TG)
+                  EgtSetMachiningParam( MCH_MP.LIPERP, 0)
+                  -- modifico dati supplementari uscita
+                  EgtSetMachiningParam( MCH_MP.LOPERP, 0.5)
+                  EgtSetMachiningParam( MCH_MP.LOTANG, -( dLongGorge + dExtraLongIni + dExtraLongEnd))
+               else
+                  EgtSetMachiningParam( MCH_MP.LIPERP, dElev)
+                  EgtSetMachiningParam( MCH_MP.LOPERP, dElev)
+               end
+            end
+            -- setto allungamenti iniziali e finali
+            EgtSetMachiningParam( MCH_MP.STARTADDLEN, dExtraLongIni)
+            EgtSetMachiningParam( MCH_MP.ENDADDLEN, dExtraLongEnd)
+            if bInvertMach then
+               -- setto il lato di lavoro invertito
+               EgtSetMachiningParam( MCH_MP.INVERT, false)
+               EgtSetMachiningParam( MCH_MP.WORKSIDE, MCH_MILL_WS.RIGHT)
+            end
+         else
+            -- setto allungamenti iniziali e finali
+            EgtSetMachiningParam( MCH_MP.STARTADDLEN, dExtraLongIni)
+            EgtSetMachiningParam( MCH_MP.ENDADDLEN, dExtraLongEnd)
+            -- Confronto il raggio fresa con l'elevazione dalla normale per vedere se devo modificare l'uscita
+            if dElev > ( 0.5 * dMillDiam) then
+               -- setto allungamenti perpendicolari
                EgtSetMachiningParam( MCH_MP.LIPERP, 0)
-               -- modifico dati supplementari uscita
-               EgtSetMachiningParam( MCH_MP.LOPERP, 0.5)
-               EgtSetMachiningParam( MCH_MP.LOTANG, -( dLongGorge + dExtraLongIni + dExtraLongEnd))
-            else
-               EgtSetMachiningParam( MCH_MP.LIPERP, dElev)
-               EgtSetMachiningParam( MCH_MP.LOPERP, dElev)
+               EgtSetMachiningParam( MCH_MP.LOPERP, 0)
+            end
+         end
+         -- se richiesto, setto la nota per spostare la lavorazione alla fine
+         if not WD.SIDEMILL_BEFORE then
+            EgtSetInfo( nMchFId, 'MOVE_AFTER', 1)
+         end
+      else
+         if nModifyLeadInOut > 0 then
+            -- Confronto il raggio fresa con l'elevazione dalla normale per vedere se devo modificare l'uscita
+            if dElev > ( 0.5 * dMillDiam) then
+               -- setto il tipo di passo a una via
+               EgtSetMachiningParam( MCH_MP.STEPTYPE, 1)
+            end
+            if bInvertMach then
+               -- setto il lato di lavoro invertito
+               EgtSetMachiningParam( MCH_MP.INVERT, false)
+               EgtSetMachiningParam( MCH_MP.WORKSIDE, MCH_MILL_WS.RIGHT)
             end
          end
          -- setto allungamenti iniziali e finali
          EgtSetMachiningParam( MCH_MP.STARTADDLEN, dExtraLongIni)
          EgtSetMachiningParam( MCH_MP.ENDADDLEN, dExtraLongEnd)
-         if bInvertMach then
-            -- setto il lato di lavoro invertito
-            EgtSetMachiningParam( MCH_MP.INVERT, false)
-            EgtSetMachiningParam( MCH_MP.WORKSIDE, MCH_MILL_WS.RIGHT)
-         end
-      else
-         -- setto allungamenti iniziali e finali
-         EgtSetMachiningParam( MCH_MP.STARTADDLEN, dExtraLongIni)
-         EgtSetMachiningParam( MCH_MP.ENDADDLEN, dExtraLongEnd)
-         -- Confronto il raggio fresa con l'elevazione dalla normale per vedere se devo modificare l'uscita
-         if dElev > ( 0.5 * dMillDiam) then
-            -- setto allungamenti perpendicolari
-            EgtSetMachiningParam( MCH_MP.LIPERP, 0)
-            EgtSetMachiningParam( MCH_MP.LOPERP, 0)
+         -- se richiesto, setto la nota per spostare la lavorazione alla fine
+         if not WD.SIDEMILL_BEFORE then
+            EgtSetInfo( nMchFId, 'MOVE_AFTER', 1)
          end
       end
-      -- se richiesto, setto la nota per spostare la lavorazione alla fine
-      if not WD.SIDEMILL_BEFORE then
-         EgtSetInfo( nMchFId, 'MOVE_AFTER', 1)
+      -- eseguo
+      if not EgtApplyMachining( true, false) then
+         local _, sErr = EgtGetLastMachMgrError()
+         EgtSetOperationMode( nMchFId, false)
+         return false, sErr
       end
    else
-      if nModifyLeadInOut > 0 then
-         -- Confronto il raggio fresa con l'elevazione dalla normale per vedere se devo modificare l'uscita
-         if dElev > ( 0.5 * dMillDiam) then
-            -- setto il tipo di passo a una via
-            EgtSetMachiningParam( MCH_MP.STEPTYPE, 1)
-         end
-         if bInvertMach then
-            -- setto il lato di lavoro invertito
-            EgtSetMachiningParam( MCH_MP.INVERT, false)
-            EgtSetMachiningParam( MCH_MP.WORKSIDE, MCH_MILL_WS.RIGHT)
-         end
-      end
-      -- setto allungamenti iniziali e finali
-      EgtSetMachiningParam( MCH_MP.STARTADDLEN, dExtraLongIni)
-      EgtSetMachiningParam( MCH_MP.ENDADDLEN, dExtraLongEnd)
-      -- se richiesto, setto la nota per spostare la lavorazione alla fine
-      if not WD.SIDEMILL_BEFORE then
-         EgtSetInfo( nMchFId, 'MOVE_AFTER', 1)
-      end
-   end
-   -- eseguo
-   if not EgtApplyMachining( true, false) then
-      local _, sErr = EgtGetLastMachMgrError()
-      EgtSetOperationMode( nMchFId, false)
-      return false, sErr
+      sWarn = 'Warning in LapJoint : upside down groove with obtuse angle not completed'
+      EgtOutLog( sWarn)
    end
+   
    -- verifico se devo lavorare anche la seconda faccia basandomi sul valore dell'angolo interno
-   if dAng and dAng > -90 + 10 * GEO.EPS_SMALL then
-      local nOtherFacet = abs( nFacet - 1)
+   if dAng and dAng > -90 + 10 * GEO.EPS_SMALL and not bExcludeFinishing then
       -- inserisco la lavorazione di contornatura
       local sName = 'Mill_Oth_Fac_' .. ( EgtGetName( Proc.Id) or tostring( Proc.Id))
       local nMchFId = EgtAddMachining( sName, sMilling)
@@ -1919,7 +1948,6 @@ local function MakeSideGrooveByMill( Proc, nFacet, nRawId, b3Raw, sCustomMach, d
       -- aggiungo geometria
       EgtSetMachiningGeometry( {{ Proc.Id, nOtherFacet}})
       -- imposto posizione braccio porta testa
-      local vtN2 = EgtSurfTmFacetNormVersor( Proc.Id, nOtherFacet, GDB_ID.ROOT)
       local nSCC = MCH_SCC.ADIR_ZP
       if AreSameOrOppositeVectorApprox( vtN2, Z_AX()) then
          nSCC = EgtIf( Proc.Box:getDimX() >= Proc.Box:getDimY(), MCH_SCC.ADIR_YP, MCH_SCC.ADIR_XP)
@@ -1927,12 +1955,25 @@ local function MakeSideGrooveByMill( Proc, nFacet, nRawId, b3Raw, sCustomMach, d
       EgtSetMachiningParam( MCH_MP.SCC, nSCC)
       -- imposto modo di lavorare la faccia
       EgtSetMachiningParam( MCH_MP.FACEUSE, nFace2ndFace)
-      EgtSetMachiningParam( MCH_MP.STEP, 0)
       local dMaxElev = dMaxMat
+      local dStepOtherFace = 0
+      local dDepthOtherFace = dMaxMat
+      if Proc.Fct == 2 and abs( vtN2:getZ()) > 0.99 and abs( vtN2:getZ()) < 1.01 then
+         dStepOtherFace = dStepOri or EgtGetMachiningParam( MCH_MP.STEP)
+         if dStepOtherFace < GEO.EPS_SMALL then dStepOtherFace = 0.75 * dMaxMat end
+         local nStepOtherFace = ceil( ( dElevOtherFacet - dMaxMat) / dStepOtherFace)
+         dStepOtherFace = max( ( dElevOtherFacet - dMaxMat) / max( nStepOtherFace, 1), 0)
+         dMaxElev = max( ( nStepOtherFace + 1) * dStepOtherFace - GEO.EPS_SMALL, 0)
+         dDepthOtherFace = dElevOtherFacet
+      end
+      if bUpwardMilling then
+         dStepOtherFace = -dStepOtherFace
+      end
+      EgtSetMachiningParam( MCH_MP.STEP, dStepOtherFace)
       EgtSetMachiningParam( MCH_MP.USERNOTES, 'MaxElev=' .. EgtNumToString( dMaxElev, 3) .. ';')
       if bMachFromDn then
          EgtSetMachiningParam( MCH_MP.INVERT, true)
-         EgtSetMachiningParam( MCH_MP.DEPTH, dMaxMat)
+         EgtSetMachiningParam( MCH_MP.DEPTH, dDepthOtherFace)
       else
          EgtSetMachiningParam( MCH_MP.INVERT, false)
       end
@@ -1978,7 +2019,7 @@ local function MakeSideGrooveByMill( Proc, nFacet, nRawId, b3Raw, sCustomMach, d
             end
          end
          -- se richiesto, setto la nota per spostare la lavorazione alla fine
-         if not WD.SIDEMILL_BEFORE then
+         if bEnablePreMill or bAsEnablePreMill or not WD.SIDEMILL_BEFORE then
             EgtSetInfo( nMchFId, 'MOVE_AFTER', 1)
          end
       else
@@ -2012,9 +2053,12 @@ local function MakeSideGrooveByMill( Proc, nFacet, nRawId, b3Raw, sCustomMach, d
          EgtSetOperationMode( nMchFId, false)
          return false, sErr
       end
+   elseif bExcludeSideMill then
+      local sErr = 'Feature not machinable by orientation'
+      EgtOutLog( sErr)
+      return false, sErr
    end
-
-   return true
+   return true, sWarn
 end
 
 ---------------------------------------------------------------------
@@ -2027,6 +2071,10 @@ local function MakeByPocketing( Proc, nFacet, nRawId, b3Raw, bCheckQPar)
    -- gruppo ausiliario
    local nAddGrpId = WL.GetAddGroup( Proc.PartId)
    local nNewProc, nNumFacet = RemoveBottomFaceAndReorder( Proc, nAddGrpId, nFacet)
+   -- se una sola faccia
+   if Proc.Fct == 1 then
+      dDiam = 2 * dDiam
+   end
    -- se forma ad L
    local bIsL = ( Proc.Fct == 2 or TestElleShape3( Proc.Id, Proc.Fct) or TestElleShape4( Proc.Id, Proc.Fct) == 2)
    if bIsL then
@@ -2067,8 +2115,9 @@ local function MakeByPocketing( Proc, nFacet, nRawId, b3Raw, bCheckQPar)
    local dMillDiam = 20
    local dMaxDepth = 0
    local dThDiam = 100
+   local sTuuid
    if EgtMdbSetCurrMachining( sPocketing) then
-      local sTuuid = EgtMdbGetCurrMachiningParam( MCH_MP.TUUID)
+      sTuuid = EgtMdbGetCurrMachiningParam( MCH_MP.TUUID)
       if EgtTdbSetCurrTool( EgtTdbGetToolFromUUID( sTuuid) or '') then
          dMillDiam = EgtTdbGetCurrToolParam( MCH_TP.DIAM) or dMillDiam
          dMaxDepth = EgtIf( WD.MILL_MAX_DEPTH_AS_MAT, EgtTdbGetCurrToolParam( MCH_TP.MAXMAT), EgtTdbGetCurrToolMaxDepth()) or dMaxDepth
@@ -2135,7 +2184,7 @@ local function MakeByPocketing( Proc, nFacet, nRawId, b3Raw, bCheckQPar)
    else
       EgtErase( nNewProc)
    end
-   return true, sWarn
+   return true, sWarn, sTuuid
 end
 
 ---------------------------------------------------------------------
@@ -2198,7 +2247,8 @@ local function MakeTwoFaces( Proc, nRawId, b3Raw)
    -- se equivalente ad un contorno
    if abs( ptP1:getZ() - ptP2:getZ()) > 0.9 * b3Raw:getDimZ() then
       -- verifico ordinamento (esterno a destra)
-      if ( vtN[1] ^ ( ptP1 - ptC[1])) * Z_AX() < 0 then
+      local ptPM = ( ptP1 + ptP2) / 2
+      if ( vtN[1] ^ ( ptPM - ptC[1])) * Z_AX() < 0 then
          EgtSurfTmSwapFacets( Proc.Id, 0, 1)
       end
       -- applico lavorazione di contorno libero
@@ -2313,11 +2363,12 @@ local function MakeTwoFaces( Proc, nRawId, b3Raw)
          EgtOutLog( sErr)
          return false, sErr
       end
-      local vtN = EgtSurfTmFacetNormVersor( Proc.Id, nFacInd, GDB_ID.ROOT)
+      local vtNTemp = EgtSurfTmFacetNormVersor( Proc.Id, nFacInd, GDB_ID.ROOT)
       local dSideDist
       local ptMid = ( ptP1 + ptP2) / 2
       -- faccia orizzontale
-      local nFacet = EgtIf( vtN:getZ() >= WD.NZ_MINA, nFacInd, nFacInd2)
+      local nFacet = EgtIf( vtNTemp:getZ() >= WD.NZ_MINA, nFacInd, nFacInd2)
+      local vtN = EgtSurfTmFacetNormVersor( Proc.Id, nFacet, GDB_ID.ROOT)
       -- faccia verticale
       local nFacetVert = EgtIf( nFacet == nFacInd, nFacInd2, nFacInd)
       local vtNV = EgtSurfTmFacetNormVersor( Proc.Id, nFacetVert, GDB_ID.ROOT)
@@ -2369,8 +2420,13 @@ local function MakeTwoFaces( Proc, nRawId, b3Raw)
          if bEnableMillOnSide and dMaxDepthOnSide > 0 then
             bLikeAsMakeFirstGroove = false
             return MakeSideGrooveByMill( Proc, nFacetVert, nRawId, b3Raw, EgtIf( bEnableMillOnSide and dMaxDepthOnSide, sMillOnSide, nil), dMaxDepthOnSide, bMakeFirstGroove, bMachFromDn, dAng, bLikeAsMakeFirstGroove)
-         elseif MakeByMill( Proc, nFacet, 1 - nFacet, nRawId, b3Raw, dSideDist) then
-            return true
+         else
+            local bOk, sErr = MakeByMill( Proc, nFacet, 1 - nFacet, nRawId, b3Raw, dSideDist)
+            -- se angolo ottuso riprendo il lato quasi verticale
+            if bOk and dAng and dAng > -90 + 10 * GEO.EPS_SMALL then
+               local bOk2, sErr2 = MakeSideGrooveByMill( Proc, nFacetVert, nRawId, b3Raw, EgtIf( bEnableMillOnSide and dMaxDepthOnSide, sMillOnSide, nil), dMaxDepthOnSide, bMakeFirstGroove, bMachFromDn, dAng, false, nil, true)
+            end
+            return bOk, sErr
          end
       elseif bEnableMillOnSide and dMaxDepthOnSide > 0 then
          bLikeAsMakeFirstGroove = true
@@ -2378,9 +2434,27 @@ local function MakeTwoFaces( Proc, nRawId, b3Raw)
          if bOk then return true end
       end
       -- se non inclinate o capacità di taglio non sufficiente o non molto grandi (80mm), provo con contornatura o svuotatura
-      if not sCutting or dSawMaxDepth < dDimY[1] + WD.CUT_SIC or dSawMaxDepth < dDimY[2] + WD.CUT_SIC or dDimY[1] < 80 or dDimY[2] < 80 then
+      if vtN:getZ() > 0.866 or vtNV:getZ() > 0.866 or not sCutting or dSawMaxDepth < dDimY[1] + WD.CUT_SIC or dSawMaxDepth < dDimY[2] + WD.CUT_SIC or dDimY[1] < 80 or dDimY[2] < 80 then
          -- eseguo la svuotatura
-         return MakeByPocketing( Proc, nFacet, nRawId, b3Raw)
+         local bOk, sErr, sTuuid = MakeByPocketing( Proc, nFacet, nRawId, b3Raw)
+         -- se angolo ottuso riprendo il lato quasi verticale
+         if bOk and dAng and dAng > -90 + 10 * GEO.EPS_SMALL then
+            local _, dHVert, dVVert = EgtSurfTmFacetMinAreaRectangle( Proc.Id, nFacetVert, GDB_ID.ROOT)
+            local dDepth = min( dHVert, dVVert)
+            local _, dHHor, dVHor = EgtSurfTmFacetMinAreaRectangle( Proc.Id, nFacet, GDB_ID.ROOT)
+            local dDiam = 2 * min( dHHor, dVHor)
+            local sMillObtuseAngle = WM.FindMilling( 'FreeContour', dDepth, sTuuid, nil, dDiam, nil, nil, nil)
+            if not sMillObtuseAngle then 
+               sMillObtuseAngle = WM.FindMilling( 'FreeContour', dDepth, nil, nil, dDiam, nil, nil, nil)
+            end
+            if not sMillObtuseAngle then
+               local sErrMillNotFound = 'Error : Processing to finish obtuse angle not found in library'
+               EgtOutLog( sErrMillNotFound)
+               return true, sErrMillNotFound
+            end
+            local bOk2, sErr2 = MakeSideGrooveByMill( Proc, nFacetVert, nRawId, b3Raw, sMillObtuseAngle, dMaxDepthOnSide, bMakeFirstGroove, bMachFromDn, dAng, false, nil, true)
+         end
+         return bOk, sErr
       end
    -- se una delle due facce rivolta verso il basso
    elseif vtN[1]:getZ() < -0.001 or vtN[2]:getZ() < -0.001 then
@@ -2538,7 +2612,6 @@ local function MakeMoreFaces( Proc, nRawId, b3Raw)
          local sErr = 'Side milling not possible'
          EgtOutLog( sErr)
          return true, sErr
-
       end
    -- fessura verticale
    elseif Proc.Stype == 3 then

LuaLibs/WProcessMark.lua

@@ -1,5 +1,6 @@
 -- WProcessMark.lua by Egaltech s.r.l. 2021/04/20
 -- Gestione calcolo marcatura per Pareti
+-- 2023/01/05 Permesse le marcature laterali in presenza di offset Z, tra grezzo e tavola, di almeno 100 mm
 
 -- Tabella per definizione modulo
 local WPMK = {}
@@ -33,8 +34,13 @@ function WPMK.Classify( Proc, b3Raw)
    if not vtN then
       return false
    end
-   -- verifico se la marcatura è lavorabile (solo da sopra)
-   return ( vtN:getZ() > WD.NZ_MINA)
+   -- verifico se la marcatura è lavorabile (solo da sopra o dal lato se con offset Z)
+   local dMinZRaw = b3Raw:getMin():getZ()
+   local b3Tab = EgtGetTableArea()
+   local dMaxZTable = b3Tab:getMax():getZ()
+   local dDeltaZ = dMinZRaw - dMaxZTable
+   local MIN_Z_OFFSET = 100
+   return EgtIf( dDeltaZ < MIN_Z_OFFSET - GEO.EPS_SMALL, vtN:getZ() > WD.NZ_MINA, vtN:getZ() > -0.1)
 end
 
 ----------------------------------------------------------------------
@@ -79,11 +85,18 @@ function WPMK.Make( Proc, nRawId, b3Raw)
       EgtOutLog( sErr)
       return false, sErr
    end
-   -- verifico che la marcatura non sia orientata verso il basso
-   if vtExtr:getZ() < WD.NZ_MINA  then
-      local sErr = 'Error : Mark from bottom impossible'
-      EgtOutLog( sErr)
-      return false, sErr
+   -- verifico se la marcatura è lavorabile (solo da sopra o dal lato se con offset Z)
+   local dMinZRaw = b3Raw:getMin():getZ()
+   local b3Tab = EgtGetTableArea()
+   local dMaxZTable = b3Tab:getMax():getZ()
+   local dDeltaZ = dMinZRaw - dMaxZTable
+   local MIN_Z_OFFSET = 100
+   if vtExtr:getZ() < WD.NZ_MINA then
+      if dDeltaZ < MIN_Z_OFFSET - GEO.EPS_SMALL or vtExtr:getZ() <= -0.1 then
+         local sErr = 'Error : Mark from bottom impossible'
+         EgtOutLog( sErr)
+         return false, sErr
+      end
    end
    -- recupero la lavorazione
    local sMilling = WM.FindMilling( 'Text')

LuaLibs/WProcessMortise.lua

@@ -1,5 +1,6 @@
 -- WProcessMortise.lua by Egaltech s.r.l. 2021/07/30
 -- Gestione calcolo mortase per Pareti
+-- 2023/01/05 Permesse le mortase laterali in presenza di offset Z, tra grezzo e tavola, di almeno 100 mm
 
 -- Tabella per definizione modulo
 local WPM = {}
@@ -45,8 +46,13 @@ function WPM.Classify( Proc, b3Raw)
       return true
    -- altrimenti è chiusa
    else
-      -- verifico se la mortasa è lavorabile da sopra
-      return ( vtN:getZ() > WD.NZ_MINA)
+      -- verifico se la mortasa è lavorabile da sopra o dal lato se con offset Z
+      local dMinZRaw = b3Raw:getMin():getZ()
+      local b3Tab = EgtGetTableArea()
+      local dMaxZTable = b3Tab:getMax():getZ()
+      local dDeltaZ = dMinZRaw - dMaxZTable
+      local MIN_Z_OFFSET = 100
+      return EgtIf( dDeltaZ < MIN_Z_OFFSET - GEO.EPS_SMALL, vtN:getZ() > WD.NZ_MINA, vtN:getZ() > -0.1)
    end
 end
 
@@ -182,11 +188,18 @@ function WPM.Make( Proc, nRawId, b3Raw)
    local bForceOneSide
    local bRevertSide
    if bClosedBtm then
-      -- verifico che la mortasa non sia orientata verso il basso (limite -5 deg)
-      if vtN:getZ() < WD.NZ_MINA then
-         local sErr = 'Error : Mortise from bottom impossible'
-         EgtOutLog( sErr)
-         return false, sErr
+      -- verifico se la mortasa è lavorabile da sopra o dal lato se con offset Z
+      local dMinZRaw = b3Raw:getMin():getZ()
+      local b3Tab = EgtGetTableArea()
+      local dMaxZTable = b3Tab:getMax():getZ()
+      local dDeltaZ = dMinZRaw - dMaxZTable
+      local MIN_Z_OFFSET = 100
+      if vtExtr:getZ() < WD.NZ_MINA then
+         if dDeltaZ < MIN_Z_OFFSET - GEO.EPS_SMALL or vtExtr:getZ() <= -0.1 then
+            local sErr = 'Error : Mortise from bottom impossible'
+            EgtOutLog( sErr)
+            return false, sErr
+         end
       end
     -- altrimenti passante
    else

NestFlipAndRotate.lua

@@ -349,16 +349,17 @@ if not bManualRot then
    local nRotateOpt = 0 
    if #RotateFeatureStates > 0 then
       -- calcolo lato con punteggio minore o molteplicita' piu' alta
-      local nRotMax = 0
-      local nScoreMax = 0
-      local nScoreCnt = 0
-      for nInd = 1, #MinList do
+      local nRotMax = MinList[1].Rot
+      local nScoreMax = MinList[1].Score
+      local nScoreCnt = MinList[1].ScoreCnt
+      for nInd = 2, #MinList do
          if MinList[nInd].Score > nScoreMax then
             nRotMax = MinList[nInd].Rot
             nScoreMax = MinList[nInd].Score
             nScoreCnt = MinList[nInd].ScoreCnt
          elseif MinList[nInd].Score == nScoreMax then
-            if MinList[nInd].ScoreCnt > nScoreCnt then 
+            -- se punteggio > 0 conservo quello con molteplicità più alta, se punteggio = 0 conservo quello con molteplicità più bassa
+            if ( nScoreMax ~= 0 and MinList[nInd].ScoreCnt > nScoreCnt) or ( nScoreMax == 0 and MinList[nInd].ScoreCnt < nScoreCnt) then               
                nRotMax = MinList[nInd].Rot
                nScoreMax = MinList[nInd].Score
                nScoreCnt = MinList[nInd].ScoreCnt

NestProcess.lua

@@ -1,4 +1,4 @@
--- NestProcess.lua by Egaltech s.r.l. 2022/06/23
+-- NestProcess.lua by Egaltech s.r.l. 2022/11/24
 -- Gestione nesting automatico pareti
 
 -- Intestazioni
@@ -509,80 +509,84 @@ local function ClassifyDrillsOnLateralFaces( nPartId, dMinSheetWidth)
    local vPartProc = WE.CollectFeatures( nPartId)
    for nInd = 1, #vPartProc do repeat    
       
-      if Drill.Identify( vPartProc[nInd]) then  
+      if Drill.Identify( vPartProc[nInd]) then
          
          -- identifico su quali facce si trova il foro
          local bOpen = ( vPartProc[nInd].Fcs ~= 0 and vPartProc[nInd].Fce ~= 0)
          local AuxId = EgtGetInfo( vPartProc[nInd].Id, 'AUXID', 'i') or 0
          if AuxId then AuxId = AuxId + vPartProc[nInd].Id end
-         if not AuxId  or  EgtGetType( AuxId) ~= GDB_TY.CRV_ARC then break end      
-         local ptDrill = EgtCP( AuxId, GDB_RT.GLOB) 
-         local dLen = abs( EgtCurveThickness( AuxId))
-         local bLong = dLen > WD.HOR_DRILL_LEN - 1
-         local bOnlyOnRef = dLen + dDeltaRaw > WD.HOR_DRILL_LEN - GEO.EPS_SMALL and not bLong 
-         
-         -- faccia Front
-         local dTol = GEO.EPS_SMALL
-         if ( abs( ptDrill:getY() - ptPartMin:getY()) < dTol) then 
-            DrillOnFaces.F.nbr = DrillOnFaces.F.nbr  + 1
-            if bOnlyOnRef then DrillOnFaces.F.OnlyOnRef = true end 
-            if bOpen then 
-               DrillOnFaces.B.nbr = DrillOnFaces.B.nbr + 1 
-               if bOnlyOnRef then DrillOnFaces.B.OnlyOnRef = true end 
-            else
-               DrillOnFaces.F.closed = true
-               
-            end
-            if bLong then 
-               DrillOnFaces.F.long = true 
-               if bOpen then DrillOnFaces.B.long = true end 
-            end
+         if not AuxId  or  EgtGetType( AuxId) ~= GDB_TY.CRV_ARC then break end
+         -- verifico se diametro compatibile con la punta
+         local dDiam = 2 * EgtArcRadius( AuxId)
+         if abs( dDiam - WD.HOR_DRILL_DIAM) < WD.DRILL_TOL + GEO.EPS_SMALL then
+            local ptDrill = EgtCP( AuxId, GDB_RT.GLOB)
+            local dLen = abs( EgtCurveThickness( AuxId))
+            local bLong = dLen > WD.HOR_DRILL_LEN - 1
+            local bOnlyOnRef = dLen + dDeltaRaw > WD.HOR_DRILL_LEN - GEO.EPS_SMALL and not bLong 
             
-          -- faccia Back
-         elseif ( abs( ptDrill:getY() - ptPartMax:getY()) < dTol) then 
-            DrillOnFaces.B.nbr = DrillOnFaces.B.nbr + 1 
-            if bOnlyOnRef then DrillOnFaces.B.OnlyOnRef = true end
-            if bOpen then 
+            -- faccia Front
+            local dTol = GEO.EPS_SMALL
+            if ( abs( ptDrill:getY() - ptPartMin:getY()) < dTol) then 
                DrillOnFaces.F.nbr = DrillOnFaces.F.nbr  + 1
-               if bOnlyOnRef then DrillOnFaces.F.OnlyOnRef = true end
-            else
-               DrillOnFaces.B.closed = true
-            end
-           if bLong then 
-               DrillOnFaces.B.long = true 
-               if bOpen then DrillOnFaces.F.long = true end 
-            end
-            
-         -- faccia Left
-         elseif ( abs( ptDrill:getX() - ptPartMin:getX()) < dTol) then 
-            DrillOnFaces.L.nbr = DrillOnFaces.L.nbr + 1  
-            if bOnlyOnRef then DrillOnFaces.L.OnlyOnRef = true end
-            if bOpen then 
-               DrillOnFaces.R.nbr = DrillOnFaces.R.nbr + 1 
-               if bOnlyOnRef then DrillOnFaces.R.OnlyOnRef = true end
-            else
-               DrillOnFaces.L.closed = true
-            end
+               if bOnlyOnRef then DrillOnFaces.F.OnlyOnRef = true end 
+               if bOpen then 
+                  DrillOnFaces.B.nbr = DrillOnFaces.B.nbr + 1 
+                  if bOnlyOnRef then DrillOnFaces.B.OnlyOnRef = true end 
+               else
+                  DrillOnFaces.F.closed = true
+                  
+               end
+               if bLong then 
+                  DrillOnFaces.F.long = true 
+                  if bOpen then DrillOnFaces.B.long = true end 
+               end
+               
+            -- faccia Back
+            elseif ( abs( ptDrill:getY() - ptPartMax:getY()) < dTol) then 
+               DrillOnFaces.B.nbr = DrillOnFaces.B.nbr + 1 
+               if bOnlyOnRef then DrillOnFaces.B.OnlyOnRef = true end
+               if bOpen then 
+                  DrillOnFaces.F.nbr = DrillOnFaces.F.nbr  + 1
+                  if bOnlyOnRef then DrillOnFaces.F.OnlyOnRef = true end
+               else
+                  DrillOnFaces.B.closed = true
+               end
             if bLong then 
-               DrillOnFaces.L.long = true 
-               if bOpen then DrillOnFaces.R.long = true end 
-            end
-            
-         -- faccia Right
-         elseif ( abs( ptDrill:getX() - ptPartMax:getX()) < dTol) then 
-            DrillOnFaces.R.nbr = DrillOnFaces.R.nbr + 1  
-            if bOnlyOnRef then DrillOnFaces.R.OnlyOnRef = true end
-            if bOpen then 
-               DrillOnFaces.L.nbr = DrillOnFaces.L.nbr + 1
+                  DrillOnFaces.B.long = true 
+                  if bOpen then DrillOnFaces.F.long = true end 
+               end
+               
+            -- faccia Left
+            elseif ( abs( ptDrill:getX() - ptPartMin:getX()) < dTol) then 
+               DrillOnFaces.L.nbr = DrillOnFaces.L.nbr + 1  
                if bOnlyOnRef then DrillOnFaces.L.OnlyOnRef = true end
-            else
-               DrillOnFaces.R.closed = true
-            end  
-            if bLong then 
-               DrillOnFaces.R.long = true 
-               if bOpen then DrillOnFaces.L.long = true end 
+               if bOpen then 
+                  DrillOnFaces.R.nbr = DrillOnFaces.R.nbr + 1 
+                  if bOnlyOnRef then DrillOnFaces.R.OnlyOnRef = true end
+               else
+                  DrillOnFaces.L.closed = true
+               end
+               if bLong then 
+                  DrillOnFaces.L.long = true 
+                  if bOpen then DrillOnFaces.R.long = true end 
+               end
+               
+            -- faccia Right
+            elseif ( abs( ptDrill:getX() - ptPartMax:getX()) < dTol) then 
+               DrillOnFaces.R.nbr = DrillOnFaces.R.nbr + 1  
+               if bOnlyOnRef then DrillOnFaces.R.OnlyOnRef = true end
+               if bOpen then 
+                  DrillOnFaces.L.nbr = DrillOnFaces.L.nbr + 1
+                  if bOnlyOnRef then DrillOnFaces.L.OnlyOnRef = true end
+               else
+                  DrillOnFaces.R.closed = true
+               end  
+               if bLong then 
+                  DrillOnFaces.R.long = true 
+                  if bOpen then DrillOnFaces.L.long = true end 
+               end
             end
-         end         
+         end
       end     
       
       until true 
@@ -1574,33 +1578,33 @@ local function AddParts(RawParts, vPartsDoneManually)
          end
          nOutline, nCnt = EgtGetSurfTmSilhouette( SolidId, Z_AX(), 10, nOutlineLayer, GDB_RT.GLOB)
          EgtBeamShowSolid( nPartId, false)
-         
-         for nInd = 0, nCnt - 1 do            
+
+         for nInd = 0, nCnt - 1 do
             EgtSetName( nOutline + nInd, 'ON_TMP')
             EgtSetStatus( nOutline + nInd, 0)
          end
-                      
-         local nCurrOutline = nOutline      
+
+         local nCurrOutline = nOutline
          if nCnt > 0 then
             local frSum
             EgtScale( nOutline, GLOB_FRM(), 1, 1, 0, GDB_RT.GLOB)
             EgtModifyCurveExtrusion( nOutline, Z_AX(), GDB_RT.GLOB)
 
            -- verifico che la prima curva sia l'unico loop esterno
-           local vCrvRef = EgtCurveArea( nOutline)
-           for nInd = 1, nCnt - 1 do            
-              local vCrv = EgtCurveArea( nOutline + nInd)
+           local vtCrvRefN = EgtCurveArea( nOutline)
+           for nInd = 1, nCnt - 1 do
+              local vtCrvN = EgtCurveArea( nOutline + nInd)
               -- se trovo più loop esterni uso come contorno quello del box (quindi forzo nCurrOutline a nil)
-              if abs( vCrv * vCrvRef - 1) < GEO.EPS_SMALL then
+              if vtCrvN and vtCrvRefN and AreSameVectorApprox( vtCrvN, vtCrvRefN) then
                  nCurrOutline = nil
-                 for nInd2 = 0, nCnt - 1 do            
+                 for nInd2 = 0, nCnt - 1 do
                     EgtErase( nOutline + nInd2)
                  end
-                 nCnt = 1 
-                 break                           
-              end            
+                 nCnt = 1
+                 break
+              end
            end
-         
+
             --local frSum = EgtSurfFlatRegion(nOutlineLayer, nOutline)
             --EgtSaveFile("c:\\Temp\\ProvaNesting.nge")
    --         -- per ogni contorno creo flat region e le sommo
@@ -1626,7 +1630,7 @@ local function AddParts(RawParts, vPartsDoneManually)
    --            EgtErase(nOutline + nIndex)
    --         end
          end
-         
+
          if nCurrOutline and nCurrOutline ~= GDB_ID.NULL then
             nOutline = nCurrOutline
          else
@@ -1769,11 +1773,11 @@ local function AddParts(RawParts, vPartsDoneManually)
       end
       -- aggiungo finestre
       for nInd = 1, nCnt - 1 do 
-         local tmp1, tmp2, area =  EgtCurveArea( nOutline + nInd) 
-         if area > WD.NEST_HOLE_MIN_AREA then 
+         local _, _, dArea =  EgtCurveArea( nOutline + nInd) 
+         if dArea and dArea > WD.NEST_HOLE_MIN_AREA then 
             EgtModifyCurveExtrusion( nOutline + nInd, Z_AX(), GDB_RT.GLOB)  
             EgtAutoNestAddHoleToPart( nPartId, nOutline + nInd)           
-         end         
+         end
       end
       
       -- aggiungo aree di lavorazione del pezzo 
@@ -2177,21 +2181,33 @@ if bNestingOk then
                   end                  
                end               
                -- se è lap joint dall'alto
-               if nFaceInd ~= -1 and nFaceDownInd == -1 then 
+               if nFaceInd ~= -1 and nFaceDownInd == -1 then
+                  local bResetQ = false
                   local ptCen = EgtSurfTmFacetCenter( Proc.Id, nFaceInd, GDB_ID.ROOT)
-                  -- se all'interno rimuovo info Q 
+                  -- se all'interno rimuovo info Q
                   if EnclosesPointXY( b3Raw, ptCen) then
+                     bResetQ = true
+                  elseif Proc.Fct == 2 then
+                     -- se non è interno ma ha 2 facce non ortogonali rimuovo info Q
+                     local vtN1 = EgtSurfTmFacetNormVersor( Proc.Id, 0, GDB_ID.ROOT)
+                     local vtN2 = EgtSurfTmFacetNormVersor( Proc.Id, 1, GDB_ID.ROOT)
+                     if abs( vtN1 * vtN2) > GEO.EPS_SMALL then
+                        bResetQ = true
+                     end
+                  end
+                  
+                  if bResetQ then
                      -- resetto parametro Q
                      if Proc.Prc == 30 then
                         EgtRemoveInfo( Proc.Id, "Q08")
-                        EgtRemoveInfo( Proc.Id, "Q08A")    
+                        EgtRemoveInfo( Proc.Id, "Q08A")
                      else
                         EgtRemoveInfo( Proc.Id, "Q03")
-                        EgtRemoveInfo( Proc.Id, "Q03A")   
-                     end                 
-                  end 
+                        EgtRemoveInfo( Proc.Id, "Q03A")
+                     end
+                  end
                end
-               
+                             
             elseif DoubleCut.Identify( Proc) then
                -- verifico se due facce e rivolto verso l'alto
                if Proc.Fct == 2 then