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

LuaLibs/WMachiningLib.lua

@@ -7,7 +7,7 @@
 -- 2023/07/13 In FindMilling, FindPocketing aggiunta la possibilità di limitare la ricerca lavorazioni alla sola testa specificata.
 -- 2023/10/18 In SetCurrMachiningAndTool sostituito controllo di utensile attivo con controllo utensile nel setup corrente.
 -- 2023/10/30 In FindPocketing aggiunto parametro per poter escludere le frese che non lavorano di testa.
--- 2023/10/31 In IsToolDoubleOk permessa una lunghezza inferiore di 5.5mm dell'utensile secondario rispetto al principale.
+-- 2023/10/31 In IsToolDoubleOk permessa una lunghezza lievemente inferiore dell'utensile secondario rispetto al principale.
 
 -- Tabella per definizione modulo
 local WMachiningLib = {}
@@ -228,10 +228,11 @@ function WMachiningLib.IsToolDoubleOk( sToolMasterName, sToolDoubleName)
    local bHasTipFeedDouble = EgtTdbGetCurrToolParam( MCH_TP.TIPFEED) ~= 0
    local dTMaxDepthOnSideDouble = EgtIf( bIsBladeDouble, EgtTdbGetCurrToolParam( MCH_TP.MAXMAT), min( EgtTdbGetCurrToolValInNotes( MCH_TP.USERNOTES, 'SIDEDEPTH', 'd') or 999, 0.5 * ( dTDiamDouble - dTDiamThDouble)))
    -- controllo che siano uguali ( permetto una leggera differenza di lunghezza)
+   local dMaxLengthDifference = 6.5
    bIsToolDoubleOk = bIsPrimaryHead and
                      ( bIsBlade == bIsBladeDouble) and
                      ( dTMaxMatDouble > dTMaxMat - 100 * GEO.EPS_SMALL) and
-                     ( dTMaxDepthDouble > dTMaxDepth - 5.5) and
+                     ( dTMaxDepthDouble > dTMaxDepth - dMaxLengthDifference) and
                      ( abs( dTDiam - dTDiamDouble) < 100 * GEO.EPS_SMALL) and
                      ( abs( dTDiamTh - dTDiamThDouble) < 100 * GEO.EPS_SMALL) and
                      ( bHasTipFeed == bHasTipFeedDouble) and