From 63133c881318b6b40682e4419f28e0d31ba6b2d0 Mon Sep 17 00:00:00 2001
From: "luca.mazzoleni" <luca.mazzoleni@egalware.com>
Date: Tue, 17 Mar 2026 09:57:48 +0100
Subject: [PATCH] - in BeamLib.GetToolfromMachining per le frese si leggono
 anche MaxDepth e StemDiameter. MaxDepth corretta se StemDiameter > Diameter -
 in LapJoint correzioni a Q02 per solo contorno

---
 LuaLibs/BeamLib.lua         | 4 ++++
 LuaLibs/ProcessLapJoint.lua | 9 ++++-----
 2 files changed, 8 insertions(+), 5 deletions(-)

diff --git a/LuaLibs/BeamLib.lua b/LuaLibs/BeamLib.lua
index 892a29a..5b39da5 100644
--- a/LuaLibs/BeamLib.lua
+++ b/LuaLibs/BeamLib.lua
@@ -1393,7 +1393,11 @@ function BeamLib.GetToolFromMachining( sMachiningName)
             else
                Tool.IsOnAggregate = false
             end
+            Tool.StemDiameter = EgtTdbGetCurrToolParam( MCH_TP.STEMDIAM) or 0
             Tool.MaxDepth = EgtTdbGetCurrToolMaxDepth() or 0
+            if Tool.StemDiameter > Tool.Diameter + GEO.EPS_SMALL then
+               Tool.MaxDepth = Tool.MaxDepth - BD.COLL_SIC
+            end
          -- altri utensili al momento non previsti
          else
             error( 'Wrong tool type')
diff --git a/LuaLibs/ProcessLapJoint.lua b/LuaLibs/ProcessLapJoint.lua
index cee96c8..98fc381 100644
--- a/LuaLibs/ProcessLapJoint.lua
+++ b/LuaLibs/ProcessLapJoint.lua
@@ -2455,7 +2455,7 @@ local function MakeContourByMill( Proc, idContourPath, vtTunnelDirection, dTunne
    -- dati utensile
    local ToolOpposite = BL.GetToolFromMachining( sMillingOpposite)
 
-   local bOppositMillingReachesHalfDepth = ToolOpposite.MaxDepth > dTunnelDepth + dCollSic - dDimStrip
+   local bOppositMillingReachesHalfDepth = ToolOpposite.MaxDepth > dTunnelDepth / 2 + dCollSic - dDimStrip / 2
 
    -- applicazione lavorazione lato principale
    local sName = 'Contour_' .. ( EgtGetName( Proc.Id) or tostring( Proc.Id))
@@ -2510,7 +2510,7 @@ local function MakeContourByMill( Proc, idContourPath, vtTunnelDirection, dTunne
          dDepth = -dDimStrip / 2
       -- si arriva al massimo raggiungibile
       else
-         dDepth = Tool.MaxDepth - dTunnelDepth / 2
+         dDepth = Tool.MaxDepth - dTunnelDepth / 2 - dCollSic
          sWarn = 'Warning : incomplete'
       end
    -- non c'è lavorazione opposta
@@ -2520,7 +2520,7 @@ local function MakeContourByMill( Proc, idContourPath, vtTunnelDirection, dTunne
          dDepth = dTunnelDepth / 2 - dDimStrip
       -- si arriva al massimo raggiungibile
       else
-         dDepth = Tool.MaxDepth - dTunnelDepth / 2
+         dDepth = Tool.MaxDepth - dTunnelDepth / 2 - dCollSic
          sWarn = 'Warning : incomplete'
       end
    end
@@ -2598,7 +2598,7 @@ local function MakeContourByMill( Proc, idContourPath, vtTunnelDirection, dTunne
          dDepth = -dDimStrip / 2
       -- si arriva al massimo raggiungibile
       else
-         dDepth = Tool.MaxDepth - dTunnelDepth / 2
+         dDepth = Tool.MaxDepth - dTunnelDepth / 2 - dCollSic
          sWarn = 'Warning : incomplete'
       end
       EgtSetMachiningParam( MCH_MP.DEPTH, dDepth)
@@ -2622,7 +2622,6 @@ local function MakeContourByMill( Proc, idContourPath, vtTunnelDirection, dTunne
       end
    end
 
-
    if bMillingOk or ( bOppositeMillingNeeded and bMillingOppositeOk) then
       return true, sWarn
    else