In DTTenon.Make Aumentato numero passaggi (massimo 8)

LuaLibs/BeamExec.lua

@@ -54,6 +54,7 @@
 -- 2023/11/30 Migliorato il calcolo elevazione con l'utilizzo della nuova funzione EgtSurfTmFacetElevationInBBox.
 -- 2023/12/26 Modifiche per centrare i pezzi in Y sulla tavola.
 -- 2024/02/26 Migliorata 'CompareFeatures' per ordine lavorazioni
+--            Migliorata 'CompareFeatures' per ordine forature
 
 -- Tabella per definizione modulo
 local BeamExec = {}
@@ -786,8 +787,8 @@ local function OrderFeatures( vProc, b3Raw)
       if Hcut.Identify( B2) then
          return false
       end
-      -- se uno di testa e non l'altro, privilegio quello di testa
-      if B1.Head ~= B2.Head then
+      -- se uno di testa e non l'altro, privilegio quello di testa (a meno che non siano dei fori)
+      if B1.Head ~= B2.Head  and not Drill.Identify(B1) and not Drill.Identify(B2) then
          return B1.Head
       end
       -- se entrambi di testa e intersecano stesse facce e primo è scasso a due facce e secondo è un profilo caudato, lo scasso è una riduzione e va fatto prima
@@ -816,11 +817,21 @@ local function OrderFeatures( vProc, b3Raw)
       if B2.AdvTail and ( not Split.Identify( B1) or not B1.Tail) then
          return true
       end
-      -- se primo è feature di coda e l'altro è separazione o non è feature di coda
+      -- se primo è foro e secondo è un ribasso, il foro va sempre prima
+      if Drill.Identify(B1) and ( LapJoint.Identify(B2) or Mortise.Identify(B2)) and
+         B1.Box:getCenter():getX() > B2.Box:getMin():getX() and B1.Box:getCenter():getX() < B2.Box:getMax():getX() then
+         return true
+      end
+      -- se primo è un ribasso e secondo è un foro, il ribasso va sempre dopo
+      if ( LapJoint.Identify(B1) or Mortise.Identify(B1)) and Drill.Identify(B2) and
+         B2.Box:getCenter():getX() > B1.Box:getMin():getX() and B2.Box:getCenter():getX() < B1.Box:getMax():getX() then
+         return false
+      end
+      -- se primo è feature di coda e l'altro è separazione o non è feature di coda (e non sono dei fori)
       if B1.Tail and ( Split.Identify( B2) or not B2.Tail) then
          return false
       end
-      -- se secondo è feature di coda e l'altro è separazione o non è feature di coda
+      -- se secondo è feature di coda e l'altro è separazione o non è feature di coda (e non sono dei fori)
       if B2.Tail and ( Split.Identify( B1) or not B1.Tail) then
          return true
       end
@@ -835,11 +846,11 @@ local function OrderFeatures( vProc, b3Raw)
          return true
       end
       -- se entrambi di coda e il primo è una feature taglio di lama e il secondo no, feature taglio lama sempre prima
-      if B1.Tail and B2.Tail and ( B1.Prc == 10 or B1.Prc == 11) and ( B2.Prc ~= 10 and B2.Prc ~= 11) then
+      if B1.Tail and B2.Tail and ( Cut.Identify( B1) or DoubleCut.Identify( B1)) and ( not Cut.Identify( B2) and not DoubleCut.Identify( B2)) then
          return true
       end
       -- se entrambi di coda e il secondo è una feature taglio di lama e il primo no, feature taglio lama sempre prima
-      if B1.Tail and B2.Tail and ( B2.Prc == 10 or B2.Prc == 11) and ( B1.Prc ~= 10 and B1.Prc ~= 11) then
+      if B1.Tail and B2.Tail and ( Cut.Identify( B2) or DoubleCut.Identify( B2)) and ( not Cut.Identify( B1) and not DoubleCut.Identify( B1)) then
          return false
       end
       -- se primo è taglio longitudinale completo o altra lav. lunga, dopo tutte le altre feature non di coda
@@ -859,22 +870,12 @@ local function OrderFeatures( vProc, b3Raw)
       if abs( B2.Box:getDimX() - b3Raw:getDimX()) < 0.2 * b3Raw:getDimX() then
          return not ( B1.Tail or B2.Box:getMin():getX() + 20 > B1.Box:getCenter():getX())
       end
