- In LapJoint -> VerifyPocket, se topologia pocket, forzata ricerca fresa che possa lavorare di testa.

LuaLibs/WProcessLapJoint.lua

@@ -31,6 +31,7 @@
 -- 2023/09/21 In MakeByMill modificato SCC per correggere caso con lama su testa fresa.
 -- 2023/10/02 Aggiunta segnalazione lavorazione tipo Side non trovata.
 -- 2023/10/30 In VerifyPocket, per tasche in doppio forzata ricerca fresa che possa lavorare di testa.
+-- 2023/10/31 In VerifyPocket, se topologia pocket, forzata ricerca fresa che possa lavorare di testa.
 
 -- Tabella per definizione modulo
 local WPL = {}
@@ -2198,13 +2199,14 @@ local function VerifyPocket( Proc, dMaxDiameter, dElev, nRawId, dH, dV)
    end
 
    local bForceClosedPocket = false
+   local bExcludeNoTipFeed = Proc.Topology == 'Pocket'
    -- recupero la lavorazione
    local bUseDElevToFindPocketing = true
-   local sPocketing = WM.FindPocketing( 'Pocket', dMaxDiameter, dElev)
+   local sPocketing = WM.FindPocketing( 'Pocket', dMaxDiameter, dElev, nil, nil, bExcludeNoTipFeed)
    -- se tasca troppo profonda cerco senza elevazione e limiterò la profondità
    if not sPocketing then
       bUseDElevToFindPocketing = false
-      sPocketing = WM.FindPocketing( 'Pocket', dMaxDiameter)
+      sPocketing = WM.FindPocketing( 'Pocket', dMaxDiameter, nil, nil, nil, bExcludeNoTipFeed)
    end
    local dMillDiam = 20
    local dMaxDepth = 0
@@ -2242,10 +2244,10 @@ local function VerifyPocket( Proc, dMaxDiameter, dElev, nRawId, dH, dV)
    if bForceClosedPocket then
       dMaxDiameter = min( dH, dV)
       bUseDElevToFindPocketing = true
-      sPocketing = WM.FindPocketing( 'Pocket', dMaxDiameter, dElev)
+      sPocketing = WM.FindPocketing( 'Pocket', dMaxDiameter, dElev, nil, nil, bExcludeNoTipFeed)
       if not sPocketing then
          bUseDElevToFindPocketing = false
-         sPocketing = WM.FindPocketing( 'Pocket', dMaxDiameter)
+         sPocketing = WM.FindPocketing( 'Pocket', dMaxDiameter, nil, nil, nil, bExcludeNoTipFeed)
       end
       -- se doppio cerco una lavorazione adatta
       if Proc.Double and Proc.Double == 2 then