Forzata In Mortise.Make, SPIRAL_IN se c'è anche un solo lato aperto

LuaLibs/BeamExec.lua

@@ -53,6 +53,8 @@
 -- 2023/11/08 Aggiunta gestione processi Variant.
 -- 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 = {}
@@ -785,10 +787,18 @@ 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
+      if ( ( B1.Head and B2.Head) or ( B1.Tail and B2.Tail)) and ( LapJoint.Identify( B1) and B1.Fct == 2) and ( ProfCamb.Identify( B2)) then
+         return true
+      end
+      -- se entrambi di testa e intersecano stesse facce e primo è un profilo caudato e secondo è scasso a due facce, lo scasso è una riduzione e va lasciato dopo
+      if ( ( B1.Head and B2.Head) or ( B1.Tail and B2.Tail)) and ( LapJoint.Identify( B2) and B2.Fct == 2) and ( ProfCamb.Identify( B1)) then
+         return false
+      end
       -- se entrambi di testa e primo è scasso o mortasa e secondo no va messo dopo
       if B1.Head and B2.Head and ( LapJoint.Identify( B1) or Mortise.Identify( B1) or DtMortise.Identify( B1)) and
          not ( LapJoint.Identify( B2) or Mortise.Identify( B2) or DtMortise.Identify( B2)) then
@@ -807,24 +817,42 @@ 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
       -- se primo è scasso o mortasa di coda e secondo no, sempre dopo
       if B1.Tail and ( LapJoint.Identify( B1) or Mortise.Identify( B1) or DtMortise.Identify( B1)) and
-         not ( B2.Tail and ( LapJoint.Identify( B2) or Mortise.Identify( B2) or DtMortise.Identify( B2))) then
+         not B2.Tail and ( ( LapJoint.Identify( B2) or Mortise.Identify( B2) or DtMortise.Identify( B2))) then
          return false
       end
       -- se secondo è scasso o mortasa di coda e primo no, va lasciato dopo
       if B2.Tail and ( LapJoint.Identify( B2) or Mortise.Identify( B2) or DtMortise.Identify( B2)) and
