DataBeam :

- piccole correzioni varie.

LuaLibs/ProcessLapJoint.lua

@@ -3249,7 +3249,6 @@ local function MakePocket( Proc, nPartId, ptPs, tvtN, nFaceRef, sMchFind, nUseRo
    end
    local dCollSic = 2 * BD.COLL_SIC
    -- calcolo il diametro utensile
-   local dDiamTool
    local dFaceDiamTool
    if tDimAndRef then
       -- prendo il valore dalle dimensioni minime delle facce
@@ -3272,14 +3271,16 @@ local function MakePocket( Proc, nPartId, ptPs, tvtN, nFaceRef, sMchFind, nUseRo
       EgtOutLog( sErr)
       return false, sErr
    end
-   dDiamTool = 20
-   local dMaxDepth = 0
    local sTuuidPk
+   local dDiamTool = 20
+   local dMaxDepth = 0
+   local bTipMill = false
    if EgtMdbSetCurrMachining( sPocketing) then
       sTuuidPk = EgtMdbGetCurrMachiningParam( MCH_MP.TUUID)
       if EgtTdbSetCurrTool( EgtTdbGetToolFromUUID( sTuuidPk) or '') then
-         dMaxDepth = ( EgtTdbGetCurrToolMaxDepth() or dMaxDepth)
-         dDiamTool = EgtTdbGetCurrToolParam( MCH_TP.DIAM)
+         dDiamTool = EgtTdbGetCurrToolParam( MCH_TP.DIAM) or dDiamTool
+         dMaxDepth = EgtTdbGetCurrToolMaxDepth() or dMaxDepth
+         bTipMill = (( EgtTdbGetCurrToolParam( MCH_TP.TIPFEED) or 0) > 1)
       end
    end
    -- se nome svuotatura non è stato ricalcolato, confronto il diametro utensile utilizzato con il minimo faccia e se non sono compatibili esco
@@ -3321,9 +3322,11 @@ local function MakePocket( Proc, nPartId, ptPs, tvtN, nFaceRef, sMchFind, nUseRo
       if bL and min( dH, dV) < 1.5 * dDiamTool then
          EgtSetMachiningParam( MCH_MP.SUBTYPE, MCH_POCK_SUB.ZIGZAG)
          EgtSetMachiningParam( MCH_MP.INVERT, false)
-         EgtSetMachiningParam( MCH_MP.LEADINTYPE, MCH_POCK_LI.HELIX)
-         EgtSetMachiningParam( MCH_MP.LITANG, dDiamTool)
-         EgtSetMachiningParam( MCH_MP.LIELEV, 2)
+         if not bTipMill then
+            EgtSetMachiningParam( MCH_MP.LEADINTYPE, MCH_POCK_LI.HELIX)
+            EgtSetMachiningParam( MCH_MP.LITANG, dDiamTool)
+            EgtSetMachiningParam( MCH_MP.LIELEV, 2)
+         end
       end
    end
    -- se elevazione superiore a massimo affondamento della fresa, riduco opportunamente