diff --git a/BatchProcessNew.lua b/BatchProcessNew.lua
index 3d551a4..884a700 100644
--- a/BatchProcessNew.lua
+++ b/BatchProcessNew.lua
@@ -259,7 +259,7 @@ if bToProcess then
          end
          -- Assegno lunghezza della barra
          dBarLen = vBeam[1].Box:getDimX() + 10
-         if dBarLen < 2000 then
+         if dBarLen < 2200 then
             dBarLen = dBarLen + 1600
          end
          -- Assegno posizione prima ed unica trave
diff --git a/LuaLibs/BeamLib.lua b/LuaLibs/BeamLib.lua
index 3e95362..430878a 100644
--- a/LuaLibs/BeamLib.lua
+++ b/LuaLibs/BeamLib.lua
@@ -958,8 +958,10 @@ function BeamLib.MakeOneFaceBySaw( nSurfId, nFacet, sCutting, dSawDiam, Par5, dV
    local dLenLi2 = abs( dLi2Tang)
    local dLenLo2 = abs( dLo2Tang)
    -- scelgo l'attacco più conveniente (se non taglio praticamente longitudinale)
+   local Ktp = 1.1
+   if BD.KIOTP then Ktp = BD.KIOTP end
    if abs( vtTg:getX()) < 0.9848 and
-      ( ( abs( vtTg:getZ()) < 0.17 and ( vtV1:getZ() < -0.5 or vtV2:getZ() < -0.5)) or ( 1.1*dLenLi2 < dLenLi and 1.1*dLenLo2 < dLenLo) or 1.1*( dLenLi2 + dLenLo2) < ( dLenLi + dLenLo)) then
+      ( ( abs( vtTg:getZ()) < 0.17 and ( vtV1:getZ() < -0.5 or vtV2:getZ() < -0.5)) or ( Ktp*dLenLi2 < dLenLi and Ktp*dLenLo2 < dLenLo) or Ktp*( dLenLi2 + dLenLo2) < ( dLenLi + dLenLo)) then
       dLiTang, dLiPerp, dLoTang, dLoPerp = dLi2Tang, dLi2Perp, dLo2Tang, dLo2Perp
    end
    -- posizione braccio
@@ -973,7 +975,7 @@ function BeamLib.MakeOneFaceBySaw( nSurfId, nFacet, sCutting, dSawDiam, Par5, dV
       end
    end
    -- per macchine PF se possibile preferisco tenere la testa più davanti
-   if BD.C_SIMM and abs( vtTg:getZ()) < 0.01 then
+   if BD.C_SIMM and abs( vtTg:getZ()) < 0.01 and abs( vtTg:getX()) < 0.5 then
       if nSCC == MCH_SCC.ADIR_YP then
          nSCC = MCH_SCC.ADIR_YM
       end