-         not ( B1.Tail and ( LapJoint.Identify( B1) or Mortise.Identify( B1) or DtMortise.Identify( B1))) then
+         not B1.Tail and ( ( LapJoint.Identify( B1) or Mortise.Identify( B1) or DtMortise.Identify( B1))) then
          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 ( 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 ( 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
       if abs( B1.Box:getDimX() - b3Raw:getDimX()) < 0.2 * b3Raw:getDimX() then
          -- se anche l'altra è lunga, faccio prima quello piccolo in YZ
@@ -842,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/FacesBySaw.lua

@@ -26,6 +26,7 @@
 -- 2024/01/07 Modifiche per OikosX (BD.TURN == 2).
 -- 2024/01/18 Gestita lama con aggregato con asse bloccato per massimizzare capacità di taglio verticale, se da sotto.
 --            Implementata GetBlockedAxis che gestisce gli assi bloccati per tutti i tipi di utensile.
+-- 2024/02/22 Migliorato calcolo area non pinzabile in testa HCING e coda TCING
 
 -- Tabella per definizione modulo
 local FacesBySaw = {}
@@ -714,13 +715,43 @@ function FacesBySaw.MakeTwo( Proc, nPhase, nRawId, nPartId, dOvmHead, sCutType,
    -- eventuale segnalazione ingombro di testa o coda
    local dMinHIng = min( 0.5 * BD.VICE_MINH, 0.5 * b3Raw:getDimZ())
    local dMinZ = max( BD.MIN_HEIGHT, 0.35 * b3Raw:getDimZ())
-   if bUpdateIng and Proc.Box:getDimZ() > dMinHIng and Proc.Box:getMin():getZ() < b3Raw:getMin():getZ() + dMinZ and
-      not ( abs( vtN[nBigInd]:getX()) < 0.05 and vtN[nBigInd]:getY() < 0 and Proc.Box:getDimX() > 500 and Proc.Box:getDimY() < 40) then
+   -- calcolo punto massimo in Z fino a dove considerare il pinzaggio. Minimo tra pinzaggio massimo e altezza pezzo 
+   local dMaxHZ = b3Raw:getMin():getZ() + min( BD.VICE_MAXH or BD.MAX_HEIGHT, b3Raw:getDimZ())
+   -- punto massimo in Z considerando anche la Z della feature
+   local dMaxHZFeat = min( dMaxHZ, Proc.Box:getMax():getZ())
+   -- dimensione Z del pinzaggio (differenza massima Z pinzabile e box feature)
+   local dDeltaZClamp = ( ( dMaxHZ - b3Raw:getMin():getZ()) - max( 0, dMaxHZFeat - Proc.Box:getMin():getZ()))
+   -- se pinzaggio minimo è come il massimo (oppure come l'altezza massima del pezzo) significa che è verticale
+   local bIsVertClamps = BD.VICE_MINH > BD.MAX_HEIGHT - 100 * GEO.EPS_SMALL
+
+   -- condizioni per limitare pinzaggio testa/coda
+   -- se dimensione del box della feature maggiore di metà pinzaggio minimo o metà spessore pezzo
+   bUpdateIng = bUpdateIng and Proc.Box:getDimZ() > dMinHIng
+   -- se la feature si trova più in basso del minimo pinzabile in Z o il 35% dello spessore pezzo
+   bUpdateIng = bUpdateIng and Proc.Box:getMin():getZ() < b3Raw:getMin():getZ() + dMinZ
+   -- riportata condizione, ma poco chiara
+   bUpdateIng = bUpdateIng and not ( abs( vtN[nBigInd]:getX()) < 0.05 and vtN[nBigInd]:getY() < 0 and Proc.Box:getDimX() > 500 and Proc.Box:getDimY() < 40)
+   -- se feature è al di sotto del pinzaggio massimo
+   bUpdateIng = bUpdateIng and Proc.Box:getMin():getZ() < dMaxHZ
+   -- se ho le morse verticali, o se la feature è in centro o verso alto, controllo se non prendo abbastanza.
+   if bIsVertClamps or ( Proc.Box:getMin():getZ() - b3Raw:getMin():getZ()) > BD.MIN_HEIGHT  then
+      bUpdateIng = bUpdateIng and dDeltaZClamp < BD.VICE_MINH
+   end
+
+   if bUpdateIng then
       if Proc.Head then
          local dOffs = b3Solid:getMax():getX() - Proc.Box:getMin():getX()
+         -- se pinze a 45° e pinza abbastanza materiale, compenso comunque, ma solo inclinazione morse
+         if not bIsVertClamps and dDeltaZClamp > BD.VICE_MINH and BD.VICE_MAXH then
+            dOffs = min( dOffs, BD.VICE_MAXH - BD.VICE_MINH)
+         end
          BL.UpdateHCING( nRawId, dOffs)
       elseif Proc.Tail then
          local dOffs = Proc.Box:getMax():getX() - b3Solid:getMin():getX()
+         -- se pinze a 45° e pinza abbastanza materiale, compenso comunque, ma solo inclinazione morse
+         if not bIsVertClamps and dDeltaZClamp > BD.VICE_MINH and BD.VICE_MAXH then
+            dOffs = min( dOffs, BD.VICE_MAXH - BD.VICE_MINH)
+         end
          BL.UpdateTCING( nRawId, dOffs)
       elseif Proc.Box:getCenter():getX() > b3Solid:getCenter():getX() then
          local dOffs = b3Solid:getMax():getX() - Proc.Box:getMin():getX()

LuaLibs/ProcessLapJoint.lua

@@ -93,6 +93,8 @@
 --            Aggiunta funzione GetToolEntryAngle per determinare l'angolo di ingresso dell'utensile nella faccia.
 -- 2024/02/08 Ora i rabbet lungo X che guardano in basso sono sempre fatti con fresatura di lato per evitare di ruotare.
 -- 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
 
 -- Tabella per definizione modulo
 local ProcessLapJoint = {}
@@ -615,21 +617,52 @@ end
 local function UpdateEncumbrance( Proc, nRawId, b3Raw, b3Solid)
    -- verifico siano una o due facce
    if Proc.Fct > 2 then return end
+
    -- eventuale segnalazione ingombro di testa o coda
    local dMinHIng = min( 0.5 * BD.VICE_MINH, 0.5 * b3Raw:getDimZ())
    local dMinZ = max( BD.MIN_HEIGHT, 0.35 * b3Raw:getDimZ())
-   if Proc.Box:getDimZ() > dMinHIng and Proc.Box:getMin():getZ() < b3Raw:getMin():getZ() + dMinZ then
+   -- calcolo punto massimo in Z fino a dove considerare il pinzaggio. Minimo tra pinzaggio massimo e altezza pezzo 
+   local dMaxHZ = b3Raw:getMin():getZ() + min( BD.VICE_MAXH or BD.MAX_HEIGHT, b3Raw:getDimZ())
+   -- punto massimo in Z considerando anche la Z della feature
+   local dMaxHZFeat = min( dMaxHZ, Proc.Box:getMax():getZ())
+   -- dimensione Z del pinzaggio (differenza massima Z pinzabile e box feature)
+   local dDeltaZClamp = ( ( dMaxHZ - b3Raw:getMin():getZ()) - max( 0, dMaxHZFeat - Proc.Box:getMin():getZ()))
+   -- se pinzaggio minimo è come il massimo (oppure come l'altezza massima del pezzo) significa che è verticale
+   local bIsVertClamps = BD.VICE_MINH > BD.MAX_HEIGHT - 100 * GEO.EPS_SMALL
+
+   -- condizioni per limitare pinzaggio testa/coda
+   local bUpdateIng = true
+   -- se dimensione del box della feature maggiore di metà pinzaggio minimo o metà spessore pezzo
+   bUpdateIng = bUpdateIng and Proc.Box:getDimZ() > dMinHIng
+   -- se la feature si trova più in basso del minimo pinzabile in Z o il 35% dello spessore pezzo
+   bUpdateIng = bUpdateIng and Proc.Box:getMin():getZ() < b3Raw:getMin():getZ() + dMinZ
+   -- se feature è al di sotto del pinzaggio massimo
+   bUpdateIng = bUpdateIng and Proc.Box:getMin():getZ() < dMaxHZ
+   -- se ho le morse verticali, o se la feature è in centro o verso alto, controllo se non prendo abbastanza.
+   if bIsVertClamps or ( Proc.Box:getMin():getZ() - b3Raw:getMin():getZ()) > BD.MIN_HEIGHT  then
+      bUpdateIng = bUpdateIng and dDeltaZClamp < BD.VICE_MINH
+   end
+
+   if bUpdateIng then
       if Proc.Head then
          local dOffs = b3Solid:getMax():getX() - Proc.Box:getMin():getX()
+         -- se pinze a 45° e pinza abbastanza materiale, compenso comunque, ma solo inclinazione morse
+         if not bIsVertClamps and dDeltaZClamp > BD.VICE_MINH and BD.VICE_MAXH then
+            dOffs = min( dOffs, BD.VICE_MAXH - BD.VICE_MINH)
+         end
          BL.UpdateHCING( nRawId, dOffs)
       elseif Proc.Tail then
          local dOffs = Proc.Box:getMax():getX() - b3Solid:getMin():getX()
+         -- se pinze a 45° e pinza abbastanza materiale, compenso comunque, ma solo inclinazione morse
+         if not bIsVertClamps and dDeltaZClamp > BD.VICE_MINH and BD.VICE_MAXH then
+            dOffs = min( dOffs, BD.VICE_MAXH - BD.VICE_MINH)
+         end
          BL.UpdateTCING( nRawId, dOffs)
-      elseif Proc.Fct > 1 and Proc.Box:getCenter():getX() > b3Solid:getCenter():getX() then
+      elseif Proc.Box:getCenter():getX() > b3Solid:getCenter():getX() then
          local dOffs = b3Solid:getMax():getX() - Proc.Box:getMin():getX()
          local dDist = b3Solid:getMax():getX() - Proc.Box:getMax():getX()
-         -- sempre concavo aumento la distanza (rimane una punta...)
-         dDist = dDist + 10 
+         -- se concavo aumento la distanza (rimane una punta...)
+         --if dAngT < 0 then dDist = dDist + 10 end
          BL.UpdateHCING( nRawId, dOffs, dDist)
       end
    end
@@ -5256,8 +5289,8 @@ local function MakeMoreFaces( Proc, nPhase, nRawId, nPartId, dOvmHead, bSinglePa
                            dCollSic = BL.CalcCollisionSafety( tvtNx[2])
                            local dMachDepth = dFacElev + dCollSic
                            local frFacRec, dFacDim1, dFacDim2 = EgtSurfTmFacetMinAreaRectangle( Proc.Id, nFacInd, GDB_ID.ROOT)
-                           -- limito il diametro utensile massimo a 100 per queste lavorazioni
-                           dToolTargetDiam = min( BD.MAXDIAM_POCK_CORNER, 100)
+                           -- limito il diametro utensile massimo a 201 per queste lavorazioni
+                           dToolTargetDiam = min( BD.MAXDIAM_POCK_CORNER, 201)
                            -- se è 4 facce devo capire quale è il lato libero e settare dH e dV di conseguenza
                            if Proc.Fct == 4 then
                               local vAdj = {}
@@ -5291,7 +5324,7 @@ local function MakeMoreFaces( Proc, nPhase, nRawId, nPartId, dOvmHead, bSinglePa
                               dToolMaxDiam = min ( ( min( dFacDim1, dFacDim2) * 2) - 1, dToolTargetDiam)
                            -- in tutti gli altri casi l'utensile dovrà essere grande al massimo come il lato più piccolo
                            else
-                              dToolMaxDiam = min ( dFacDim1, dFacDim2, dToolTargetDiam)
+                              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)

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