- in ProcessDrill sistemato LastStep in caso di DrillPocket: ora si copia la lavorazione e si toglie il doppio

3.1c1

LuaLibs/BeamExec.lua

@@ -304,7 +304,7 @@ local function NeedTopologyFeature( Proc)
 end
 
 -------------------------------------------------------------------------------------------------------------
-local function CollectFeatures( PartId, b3Raw, dCurrOvmH, dCurrOvmT)
+local function CollectFeatures( PartId, b3Raw, dCurrOvmH, dCurrOvmT, bCreatePreDrill)
    local dRawW = b3Raw:getDimY()
    local dRawH = b3Raw:getDimZ()
    -- recupero le feature
@@ -365,7 +365,7 @@ local function CollectFeatures( PartId, b3Raw, dCurrOvmH, dCurrOvmT)
                      -- assegno diametro e facce di ingresso e uscita (dati tabelle sempre per riferimento)
                      Proc.Diam, Proc.Len, Proc.Fcs, Proc.Fce = Drill.GetData( Proc, b3Raw)
                      -- verifico se devo inserire i prefori
-                     if Drill.IsPredrillNeeded( Proc) then
+                     if Drill.IsPredrillNeeded( Proc) and bCreatePreDrill then
                         local bAddProc, PredrillProc= Drill.AddPredrillFromDrillProc( Proc)
                         if bAddProc then
                            table.insert( vProc, PredrillProc)
@@ -949,13 +949,6 @@ local function OrderFeatures( vProc, b3Raw, nPartId)
       if Hcut.Identify( B2) then
          return false
       end
-      -- se uno dipende dall'altro
-      if B1.Dependency and B1.Dependency.ExecBefore and B1.Dependency.ExecBefore.Id == B2.Id then
-         return true
-      end
-      if B2.Dependency and B2.Dependency.ExecBefore and B2.Dependency.ExecBefore.Id == B1.Id then
-         return false
-      end
       -- se uno di testa e non l'altro, privilegio quello di testa (a meno che non siano dei fori)
       if B1.Head ~= B2.Head  and not Drill.Identify(B1) and not Drill.Identify(B2) then
          return B1.Head
@@ -2315,7 +2308,7 @@ function BeamExec.ProcessFeatures()
       local dCurrOvmH = EgtGetInfo( nRawId, 'HOVM', 'd') or 0
       local dCurrOvmT = EgtGetInfo( nRawId, 'TOVM', 'd') or 0
       -- recupero le feature di lavorazione della trave
-      local vProc = CollectFeatures( nPartId, b3Raw, dCurrOvmH, dCurrOvmT)
+      local vProc = CollectFeatures( nPartId, b3Raw, dCurrOvmH, dCurrOvmT, true)
       -- recupero informazioni ausiliarie feature e dipendenze tra feature stesse
       GetFeatureInfoAndDependency( vProc, b3Raw, nPartId)
 

LuaLibs/ProcessDrill.lua

@@ -37,6 +37,7 @@ EgtOutLog( ' ProcessDrill started', 1)
 -- Dati
 local BD = require( 'BeamData')
 local ML = require( 'MachiningLib')
+local FreeContour = require( 'ProcessFreeContour')
 
 ---------------------------------------------------------------------
 -- Riconoscimento della feature
@@ -345,8 +346,6 @@ end
 function ProcessDrill.Make( Proc, nPhase, nRawId, nPartId, dCurrOvmH)
    -- Se forzato contorno foro forzo richiamo a FreeContour e uscita dalla funzione
    if EgtGetInfo( Proc.Id, 'Q04', 'i') == 1 then
-      _G.package.loaded.ProcessFreeContour = nil
-      local FreeContour = require( 'ProcessFreeContour')
       return FreeContour.Make( Proc, nPhase, nRawId, nPartId, dCurrOvmH)
    end
    -- default per costanti
@@ -387,10 +386,11 @@ function ProcessDrill.Make( Proc, nPhase, nRawId, nPartId, dCurrOvmH)
       EgtOutLog( sErr)
       return false, sErr
    end
+   local nFac, CosB
    -- se non già richiesta inversione e invertibile
    if not bToInvert and Proc.Flg == 1 and -vtExtr:getZ() >= BD.DRILL_VZ_MIN then
       -- se il foro è cieco o dalla faccia sotto o troppo inclinato all'inizio, lo inverto
-      local nFac, CosB, _ = GetHoleStartData( ptCen, vtExtr, b3Solid)
+      nFac, CosB, _ = GetHoleStartData( ptCen, vtExtr, b3Solid)
       if Proc.Fcs == 0 or (( nFac == 2 or CosB > BD.DRILL_VX_MAX) and bOpen) then
          bToInvert = true
       end
@@ -422,10 +422,11 @@ function ProcessDrill.Make( Proc, nPhase, nRawId, nPartId, dCurrOvmH)
    -- 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, bExcludeH2, bDrillAngTrasm, Proc.IsPredrill)
-
+   local dMaxDepthOri
+   local vFaces
    if sDrilling then
       -- Determino la faccia di inizio del foro e dati correlati 
-      local nFac, CosB, vFaces = GetHoleStartData( ptCen, vtExtr, b3Solid)
+      nFac, CosB, vFaces = GetHoleStartData( ptCen, vtExtr, b3Solid)
       -- 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 + 4) * TgA
