Window :

- modifica foro maniglia per usare la fresa

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