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

2024-03-04 09:48:47 +01:00
1 changed files with 7 additions and 1 deletions
@@ -98,6 +98,7 @@
 -- 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 = {}
@@ -5044,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
@@ -5536,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