diff --git a/LuaLibs/ProcessDrill.lua b/LuaLibs/ProcessDrill.lua
index 6f318eb..2e3714c 100644
--- a/LuaLibs/ProcessDrill.lua
+++ b/LuaLibs/ProcessDrill.lua
@@ -14,6 +14,7 @@
 -- 2022/07/27 Aggiunta la gestione del tipo di foratura "AngleDrill" per fori molto inclinati
 -- 2022/08/18 Aggiunta gestione macchine con testa da sotto e punta disabilitata.
 -- 2022/10/25 Nella funzione Split aggiunto il controllo che le facce di ingresso e uscita siano differenti (potrebbe succedere per fori molto corti). Modifica importatore in futuro.
+-- 2022/11/23 Aggiunta la gestione dei fori con angolo < 30 gradi, per i quali si usa la testa della macchina per accorciare l'utile di lavoro.
 
 -- Tabella per definizione modulo
 local ProcessDrill = {}
@@ -267,7 +268,7 @@ function ProcessDrill.Make( Proc, nPhase, nRawId, nPartId)
    local nErrorCode = 0
    -- abilitazione foratura da sotto
    local bDrillDown = ( bDownDrill and ( Proc.Down or vtExtr:getZ() < -0.1 or vtExtr:getZ() < 0.259))
-   local bDrillUp = ( bDownDrill and vtExtr:getZ() > -0.5)
+   local bDrillUp = ( bDownDrill and vtExtr:getZ() > -0.421)
    -- primo gruppo di controlli con lunghezza utensile pari a metà foro se passante
    -- recupero la lavorazione
    local sDrilling, sType, dMaxDepth, dMaxToolLength, dToolDiam, dDiamTh, dToolFreeLen = ML.FindDrilling( dDiam, dCheckDepth, bDrillUp, bDrillDown)
@@ -370,10 +371,14 @@ function ProcessDrill.Make( Proc, nPhase, nRawId, nPartId)
    -- Calcolo acciorciamento affondamento utile per evitare collisione portautensile con faccia
    local TgA = CosB / sqrt( 1 - CosB * CosB)
    local dSubL = ( dDiamTh / 2 + ( Proc.Diam - dToolDiam) / 2 + 2) * TgA
+   -- Per fori molto inclinati ( < 30 gradi) si usa la testa della macchina per l'accorciamento. Fast esclusa
+   if BD.C_SIMM and CosB > 0.866  then
+      dSubL = ( 190 / 2 + ( Proc.Diam - dToolDiam) / 2 + 2) * TgA - 96
+   end
    local dMaxDepthOri = dMaxDepth
-   dMaxDepth = min( dMaxDepth, dToolFreeLen - dSubL)
+   dMaxDepth = min( dMaxDepth, max( dToolFreeLen - dSubL, 0))
    -- Verifico inclinazione foro nei limiti
-   local bTryDrill = ( CosB < BD.DRILL_VX_MAX)
+   local bTryDrill = EgtIf( dMaxDepth > 0, ( CosB < BD.DRILL_VX_MAX), false)
    if ( CosB > 0.8 * BD.DRILL_VX_MAX and CosB < BD.DRILL_VX_MAX_ANGLEDRILL) then
       -- cerco le forature speciali AngleDrill
       local sDrilling3, sType3, dMaxDepth3 = ML.FindAngleDrilling( dDiam, dCheckDepth, bDrillUp, bDrillDown)