Merge branch 'develop' into feature/MirroredMachinings

LuaLibs/WProcessFreeContour.lua

@@ -21,6 +21,7 @@
 -- 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/06/26 Funzione Is3EdgesApprox spostata in WallLib.
+-- 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 = {}
@@ -1915,7 +1916,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)