miglioramento e correzione gestione MaxElev per affondamento foro

LuaLibs/ProcessDrill.lua

@@ -396,17 +396,28 @@ function ProcessDrill.Make( Proc, nPhase, nRawId, nPartId)
    
    -- test
    local dMaxElev = dDepth
-   if Proc.MachineAfterHeadCutId or Proc.MachineAfterTailCutId then
+   local dToolHolderExtraLength = 0
+   local dSafetyExtraLength = 0
+   if ( Proc.MachineAfterHeadCutId and vtExtr:getX() > 0) or ( Proc.MachineAfterTailCutId and vtExtr:getX() < 0) then
       local ptCen = EgtCP( AuxId, GDB_RT.GLOB)
-      if ( Proc.MachineAfterHeadCutId and vtExtr:getX() < 0) or ( Proc.MachineAfterTailCutId and vtExtr:getX() > 0) then
-         local vtMove = -vtExtr * dLen
-         ptCen:move( vtMove)
-      end
       local bIntersectionOk, _, vDistance = EgtLineSurfTmInters( ptCen, -vtExtr, Proc.MachineAfterHeadCutId or Proc.MachineAfterTailCutId, GDB_RT.GLOB)
-      if bIntersectionOk == true then
-         dMaxElev = abs( vDistance[1])
+      dHoleEndToCutDistance = vDistance[1]
+      if bIntersectionOk then
+         if dHoleEndToCutDistance > 0 then
+            dMaxElev = dLen - dHoleEndToCutDistance + dToolHolderExtraLength + dSafetyExtraLength
+         elseif dHoleEndToCutDistance < 0 then
+            dMaxElev = dHoleEndToCutDistance + dToolHolderExtraLength + dSafetyExtraLength
+         end
       end
    end
+--         local vtMove = -vtExtr * dLen
+--         ptCen:move( vtMove)
+--      end
+--      local bIntersectionOk, _, vDistance = EgtLineSurfTmInters( ptCen, -vtExtr, Proc.MachineAfterHeadCutId or Proc.MachineAfterTailCutId, GDB_RT.GLOB)
+--      if bIntersectionOk == true then
+--         dMaxElev = dDepth - abs( vDistance[1])
+--      end
+--   end
    -- fine test
    
    if dMaxElev > dMaxDepth + 10 * GEO.EPS_SMALL then