From 99140a545a758236ec7ce387f09a78c2920000b8 Mon Sep 17 00:00:00 2001
From: DarioS <dario.sassi@egaltech.com>
Date: Wed, 8 Sep 2021 13:06:59 +0200
Subject: [PATCH] =?UTF-8?q?DataBeam=20:=20-=20aumentata=20lunghezza=20mass?=
 =?UTF-8?q?ima=20di=20travi=20con=20barra=20pi=C3=B9=20lunga=20in=20Vista?=
 =?UTF-8?q?=20-=20scelta=20attacco=20lama=20modificabile=20da=20parametro?=
 =?UTF-8?q?=20macchina=20(BD.KIOTP)=20-=20SCC=20di=20lama=20verticale=20su?=
 =?UTF-8?q?=20macchine=20con=20BD.C=5FSIMM=20ora=20tiene=20conto=20se=20ta?=
 =?UTF-8?q?glio=20sbieco=20nel=20piano.?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 BatchProcessNew.lua | 2 +-
 LuaLibs/BeamLib.lua | 6 ++++--
 2 files changed, 5 insertions(+), 3 deletions(-)

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