- Implementato attacco esterno se tasca 4 facce sulla coda ma nessun pezzo successivo

2.6c12.6c12.6c12.6c12.6c12.6c1

LuaLibs/FeatureTopology.lua

@@ -214,6 +214,7 @@ function FeatureTopology.Classify( Proc, b3Raw)
    elseif Proc.Fct == 2 and bAllAnglesConcave and ( Proc.AffectedFaces.Left or Proc.AffectedFaces.Right) and ( Proc.AffectedFaces.Front or Proc.AffectedFaces.Back) then
       sFamily = 'Rabbet'
       bIsThrough = true
+   -- birdsmouth
    elseif Proc.Fct == 2 and bAllAnglesConcave then
       sFamily = 'Groove'
       bIsThrough = true

LuaLibs/MachiningLib.lua

@@ -12,6 +12,7 @@
 -- 2024/01/19 In FindSawing aggiunto parametro opzionale bConsiderCSimmEncumberance per considerare l'ingombro dell'asse C nel massimo materiale (default false).
 -- 2024/01/23 Nella GetMachinings vengono ora raccolti i parametri utensile necessari per i VerifyTool, scritti direttamente nella tabella Machining.Tool.
 --            Le lavorazioni possono essere ora ordinate per dimensioni utensile (Longest, Shortest, Biggest, Smallest) se passato l'apposito parametro SortingCriterion in FindMachining. Al momento implementato solo per FindSawing.
+-- 2024/03/01 In VerifyPocketing implementato l'ordinamento per dimensioni utensile.
 
 -- Tabella per definizione modulo
 local MachiningLib = {}
@@ -490,8 +491,8 @@ function MachiningLib.FindMilling( sType, dDepth, sTuuidMstr, dMaxDiam, dMaxTotL
 end
 
 ---------------------------------------------------------------------
-function MachiningLib.FindPocketing( sType, dMaxDiam, dDepth, dMaxTotLen, bTopHead, bDownHead, bExcludeH2, bExcludeH3)
-   return FindMachining( MCH_MY.POCKETING, sType, { MaxDiam = dMaxDiam, Depth = dDepth, MaxTotLen = dMaxTotLen}, bTopHead, bDownHead, bExcludeH2, bExcludeH3)
+function MachiningLib.FindPocketing( sType, dMaxDiam, dDepth, dMaxTotLen, bTopHead, bDownHead, bExcludeH2, bExcludeH3, sSortingCriterion)
+   return FindMachining( MCH_MY.POCKETING, sType, { MaxDiam = dMaxDiam, Depth = dDepth, MaxTotLen = dMaxTotLen}, bTopHead, bDownHead, bExcludeH2, bExcludeH3, sSortingCriterion)
 end
 
 ---------------------------------------------------------------------

LuaLibs/ProcessLapJoint.lua

@@ -97,6 +97,8 @@
 --            Rimosso un caso di controllo per HCING/TCING
 -- 2024/02/29 In MakeMoreFaces passato b3Solid alla funzione ManageAntiSplintByMill
 -- 2024/02/29 In lapjoint 2 facce (TestTwoFacesDownHead) migliorata la scelta della lama da sotto.
+-- 2024/03/01 Migliorata VerifyPocket.
+-- 2024/03/04 Implementato attacco esterno se tasca 4 facce sulla coda ma nessun pezzo successivo.
 
 -- Tabella per definizione modulo
 local ProcessLapJoint = {}
@@ -366,11 +368,7 @@ local function VerifyPocket( Proc, dDiam, dDepth, dMaxTotLen, sMchFindMaster, bP
    local sPocketing
    if dDepth then
       sPocketing = ML.FindPocketing( sMchFind, dDiam, dDepth, dMaxTotLen, bPocketUp, bPocketDown) or
-                   ML.FindPocketing( sMchFind, dDiam, 0.8 * dDepth, dMaxTotLen, bPocketUp, bPocketDown) or
-                   ML.FindPocketing( sMchFind, dDiam, 0.7 * dDepth, dMaxTotLen, bPocketUp, bPocketDown) or
-                   ML.FindPocketing( sMchFind, dDiam, 0.6 * dDepth, dMaxTotLen, bPocketUp, bPocketDown) or
-                   ML.FindPocketing( sMchFind, dDiam, 0.5 * dDepth, dMaxTotLen, bPocketUp, bPocketDown) or
-                   ML.FindPocketing( sMchFind, dDiam, 0.4 * dDepth, dMaxTotLen, bPocketUp, bPocketDown) or
+                   ML.FindPocketing( sMchFind, dDiam, 0, dMaxTotLen, bPocketUp, bPocketDown, nil, nil, 'Longest') or
                    ML.FindPocketing( sMchFind, dDiam, 0, dMaxTotLen)
    else
       sPocketing = ML.FindPocketing( sMchFind, dDiam, 0, dMaxTotLen)
@@ -5047,7 +5045,7 @@ local function MakeMoreFaces( Proc, nPhase, nRawId, nPartId, dOvmHead, bSinglePa
             local bMillUp = ( BD.DOWN_HEAD and vtN:getZ() > -0.259)
             local bMillDown = ( BD.DOWN_HEAD and vtN:getZ() < 0.342)
             -- settaggio voluto da Alessandro/Fabio (per fare angoli con fresa piccola)
-            sMchFind = 'Pocket'
+            local sMchFind = 'Pocket'
             local dDiam = min( dH, dV)
             local bTailOnSide = ( Proc.Box:getMin():getX() - b3Solid:getMin():getX() < 0.1 and not Proc.Tail and not bAllWithEndCap)
             if ( Proc.Fct == 1) or (( Proc.Fct == 2 or Proc.Fct == 3) and bIsL) or ((( Proc.Fct == 3 and bIsU) or ( Proc.Fct == 4 and not bTailOnSide)) and bSinglePart) then
@@ -5539,6 +5537,11 @@ local function MakeMoreFaces( Proc, nPhase, nRawId, nPartId, dOvmHead, bSinglePa
                   dMachiningDepth = dFacElev + dCollSic
                end
                local bOk, sWarn2
+               local dDistToNextPiece = BL.GetDistanceToNextPart( nRawId, nPhase)
+               -- se avevo escluso l'attacco da fuori per non rovinare il pezzo successivo, riverifico con il diametro fresa effettivo
+               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)
                if not bOk then return false, sWarn2 end
                if sWarn2 then