- in WallExec aggiunte al sorting le lavorazioni PreSideMill che vengono sempre fatte prima delle SideMill

- LapJoint -> MakeSideGrooveByMill, se rabbet doppio uno verso l'alto e uno verso il basso, aggiunto step extra iniziale per ripulire la lamina che potrebbe rimanere nella rabbet che guarda in alto.

LuaLibs/WProcessLapJoint.lua

@@ -36,6 +36,8 @@
 -- 2023/11/07 In MakeByPocketing, se tasca che guarda davanti, aggiunta possibilità di attaccare fuori dal grezzo fino ad uno spessore di 75 mm.
 --            In MakeByPocketing calcolo del massimo diametro utensile spostato in VerifyPocketing.
 --            In MakeByPocketing il doppio viene ora disattivato se una tasca deve essere forzata chiusa e l'altra no.
+-- 2023/11/13 In MakeSideGrooveByMill, se rabbet doppio uno verso l'alto e uno verso il basso, aggiunto step extra iniziale per ripulire la lamina che potrebbe rimanere nella rabbet che guarda in alto.
+
 -- Tabella per definizione modulo
 local WPL = {}
 
@@ -1521,10 +1523,14 @@ local function MakeSideGrooveByMill( Proc, nFacet, nRawId, b3Raw, sCustomMach, d
       end
    end
    -- se profondità ribasso è maggiore della capacità di sottosquadro dell'utensile
-   if ( not bEnablePreMill and ( bMachFromDn or Proc.Fct > 2)) and ( dElev > 0.5 * ( dMillDiam - dMillDiamTh) - 10 * GEO.EPS_SMALL) then
-      local sErr = 'Error : Side Elevation (' .. dElev .. ') bigger than max tool side depth (' .. ( 0.5 * ( dMillDiam - dMillDiamTh)) ..')'
-      EgtOutLog( sErr)
-      return false, sErr
+   if ( dElev > 0.5 * ( dMillDiam - dMillDiamTh) - 10 * GEO.EPS_SMALL) then
+      if ( not bEnablePreMill and ( bMachFromDn or Proc.Fct > 2)) then
+         local sErr = 'Error : Side Elevation (' .. dElev .. ') bigger than max tool side depth (' .. ( 0.5 * ( dMillDiam - dMillDiamTh)) ..')'
+         EgtOutLog( sErr)
+         return false, sErr
+      elseif Proc.Double then
+         Proc.Double = 0
+      end
    end
    local dMillExtra = dMillTotLen - dMillLen
    if Proc.Box:getMin():getZ() - dMillExtra < b3Raw:getMin():getZ() - 10 * GEO.EPS_SMALL then
@@ -1895,6 +1901,78 @@ local function MakeSideGrooveByMill( Proc, nFacet, nRawId, b3Raw, sCustomMach, d
       bUpwardMilling = true
    end
    
+   -- step extra in caso di doppio con mix rabbet dal basso e dall'alto, per eliminare la lamina che potrebbe rimanere
+   if Proc.Double and Proc.Double == 2 and Proc.Topology == 'Rabbet' and
+   not ( Proc.AffectedFaces.Bottom and Proc.Mirror.AffectedFaces.Bottom) and not ( Proc.AffectedFaces.Top and Proc.AffectedFaces.Bottom) then
+      -- determino a quale delle due feature applicare la lavorazione
+      local bProcVsMirrorToCopy = true
+      local nFacetToMachine = nFacet
+      if Proc.AffectedFaces.Bottom then
+         bProcVsMirrorToCopy = false
+         for i = 1, Proc.Mirror.Fct do
+            local vtNMirror = Proc.Mirror.Face[i].VtN
+            if AreOppositeVectorApprox( vtN, vtNMirror) then
+               nFacetToMachine = Proc.Mirror.Face[i].Id
+               break
+            end
+         end
+      end
+      local nAddGrpId = WL.GetAddGroup( EgtIf( bProcVsMirrorToCopy, Proc.PartId, Proc.Mirror.PartId))
+      local nNewProc = EgtCopyGlob( EgtIf( bProcVsMirrorToCopy, Proc.Id, Proc.Mirror.Id), nAddGrpId) or GDB_ID.NULL
+      local NewProc = { Id = nNewProc, PartId = EgtIf( bProcVsMirrorToCopy, Proc.PartId, Proc.Mirror.PartId)}
+      -- lavorazione
+      local sName = 'PreSideMill_' .. EgtGetName( NewProc.Id) or tostring( NewProc.Id)
+      local nMchFId = WM.AddMachining( NewProc, sName, sMilling)
+      if not nMchFId then
+         local sErr = 'Error adding machining ' .. sName .. '-' .. sMilling
+         EgtOutLog( sErr)
+         return false, sErr
+      end
+      EgtSetInfo( nMchFId, 'Part', NewProc.PartId)
+      -- aggiungo geometria
+      EgtSetMachiningGeometry( {{ NewProc.Id, nFacetToMachine}})
+      -- imposto posizione braccio porta testa
+      local nSCC = MCH_SCC.ADIR_NEAR
+      EgtSetMachiningParam( MCH_MP.SCC, nSCC)
+      -- imposto modo di lavorare la faccia
+      local nFaceUse = WL.GetNearestParalOpposite( Z_AX())
+      EgtSetMachiningParam( MCH_MP.FACEUSE, nFaceUse)
+      -- imposto elevazione e step
+      local dDepth = 5
+      EgtSetMachiningParam( MCH_MP.DEPTH, dDepth)
+      EgtSetMachiningParam( MCH_MP.STEP, dElev)
+      -- setto il lato di lavoro standard
+      EgtSetMachiningParam( MCH_MP.INVERT, true)
+      EgtSetMachiningParam( MCH_MP.WORKSIDE, MCH_MILL_WS.LEFT)
+      -- 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)
+      end
+      -- se richiesto, setto la nota per spostare la lavorazione alla fine
+      if not WD.SIDEMILL_BEFORE then
+         EgtSetInfo( nMchFId, 'MOVE_AFTER', 1)
+      end
+      -- eseguo
+      if not EgtApplyMachining( true, false) then
+         -- provo a invertire posizione braccio porta testa
+         nSCC = MCH_SCC.ADIR_FAR
+         EgtSetMachiningParam( MCH_MP.SCC, nSCC)
+         if not EgtApplyMachining( true, false) then
+            local _, sErr = EgtGetLastMachMgrError()
+            EgtSetOperationMode( nMchFId, false)
+            return false, sErr
+         end
+      end
+      -- se faccio lo step extra e ho rimosso la lamina, in doppio lavorerò dal basso verso l'alto
+      bUpwardMilling = true
+   end
+
+   -- lavorazione
    local dStepOri
    if not bExcludeSideMill then
       local nSideStep = 1