diff --git a/LuaLibs/WProcessFreeContour.lua b/LuaLibs/WProcessFreeContour.lua
index 52e3dc8..785dc81 100644
--- a/LuaLibs/WProcessFreeContour.lua
+++ b/LuaLibs/WProcessFreeContour.lua
@@ -20,6 +20,7 @@
 -- 2023/04/17 Lavorazione CleanCorner sempre forzata con lato di lavoro in centro.
 -- 2023/05/25 Funzioni EgtAddMachining sostituite da WM.AddMachining in modo da trascrivere le priorità da btl alle lavorazioni.
 -- 2023/06/06 Aggiunta gestione lavorazione per lamatura speciale affondata con Tool_ID specifico.
+-- 2023/07/26 In MakeByCut migliorata la scelta della fresa secondaria nel caso non sia disponibile una fresa di lunghezza sufficiente.
 
 -- Tabella per definizione modulo
 local WPF = {}
@@ -1999,7 +2000,13 @@ local function MakeByCut( Proc, nRawId, b3Raw)
    local sMilling, dMillMaxDepth = WM.FindMilling( 'FreeContour', dMaxWidth + WD.CUT_EXTRA, nil, nil, nil, nil, true)
    local sMilling2 = WM.FindMilling( 'FreeContour', nil, nil, nil, nil, nil, true)
    if not sMilling and ( not sSawing or bSlanting) then
-      sMilling = sMilling2
+      -- se non trovo una fresa di lunghezza sufficiente, prendo la più lunga disponibile
+      local sMillingMaxLength = WM.FindMilling( 'FreeContour', 0.8 * ( dMaxWidth + WD.CUT_EXTRA), nil, nil, nil, nil, true) or
+                        WM.FindMilling( 'FreeContour', 0.6 * ( dMaxWidth + WD.CUT_EXTRA), nil, nil, nil, nil, true) or
+                        WM.FindMilling( 'FreeContour', 0.4 * ( dMaxWidth + WD.CUT_EXTRA), nil, nil, nil, nil, true) or
+                        WM.FindMilling( 'FreeContour', 0.2 * ( dMaxWidth + WD.CUT_EXTRA), nil, nil, nil, nil, true) or
+                        WM.FindMilling( 'FreeContour', nil, nil, nil, nil, nil, true)
+      sMilling = sMillingMaxLength
       if not sMilling then
          local sErr = 'Error : milling not found in library'
          EgtOutLog( sErr)