- in LapJoint migliorata spezzatura per feature lunghe rispetto al pezzo

LuaLibs/MachiningLib.lua

@@ -80,7 +80,7 @@ end
 -- setta ultimi testa e utensile utilizzati se compatibili con ottimizzazione testa
 local function ConfirmNextMachining()
    -- utensile corrente
-   local sToolUuid = EgtMdbGetCurrMachiningParam( MCH_MP.TUUID)
+   local sToolUuid = EgtGetMachiningParam( MCH_MP.TUUID)
    local sToolName = EgtTdbGetToolFromUUID( sToolUuid or '')
    EgtTdbSetCurrTool( sToolName or '')
    -- testa dell'utensile corrente
@@ -331,7 +331,7 @@ end
 
 ---------------------------------------------------------------------
 local function FindMachining( MachiningType, sType, Params, bTopHead, bDownHead, bExcludeH2, bExcludeH3, sSortingCriterion)
-   local bOptimizeHeads = BEAM and BEAM.BW and ( not sSortingCriterion or sSortingCriterion == '')
+   local bOptimizeHeads = ( not sSortingCriterion or sSortingCriterion == '')
    if bTopHead == nil and bDownHead == nil then
       bTopHead = true
       bDownHead = false

LuaLibs/ProcessDrill.lua

@@ -642,8 +642,8 @@ function ProcessDrill.Make( Proc, nPhase, nRawId, nPartId)
       local dStep = EgtGetMachiningParam( MCH_MP.STEP)
       local nNumStep = ceil( dDepth/dStep)
       local dRealStep = dDepth / nNumStep
-      -- Se nel penultimo step le punte si trovano più vicine del minimo ( MinDistX1X2 + Puntina centraggio H1 + puntina centraggio H2) ricalcolo facendo uno step in meno
-      if ( ( dLen / 2)  - ( dRealStep * (nNumStep - 1))) * 2 < ( 40 + 10 + 10) then
+      -- Se foro passante e nel penultimo step le punte si trovano più vicine del minimo ( MinDistX1X2 + Puntina centraggio H1 + puntina centraggio H2) ricalcolo facendo uno step in meno
+      if bOpen and ( nNumStep > 1) and ( ( dLen / 2)  - ( dRealStep * (nNumStep - 1))) * 2 < ( 40 + 10 + 10) then
          dRealStep = ceil( dDepth / (nNumStep - 1))
          EgtSetMachiningParam( MCH_MP.STEP, dRealStep)
          sMyWarn ='Warning in drill-double : step changed to ' .. tostring(dRealStep) .. 'mm'

LuaLibs/ProcessLapJoint.lua

@@ -6883,6 +6883,12 @@ local function MakeMoreFaces( Proc, nPhase, nRawId, nPartId, dOvmHead, bSinglePa
                                                            nil, nil, nil, b3Solid)
                if not bOk then return false, sWarn2 end
             end
+            -- dopo aver applicato gli antischeggia ricerco la svuotatura perchè l'ottimizzazione teste deve sapere quale è la lavorazione precedente
+            _, sPocketing, dMyTMaxDepth, dMyTDiam = VerifyPocket( Proc, dDiam, dFacElev + dCollSic, dMaxTotLen, sMchFind, bMillUp, bMillDown)
+            if not sPocketing and bMillUp then
+               _, sPocketing, dMyTMaxDepth, dMyTDiam = VerifyPocket( Proc, dDiam, dFacElev + dCollSic, dMaxTotLen, sMchFind)
+               bMillDown = false
+            end
             -- se smusso non esclusivo
             if nChamfer < 2 then
                -- eseguo la svuotatura della faccia principale, mi restituisce id utensile, il diametro utensile per il foro opzionale
@@ -7471,7 +7477,7 @@ function ProcessLapJoint.Make( Proc, nPhase, nRawId, nPartId, dOvmHead)
    end
    -- se lunghezza richiede spezzatura
    if ( Proc.Box:getDimX() > BD.LONGCUT_MAXLEN) or
-      ( Proc.Box:getDimX() > 0.7 * b3Solid:getDimX() and Proc.Box:getDimX() > BD.LONGCUT_ENDLEN) or
+      ( Proc.Box:getDimX() > 0.7 * b3Solid:getDimX() and ( b3Solid:getDimX() > ( BD.LEN_VERY_SHORT_PART or BD.LEN_SHORT_PART))) or
       ( ( nForceUseBladeOnNotContinueFace and nForceUseBladeOnNotContinueFace > 0) and ( Proc.Box:getDimX() > ( BD.LEN_SHORT_PART or 1000))) then
       -- una faccia
       if Proc.Fct == 1 then