From e6f4576fa8e22e7ba885267e9c67ed00bfc807a3 Mon Sep 17 00:00:00 2001
From: Annamaria Sassi <annamaria.sassi@egalware.com>
Date: Tue, 25 Aug 2026 10:41:47 +0200
Subject: [PATCH] Window : - modifica foro maniglia per usare la fresa

---
 CAMAuto/Strategies/Drilling.lua | 18 +++++++++++-------
 1 file changed, 11 insertions(+), 7 deletions(-)

diff --git a/CAMAuto/Strategies/Drilling.lua b/CAMAuto/Strategies/Drilling.lua
index f06dcfe..5c61dd8 100644
--- a/CAMAuto/Strategies/Drilling.lua
+++ b/CAMAuto/Strategies/Drilling.lua
@@ -82,8 +82,9 @@ function Drilling.Make( Proc, Part)
       return true
    end
    
-   -- provo a cercare una fresa che faccia una foratura
+   -- provo a cercare una fresa che faccia una svuotatura (considero diametro foro più grande di 1mm)
    ToolSearchParameters.sType = 'MILL_STD'
+   EgtModifyArcRadius( Proc.id, Proc.dDiameter / 2 + WinData.OFFSETRADHW)
    ToolSearchParameters.dMaxToolDiameter = Proc.dDiameter
    ToolSearchParameters.dElevation = Proc.dLength
    ToolSearchParameters.bIsVerticalHead = Proc.AffectedFaces.bTop
@@ -92,16 +93,19 @@ function Drilling.Make( Proc, Part)
    ToolInfo = MachiningLib.FindMill( Proc, ToolSearchParameters)
    -- se trovato utensile
    if ToolInfo.nToolIndex then
-      Machining.nType = MCH_OY.DRILLING
-      Machining.nToolIndex = ToolInfo.nToolIndex
-      Machining.sDepth = 'th'
+      Machining.nType = MCH_OY.POCKETING
+      Machining.nSubType = MCH_POCK_SUB.SPIRALOUT
+      Machining.LeadIn.nType = MCH_POCK_LI.HELIX
       Machining.Steps.dStep = TOOLS[ToolInfo.nToolIndex].dStep
+      Machining.Steps.dSideStep = TOOLS[ToolInfo.nToolIndex].dSideStep
+      Machining.nToolIndex = ToolInfo.nToolIndex
+      Machining.LeadIn.dTangentDistance = TOOLS[ToolInfo.nToolIndex].dDiameter/2
+      Machining.LeadIn.dElevation = TOOLS[ToolInfo.nToolIndex].dDiameter/2
+      Machining.sDepth = Proc.dLength
       Machining.Geometry = Proc.id
-      AuxiliaryData.bExecAfterProfile = IsDrillToMachineAfterProfile( Proc)
-      AuxiliaryData.bIsDrilling = true
+      AuxiliaryData.bIsPocketingDrill = true
       AuxiliaryData.nIndexMachining = 1
       AuxiliaryData.nPhase = MachiningLib.GetPhaseMach( Proc)
-      Machining.dStartSafetyLength = MachiningLib.GetDrillAdditionalSafeDistanceToRaw( Proc, Part, Machining)
       MachiningLib.AddNewMachining( Proc, Machining, AuxiliaryData)
       return true
    end