diff --git a/LuaLibs/WallExec.lua b/LuaLibs/WallExec.lua
index dd1fbfd..ff4eb3b 100644
--- a/LuaLibs/WallExec.lua
+++ b/LuaLibs/WallExec.lua
@@ -370,11 +370,12 @@ local function SortMach( nPhase, PrevMch, nPartId, nType, sStartName, bExistName
 
    -- ordino le lavorazioni (in gruppi di max 1000 entità)
    --EgtOutLog('Dati per ShortestPath :')
+   local SP_MAX_ENT = 10000
    local nBase = 0
    while nBase < #TabCut do
       -- calcolo ordinamento
       EgtSpInit()
-      for i = 1, min( #TabCut - nBase, 1000) do
+      for i = 1, min( #TabCut - nBase, SP_MAX_ENT) do
          local ptS = TabCut[nBase+i].Start
          local ptE = TabCut[nBase+i].End
          EgtSpAddPoint( ptS:getX(), ptS:getY(), ptS:getZ(), 0, 0,
@@ -395,7 +396,7 @@ local function SortMach( nPhase, PrevMch, nPartId, nType, sStartName, bExistName
          end
       end
       -- incremento la base
-      nBase = nBase + 1000
+      nBase = nBase + SP_MAX_ENT
    end
 
    return PrevMch