@@ -433,7 +434,7 @@ function ProcessDrill.Make( Proc, nPhase, nRawId, nPartId, dCurrOvmH)
       if BD.C_SIMM and CosB > 0.866  then
          dSubL = ( 190 / 2 + ( Proc.Diam - dToolDiam) / 2 + 4) * TgA - 116
       end
-      local dMaxDepthOri = dMaxDepth
+      dMaxDepthOri = dMaxDepth
       dMaxDepth = min( dMaxDepth, max( dToolFreeLen - dSubL, 0))
       -- se utensile scelto non arriva in fondo, cerco il più lungo
       if dMaxDepth < GEO.EPS_SMALL * 10 then
@@ -715,23 +716,41 @@ function ProcessDrill.Make( Proc, nPhase, nRawId, nPartId, dCurrOvmH)
       else
          -- se DrillPocket passante in doppio si fa lavorazione aggiuntiva dell'ultimo step
          if Proc.Double and Proc.Double > 0 and ( sType == 'Pocket_AT' or sType == 'Pocket') and bOpen then
-            local nAddGrpId = BL.GetAddGroup( Proc.PartId)
-            local idProcLastStep = EgtCopyGlob( Proc.Id, nAddGrpId)
-            local idAuxIdLastStep = EgtCopyGlob( AuxId, nAddGrpId)
-            EgtModifyCurveThickness( idAuxIdLastStep, -dLastStepDepth)
-            local ProcLastStep = BL.TableCopyDeep( Proc)
-            ProcLastStep.Id = idProcLastStep
-            ProcLastStep.Flg = 1
-            ProcLastStep.Double = 0
-            ProcLastStep.dCustomMaxElev = dLastStepDepth - dDepth
-            local bOkLastStep, sWarnLastStep = ProcessDrill.Make( ProcLastStep, nPhase, nRawId, nPartId)
-            if not bOkLastStep then
-               sWarnLastStep = 'Drillpocket double : incomplete, last step missing'
+            local idMachiningLastStep = EgtCopyMachining( EgtIf( EgtStartsWith( sType, 'Predrill'), 'Predrill_', 'Drill_') .. ( EgtGetName( Proc.Id) or tostring( Proc.Id)), sName)
+            EgtSetCurrMachining( idMachiningLastStep)
+            if dLastStepDepth  > dMaxDepth + 10 * GEO.EPS_SMALL then
+               sMyWarn = 'Warning in drill pocket last step: depth (' .. EgtNumToString( dLastStepDepth, 1) .. ') bigger than max tool depth (' .. EgtNumToString( dMaxDepth, 1) .. ')'
+               dLastStepDepth = dMaxDepth
             end
-            local sPreviousWarn = sMyWarn or sWarn
-            if sWarnLastStep then
-               if not sPreviousWarn then sPreviousWarn = '' end
-               sMyWarn = EgtIf( #sPreviousWarn > 0, sPreviousWarn .. '\n' .. sWarnLastStep, sWarnLastStep)
+            local dMaxElevLastStep = dLastStepDepth - dDepth
+            sUserNotes = EgtSetValInNotes( sUserNotes, 'MaxElev', EgtNumToString( dMaxElevLastStep, 1))
+            EgtSetMachiningParam( MCH_MP.DEPTH, dLastStepDepth)
+            sUserNotes = EgtSetValInNotes( sUserNotes, 'DOUBLE', '')
+            sUserNotes = EgtSetValInNotes( sUserNotes, 'StartZmax', '')
+            EgtSetMachiningParam( MCH_MP.USERNOTES, sUserNotes)
+            local bOkLastStep = ML.ApplyMachining( true, false)
+            if not bOkLastStep and bDownDrill and bOpen and abs( Proc.Flg) == 1 then
+               if sType == 'Drill' or sType == 'Drill_H2' or sType == 'AngleDrill' then
+                  EgtSetMachiningParam( MCH_MP.INVERT, true)
+               else
+                  EgtSetMachiningParam( MCH_MP.TOOLINVERT, true)
+               end
+               bOkLastStep = ML.ApplyMachining( true, false)
+            end
+            if not bOkLastStep then
+               local _, sErr = EgtGetLastMachMgrError()
+               EgtSetOperationMode( nMchId, false)
+               return false, sErr
+            else
+               local _, sWarnLastStep = EgtGetMachMgrWarning( 0)
+               if not bOkLastStep then
+                  sWarnLastStep = 'Drillpocket double : incomplete, last step missing'
+               end
+               local sPreviousWarn = sMyWarn or sWarn
+               if sWarnLastStep then
+                  if not sPreviousWarn then sPreviousWarn = '' end
+                  sMyWarn = EgtIf( #sPreviousWarn > 0, sPreviousWarn .. '\n' .. sWarnLastStep, sWarnLastStep)
+               end
             end
          end
          return true, ( sMyWarn or sWarn)

UpdateLog.txt

@@ -1,4 +1,7 @@
            ==== Beam Update Log ====
+Versione 3.1c1 (04/03/2026)
+- Fixed : correzione in ordinamento (fori vs tagli)
+- Fixed : in drilling rimosso preforo duplicato
 
 Versione 3.1b1 (26/02/2026)
 - Added : in LapJoint lunghe gestito Q14 per lavorare discorde

Version.lua

@@ -2,5 +2,5 @@
 -- Gestione della versione di Beam
 
 NAME = 'Beam'
-VERSION = '3.1b1'
+VERSION = '3.1c1'
 MIN_EXE = '3.1b1'