-      -- se primo è foro e secondo è un ribasso, il foro va sempre prima
-      if Drill.Identify(B1) and ( LapJoint.Identify(B2) or Mortise.Identify(B2)) and
-         B1.Box:getCenter():getX() > B2.Box:getMin():getX() and B1.Box:getCenter():getX() < B2.Box:getMax():getX() then
-         return true
-      end
-      -- se primo è un ribasso e secondo è un foro, il ribasso va sempre dopo
-      if (LapJoint.Identify(B1) or Mortise.Identify(B1)) and Drill.Identify(B2) and
-         B2.Box:getCenter():getX() > B1.Box:getMin():getX() and B2.Box:getCenter():getX() < B1.Box:getMax():getX() then
-         return false
-      end
       -- se primo è foro e l'altro no, lo penalizzo
-      if B1.Prc == 40 and B2.Prc ~= 40 then
+      if Drill.Identify(B1) and not Drill.Identify(B2) then
          return ( B1.Box:getCenter():getX() > B2.Box:getMax():getX() + dDrillPenalty) 
       end
       -- se primo è altro e secondo è foro, lo premio
-      if B1.Prc ~= 40 and B2.Prc == 40 then
+      if not Drill.Identify(B1) and Drill.Identify(B2) then
          return ( B1.Box:getMax():getX() + dDrillPenalty > B2.Box:getCenter():getX())
       end
       -- se prima è mortasa coda di rondine sul fianco e secondo taglio longitudinale, la coda di rondine va sempre prima

LuaLibs/ProcessDtTenon.lua

@@ -5,6 +5,7 @@
 -- 2023/02/08 Aumentato il range per cui i tenoni vengono lavorati in sottosquadro.
 -- 2023/03/27 Migliorate condizioni scelta pretaglio con lama o fresa; gestione unificata con ProcessTenon.
 -- 2023/03/28 Corretta gestione faccia di base quando divisa in più parti per distanza massima da lavorare.
+-- 2024/02/29 Aumentato numero passaggi CR su tenone. Massimo 8
 
 -- Tabella per definizione modulo
 local ProcessDtTenon = {}
@@ -268,8 +269,8 @@ function ProcessDtTenon.Make( Proc, nPhase, nRawId, nPartId, dOvmHead)
       dMaxDist = 2 * ( b3DtTen:getRadius() - b3DtAux:getRadius())
    end
    EgtOutLog( 'MaxDist=' .. EgtNumToString( dMaxDist, 3), 3)
-   -- Cicli di lavorazione (max 6)
-   local MAX_PASS = 6
+   -- Cicli di lavorazione (max 8)
+   local MAX_PASS = 8
    local nStep = min( ceil( dMaxDist / ( 0.7 * dTDiam)), MAX_PASS)
    local dStep = min( dMaxDist, 0.7 * dTDiam * MAX_PASS) / nStep
    for i = nStep, 1, -1 do

LuaLibs/ProcessLapJoint.lua

@@ -95,6 +95,7 @@
 -- 2024/02/13 In MakeMoreFaces escluse le Groove 2 facce dalla gestione Special3faces.
 -- 2024/02/22 Migliorato calcolo area non pinzabile in testa HCING e coda TCING
 --            Rimosso un caso di controllo per HCING/TCING
+-- 2024/02/29 In MakeMoreFaces passato b3Solid alla funzione ManageAntiSplintByMill
 
 -- Tabella per definizione modulo
 local ProcessLapJoint = {}
@@ -5500,9 +5501,9 @@ local function MakeMoreFaces( Proc, nPhase, nRawId, nPartId, dOvmHead, bSinglePa
                if not bOk then return false, sWarn end
             end
             if nChamfer < 2 and nQAntisplintResult == 2 then
-               local bOk, sWarn2
-               bOk, sWarn2 = ManageAntiSplintByMill( Proc, nPhase, nRawId, nPartId, b3Raw, 
-                                                     nFacInd, nAddGrpId, bMillDown)
+               local bOk, sWarn2 = ManageAntiSplintByMill( Proc, nPhase, nRawId, nPartId, b3Raw, 
+                                                           nFacInd, nAddGrpId, bMillDown, dDiamTool, nil,
+                                                           nil, nil, nil, b3Solid)
                if not bOk then return false, sWarn2 end
             end
             -- se smusso non esclusivo
@@ -5517,17 +5518,17 @@ local function MakeMoreFaces( Proc, nPhase, nRawId, nPartId, dOvmHead, bSinglePa
                local dToolTotalLength = 0
                local dToolThDiameter = 999
                local dToolDiameter = 0
-                  if EgtMdbSetCurrMachining( sPocketing) then
-                     local sTuuidPk = EgtMdbGetCurrMachiningParam( MCH_MP.TUUID)
-                     if EgtTdbSetCurrTool( EgtTdbGetToolFromUUID( sTuuidPk) or '') then
-                        dMaxToolCutDepth = EgtTdbGetCurrToolMaxDepth() or dMaxToolCutDepth
-                        dMaxToolMaterial = EgtTdbGetCurrToolParam( MCH_TP.MAXMAT) or dMaxToolMaterial
-                        dToolDiameter = EgtTdbGetCurrToolParam( MCH_TP.DIAM) or dToolDiameter
-                        dToolThLength = EgtTdbGetCurrToolThLength() or dToolThLength
-                        dToolThDiameter = EgtTdbGetCurrToolParam( MCH_TP.STEMDIAM) or dToolThDiameter
-                        dToolTotalLength = EgtTdbGetCurrToolParam( MCH_TP.TOTLEN) or dToolTotalLength
-                     end
+               if EgtMdbSetCurrMachining( sPocketing) then
+                  local sTuuidPk = EgtMdbGetCurrMachiningParam( MCH_MP.TUUID)
+                  if EgtTdbSetCurrTool( EgtTdbGetToolFromUUID( sTuuidPk) or '') then
+                     dMaxToolCutDepth = EgtTdbGetCurrToolMaxDepth() or dMaxToolCutDepth
+                     dMaxToolMaterial = EgtTdbGetCurrToolParam( MCH_TP.MAXMAT) or dMaxToolMaterial
+                     dToolDiameter = EgtTdbGetCurrToolParam( MCH_TP.DIAM) or dToolDiameter
+                     dToolThLength = EgtTdbGetCurrToolThLength() or dToolThLength
+                     dToolThDiameter = EgtTdbGetCurrToolParam( MCH_TP.STEMDIAM) or dToolThDiameter
+                     dToolTotalLength = EgtTdbGetCurrToolParam( MCH_TP.TOTLEN) or dToolTotalLength
                   end
+               end
                local dMachiningDepth = 0
                -- se il gambo è più largo dell'utensile verifico se la lunghezza del gambo è maggiore della distanza di sicurezza calcolata
                local dShankLength = dToolTotalLength - dToolThLength - dMaxToolCutDepth

LuaLibs/ProcessMortise.lua

@@ -14,6 +14,7 @@
 -- 2023/07/21 Correzioni per mortise passanti con curva Aux che guarda in basso.
 -- 2023/08/10 Modificata scelta SCC per tasche in Y+/- in coda o quasi.
 -- 2024/01/18 Implementata GetBlockedAxis che gestisce gli assi bloccati per tutti i tipi di utensile.
+-- 2024/02/28 Forzata SPIRAL_IN se c'è anche un solo lato aperto
 
 -- Tabella per definizione modulo
 local ProcessMortise = {}
@@ -463,6 +464,13 @@ function ProcessMortise.Make( Proc, nPhase, nRawId, nPartId, dCurrOvmH)
    if bRevertSide then
       EgtSetMachiningParam( MCH_MP.TOOLINVERT, true)
    end
+
+   -- se ho anche solo un lato aperto, forzo SPIRAL-IN
+   local vOpen = EgtGetInfo( AuxId, 'OPEN', 'vi')
+   if vOpen and #vOpen > 0 then
+      EgtSetMachiningParam( MCH_MP.SUBTYPE, MCH_POCK_SUB.SPIRALIN)
+   end
+
    -- aggiungo geometria
    EgtSetMachiningGeometry( {{ AuxId, -1}})
    -- sistemo la direzione di lavoro