update log

release

.gitlab-ci.yml

@@ -24,14 +24,14 @@ variables:
     $FileList = Get-ChildItem("*.lua")
     ForEach ($File in $FileList) {
       $FileName = Split-Path $File -leaf
-      lua54 -o bin\$FileName $FileName
-      echo "lua54 -o bin\$FileName $FileName"
+      lua54 -o bin\$FileName -s $FileName
+      echo "lua54 -o bin\$FileName -s $FileName"
     }
     $FileList = Get-ChildItem("LuaLibs\*.lua")
     ForEach ($File in $FileList) {
       $FileName = Split-Path $File -leaf
-      lua54 -o bin\LuaLibs\$FileName LuaLibs\$FileName
-      echo "lua54 -o bin\LuaLibs\$FileName LuaLibs\$FileName"
+      lua54 -o bin\LuaLibs\$FileName -s LuaLibs\$FileName
+      echo "lua54 -o bin\LuaLibs\$FileName -s LuaLibs\$FileName"
     }
 
 # helper copia SORGENTI verso cartella di rete X:\ dei SORGENTI

LuaLibs/BeamExec.lua

@@ -59,6 +59,9 @@
 -- 2024/02/29 Migliorata 'CompareFeatures' per ordine forature
 -- 2024/03/04 Creata funzione calcolo dipendenze tra feature con calcolo topologia.
 -- 2024/03/07 Implementate le lavorazioni in doppio per fori specchiati non passanti e DrillPocket.
+-- 2024/03/11 In CollectFeatures si scrive ora Width e Height della faccia sia trimmate con il grezzo che intere.
+-- 2024/03/13 In CollectFeatures si scrive lunghezza foro su Proc e si controla se serve Predrill
+--            In OrderFeature, preforo sempre prima del foro
 
 -- Tabella per definizione modulo
 local BeamExec = {}
@@ -350,22 +353,39 @@ local function CollectFeatures( PartId, b3Raw, dCurrOvmH, dCurrOvmT)
                      for i = 1, Proc.Fct do
                         Proc.Face[i] = { Id = i - 1, VtN = EgtSurfTmFacetNormVersor( Proc.Id, i - 1, GDB_ID.ROOT )}
                         if Proc.Fct < 10 then
-                           local _, dFaceWidth, dFaceHeight = BL.GetFaceHvRefDim( Proc.Id, i - 1, b3Raw)
+                           local frHV, dFaceWidthTrimmed, dFaceHeightTrimmed = BL.GetFaceHvRefDim( Proc.Id, i - 1, b3Raw)
+                           -- frame OCS faccia
+                           Proc.Face[i].FrameHV = frHV
+                           -- larghezza OCS faccia trimmata con grezzo
+                           Proc.Face[i].WidthTrimmed = dFaceWidthTrimmed
+                           -- altezza OCS faccia trimmata con grezzo
+                           Proc.Face[i].HeightTrimmed = dFaceHeightTrimmed
+                           local _, dFaceWidth, dFaceHeight = BL.GetFaceHvRefDim( Proc.Id, i - 1)
+                           -- larghezza OCS faccia
                            Proc.Face[i].Width = dFaceWidth
+                           -- altezza OCS faccia
                            Proc.Face[i].Height = dFaceHeight
+                           -- elevazione calcolata rispetto al box della parte
                            Proc.Face[i].Elevation = EgtSurfTmFacetElevationInBBox( Proc.Id, i - 1, b3Solid, true, GDB_ID.ROOT)
                         end
                      end
                   end
                end
-               if Proc.Box and not Proc.Box:isEmpty() then 
+               if Proc.Box and not Proc.Box:isEmpty() then
                   Proc.Head = IsHeadFeature( Proc, b3Raw, dCurrOvmH)
                   Proc.Tail, Proc.AdvTail = IsTailFeature( Proc, b3Raw, dCurrOvmH, dCurrOvmT)
                   table.insert( vProc, Proc)
                   -- se foro
                   if Drill.Identify( Proc) then
                      -- assegno diametro e facce di ingresso e uscita (dati tabelle sempre per riferimento)
-                     Proc.Diam, Proc.Fcs, Proc.Fce = Drill.GetData( Proc, b3Raw)
+                     Proc.Diam, Proc.Len, Proc.Fcs, Proc.Fce = Drill.GetData( Proc, b3Raw)
+                     -- verifico se devo inserire i prefori
+                     if Drill.IsPredrillNeeded( Proc) then
+                        local bAddProc, PredrillProc= Drill.AddPredrillFromDrillProc( Proc)
+                        if bAddProc then
+                           table.insert( vProc, PredrillProc)
+                        end
+                     end
                      -- verifico se necessaria seconda lavorazione da parte opposta per foro più lungo della punta
                      if Drill.Split( Proc, b3Raw) then
                         -- aggiorno flags prima parte foro (dati tabelle sempre per riferimento)
@@ -382,6 +402,7 @@ local function CollectFeatures( PartId, b3Raw, dCurrOvmH, dCurrOvmT)
                         Proc2.Box = BBox3d( Proc.Box)
                         Proc2.Fct = Proc.Fct
                         Proc2.Diam = Proc.Diam
+                        Proc2.Len = Proc.Len
                         Proc2.Head = Drill.IsHeadFeature( Proc2, b3Raw, dCurrOvmH)
                         Proc2.Tail = Drill.IsTailFeature( Proc2, b3Raw, dCurrOvmH)
                         Proc2.Fcs = Proc.Fce
@@ -391,6 +412,13 @@ local function CollectFeatures( PartId, b3Raw, dCurrOvmH, dCurrOvmT)
                         Proc2.AdjId = Proc.AdjId
                         Proc2.MainId = Proc.MainId
                         table.insert( vProc, Proc2)
+                        -- verifico se devo inserire i prefori
+                        if Drill.IsPredrillNeeded( Proc2) then
+                           local bAddProc, PredrillProc= Drill.AddPredrillFromDrillProc( Proc2)
+                           if bAddProc then
+                              table.insert( vProc, PredrillProc)
+                           end
+                        end
                      end
                   -- se BlockHaus HalfLap
                   elseif Proc.Prc == 37 then
@@ -911,7 +939,11 @@ local function OrderFeatures( vProc, b3Raw)
       end
       -- se entrambi fori con posizione praticamente uguale ordino secondo diametro e faccia di inizio (Fcs)
       if B1.Prc == 40  and  B2.Prc == 40  and  abs( B1.Box:getCenter():getX() - B2.Box:getCenter():getX()) < dSmallDrillRange then
-         if abs( B1.Diam - B2.Diam) < 1.0 then
+         if B1.IsPredrill and not B2.IsPredrill then
+            return true
+         elseif not B1.IsPredrill and B2.IsPredrill then
+            return false
+         elseif abs( B1.Diam - B2.Diam) < 1.0 then
             if B1.Fcs == B2.Fcs then
                if abs( B1.Box:getCenter():getX() - B2.Box:getCenter():getX()) < 1.0  then
                   if abs( B1.Box:getCenter():getY() - B2.Box:getCenter():getY()) < 1.0  then
@@ -1959,6 +1991,11 @@ local function AreDrillingsMirrored( Proc, ProcMirror, b3Raw)
       end
    end
 
+   -- fori della stessa profondità
+   if abs( Proc.Len - ProcMirror.Len) > 10 * GEO.EPS_SMALL then
+      return false
+   end
+
    return true
 end
 
@@ -2036,7 +2073,7 @@ function BeamExec.ProcessFeatures()
 
       -- verifica presenza forature influenzate da lavorazioni di testa o coda
       if BD.IMPROVE_HEAD_TAIL_DRILLINGS then
-         vMachBeforeIntersDrillings = CalcHeadTailMachBeforeIntersDrillings( vProc, b3Raw)
+         local vMachBeforeIntersDrillings = CalcHeadTailMachBeforeIntersDrillings( vProc, b3Raw)
          SetDrillingsToMachineAfterHeadOrTailCut( vProc, vMachBeforeIntersDrillings)
       end
       -- verifica presenza di feature specchiate per eventuali lavorazioni simultanee

LuaLibs/FacesBySaw.lua

@@ -27,6 +27,7 @@
 -- 2024/01/18 Gestita lama con aggregato con asse bloccato per massimizzare capacità di taglio verticale, se da sotto.
 --            Implementata GetBlockedAxis che gestisce gli assi bloccati per tutti i tipi di utensile.
 -- 2024/02/22 Migliorato calcolo area non pinzabile in testa HCING e coda TCING
+-- 2024/03/27 In MakeTwo rimossa gestione calcolo differente su ultima passata in caso di macchina FAST
 
 -- Tabella per definizione modulo
 local FacesBySaw = {}
@@ -618,12 +619,7 @@ function FacesBySaw.MakeTwo( Proc, nPhase, nRawId, nPartId, dOvmHead, sCutType,
             local vtOrthO = EgtIf( ( i % 2) == 1, vtRef[nOtInd], vtRef[nUpInd])
             -- lavoro la faccia
             for j = 1, #vCuts[i] do
-               -- se FAST, pezzo alto e ultimo taglio verticale -> allungo uscita per consentire eventuale rotazione B sul posto
-               local dAccEnd = 0
-               if not BD.C_SIMM and BD.MAX_HEIGHT_ROT_B_ABOVE and b3Raw:getDimZ() > BD.MAX_HEIGHT_ROT_B_ABOVE and vtOrthO:getZ() > 0.866 and j == #vCuts[i] then
-                  dAccEnd = - ( dSawDiam / 2 + BD.CUT_SIC)
-               end
-               local bOk, sErr = FacesBySaw.MakeOne( vCuts[i][j], 0, sCutting, dSawDiam, vtOrthO, dNzLimDwnUp, dCutExtra, BD.CUT_SIC, 0, 0, dAccEnd, nil, b3Raw)
+               local bOk, sErr = FacesBySaw.MakeOne( vCuts[i][j], 0, sCutting, dSawDiam, vtOrthO, dNzLimDwnUp, dCutExtra, BD.CUT_SIC, 0, 0, 0, nil, b3Raw)
                if not bOk then
                   return bOk, sErr
                end

LuaLibs/MachiningLib.lua

@@ -13,6 +13,7 @@
 -- 2024/01/23 Nella GetMachinings vengono ora raccolti i parametri utensile necessari per i VerifyTool, scritti direttamente nella tabella Machining.Tool.
 --            Le lavorazioni possono essere ora ordinate per dimensioni utensile (Longest, Shortest, Biggest, Smallest) se passato l'apposito parametro SortingCriterion in FindMachining. Al momento implementato solo per FindSawing.
 -- 2024/03/01 In VerifyPocketing implementato l'ordinamento per dimensioni utensile.
+-- 2024/03/13 Aggiunta gestione Predrill
 
 -- Tabella per definizione modulo
 local MachiningLib = {}
@@ -169,7 +170,7 @@ end
 ---------------------------------------------------------------------
 function VerifyTool( Machining, MachiningType, Params, bH2)
    if MachiningType == MCH_MY.DRILLING then
-      if Machining.SubType == 'Drill' or Machining.SubType == 'AngleDrill' then
+      if Machining.SubType == 'Drill' or Machining.SubType == 'AngleDrill' or Machining.SubType == 'Predrill' then
          return VerifyDrill( Machining, Params.Diam, Params.Depth, bH2)
       elseif Machining.SubType == 'DrillPocket' then
          return VerifyDrillPocket( Machining, Params.Diam, Params.Depth, bH2)
@@ -225,6 +226,8 @@ function GetMachinings( MachiningType, sType)
                      Machining.SubType = 'AngleDrill'
                   elseif EgtStartsWith( Machining.Type, 'Pocket') then
                      Machining.SubType = 'DrillPocket'
+                  elseif EgtStartsWith( Machining.Type, 'Predrill') then
+                     Machining.SubType = 'Predrill'
                   end
                end
                Machining.Tool.Diameter = EgtTdbGetCurrToolParam( MCH_TP.DIAM)
@@ -300,7 +303,7 @@ end
 function ReturnParams( MachiningType, MachiningName, sType, ToolParams)
    if MachiningType == MCH_MY.DRILLING then
       local _, sOrigType = EgtEndsWith( sType, '_H2')
-      return MachiningName, sType, EgtIf( sOrigType == 'Drill' or sOrigType == 'Drill_AT' or sOrigType == 'AngleDrill' , ToolParams.TMaxMat, ToolParams.TMaxDepth), ToolParams.MaxToolLength, ToolParams.ToolDiam, ToolParams.DiamTh, ToolParams.FreeLen
+      return MachiningName, sType, EgtIf( sOrigType == 'Drill' or sOrigType == 'Drill_AT' or sOrigType == 'AngleDrill' or sOrigType == 'Predrill' , ToolParams.TMaxMat, ToolParams.TMaxDepth), ToolParams.MaxToolLength, ToolParams.ToolDiam, ToolParams.DiamTh, ToolParams.FreeLen
    elseif MachiningType == MCH_MY.SAWING then
       return MachiningName, ToolParams.H2
    elseif MachiningType == MCH_MY.MILLING then
@@ -467,8 +470,15 @@ function MachiningLib.FindCutting( sType, bTopHead, bDownHead)
 end
 
 ---------------------------------------------------------------------
-function MachiningLib.FindDrilling( dDiam, dDepth, bTopHead, bDownHead, bExcludeH2, bAngleTransmission)
-   local MachiningName, MachiningType, Param1, Param2, Param3, Param4, Param5 = FindMachining( MCH_MY.DRILLING, EgtIf( bAngleTransmission, 'Drill_AT', 'Drill'), { Diam = dDiam, Depth = dDepth}, bTopHead, bDownHead, bExcludeH2)
+function MachiningLib.FindDrilling( dDiam, dDepth, bTopHead, bDownHead, bExcludeH2, bAngleTransmission, bIsPredrill)
+   local MachiningName, MachiningType, Param1, Param2, Param3, Param4, Param5, sTypeMach
+   -- se il foro è un predrill, cerco solo punte abilitate al Predrill
+   if bIsPredrill then
+      sTypeMach = 'Predrill'
+   else
+      sTypeMach = EgtIf( bAngleTransmission, 'Drill_AT', 'Drill')
+   end
+   MachiningName, MachiningType, Param1, Param2, Param3, Param4, Param5 = FindMachining( MCH_MY.DRILLING, sTypeMach, { Diam = dDiam, Depth = dDepth}, bTopHead, bDownHead, bExcludeH2)
    if ( not MachiningName or MachiningName == '') then
       MachiningName, MachiningType, Param1, Param2, Param3, Param4, Param5 = FindMachining( MCH_MY.DRILLING, EgtIf( bAngleTransmission, 'Pocket_AT', 'Pocket'), { Diam = dDiam, Depth = dDepth}, bTopHead, bDownHead)
    end

LuaLibs/ProcessDrill.lua

@@ -20,6 +20,8 @@
 -- 2023/07/28 Aggiunta gestione rinvio 90deg solo per forature da sotto esattamente verticali.
 -- 2023/09/26 Se errore in applicazione lavorazione si inverte e riprova solo se foratura singola su foro aperto.
 -- 2023/11/06 Migliorata gestione dei fori con AngularTransmission.
+-- 2024/03/13 Aggiunta gestione Predrill
+-- 2024/03/18 Per Predrill corretta direzione estrusione per fori con direzione verso il basso
 
 -- Tabella per definizione modulo
 local ProcessDrill = {}
@@ -96,20 +98,21 @@ end
 ---------------------------------------------------------------------
 -- Recupero dati foro e adattamento se speciale
 function ProcessDrill.GetData( Proc, b3Raw)
+   local AuxId = EgtGetInfo( Proc.Id, 'AUXID', 'i')
    -- verifico se foro da adattare
    if EgtExistsInfo( Proc.Id, 'DiamUser') then
-      local AuxId = EgtGetInfo( Proc.Id, 'AUXID', 'i')
       if AuxId then AuxId = AuxId + Proc.Id end
       if AuxId and EgtGetType( AuxId) == GDB_TY.CRV_ARC and BD.USER_HOLE_DIAM and BD.USER_HOLE_DIAM > 1 then
          EgtModifyArcRadius( AuxId, BD.USER_HOLE_DIAM / 2)
       end
    end
-   -- recupero diametro
+   -- recupero diametro e lunghezza
    local dDiam = EgtGetInfo( Proc.Id, 'P12', 'd') or 0
+   local dLen = abs( EgtCurveThickness( Proc.Id + AuxId)) or 0
    -- recupero faccia di entrata e uscita
    local nFcs = EgtGetInfo( Proc.Id, 'FCS', 'i') or 0
    local nFce = EgtGetInfo( Proc.Id, 'FCE', 'i') or 0
-   return dDiam, nFcs, nFce
+   return dDiam, dLen, nFcs, nFce
 end
 
 ---------------------------------------------------------------------
@@ -139,6 +142,75 @@ function ProcessDrill.Split( Proc, b3Raw)
    return ( bOpen and ( bHoriz or BD.ROT90 or BD.DOWN_HEAD or BD.TURN or bAngTransm) and not bSlant)
 end
 
+---------------------------------------------------------------------
+-- Verifica se bisogna aggiungere un preforo
+function ProcessDrill.IsPredrillNeeded( Proc)
+   local dDepthPredrill = EgtGetInfo( Proc.Id, 'Q03', 'i')
+   -- se non c'è la Q oppure se zero, allora non è da fare
+   if not dDepthPredrill or dDepthPredrill <= 0 then
+      return false
+   -- altrimenti Predrill da fare
+   else
+      return true
+   end
+end
+
+---------------------------------------------------------------------
+-- Aggiunge il preforo alla feature passata
+function ProcessDrill.AddPredrillFromDrillProc( Proc)
+   local dDepthPredrill = EgtGetInfo( Proc.Id, 'Q03', 'i')
+   -- foro più corto del preforo, allora è il foro che diventa il preforo stesso
+   if Proc.Len <= dDepthPredrill then
+      Proc.IsPredrill = true
+      Proc.IsPredrillOf = Proc.Id
+      return false
+   -- altrimenti creo un nuovo process
+   else
+      -- recupero gruppo per geometria aggiuntiva
+      local nAddGrpId = BL.GetAddGroup( Proc.PartId)
+      -- recupero e verifico l'entità foro
+      local AuxId = EgtGetInfo( Proc.Id, 'AUXID', 'i') or 0
+      local ptCen = EgtCP( Proc.Id + AuxId, GDB_RT.GLOB)
+      local vtExtr = EgtCurveExtrusion( Proc.Id + AuxId, GDB_RT.GLOB)
+
+      -- copio foro originale
+      local nPreHoleId = EgtCopyGlob( Proc.Id, nAddGrpId)
+      local nPreHoleAux = EgtCopyGlob( Proc.Id + AuxId, nAddGrpId)
+
+      -- se foro invertito sposto geometria dall'altro lato del foro e inverto direzione estrusione
+      if Proc.Flg == -2 then
+         local vsExtr = -vtExtr * Proc.Len
+         EgtMove( nPreHoleAux, vsExtr, GDB_RT.GLOB)
+         EgtModifyCurveExtrusion( nPreHoleAux, -vtExtr, GDB_RT.GLOB)
+      end
+      EgtModifyCurveThickness( nPreHoleAux, -dDepthPredrill)
+
+      local PredrillProc = {}
+      -- definisco dati seconda parte
+      PredrillProc.PartId = Proc.PartId
+      PredrillProc.Id = nPreHoleId
+      PredrillProc.Grp = Proc.Grp
+      PredrillProc.Prc = Proc.Prc
+      PredrillProc.Flg = 1
+      PredrillProc.Box = Proc.Box
+      PredrillProc.Fct = Proc.Fct
+      PredrillProc.Diam = Proc.Diam
+      PredrillProc.Len = dDepthPredrill
+      PredrillProc.Head = Proc.Head
+      PredrillProc.Tail = Proc.Tail
+      PredrillProc.Fcs = Proc.Fcs
+      PredrillProc.Fce = 0 -- il preforo è sempre chiuso, non ha faccia di uscita
+      PredrillProc.CutId = Proc.CutId
+      PredrillProc.TaskId = Proc.TaskId
+      PredrillProc.AdjId = Proc.AdjId
+      PredrillProc.MainId = Proc.MainId
+      PredrillProc.IsPredrill = true
+      PredrillProc.IsPredrillOf = Proc.Id
+
+      return true, PredrillProc
+   end
+end
+
 ---------------------------------------------------------------------
 -- Classificazione della feature
 function ProcessDrill.Classify( Proc, b3Raw)
@@ -289,15 +361,15 @@ function ProcessDrill.Make( Proc, nPhase, nRawId, nPartId)
    local bDrillUp = ( bDownDrill and vtExtr:getZ() > -0.421)
    local bExcludeH2 = false
    if Proc.Double and Proc.Double > 0 then
-      bMillUp = true
+      -- bMillUp = true
       bDrillDown = false
       bExcludeH2 = true
    end
    -- 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)
+   local sDrilling, sType, dMaxDepth, dMaxToolLength, dToolDiam, dDiamTh, dToolFreeLen = ML.FindDrilling( dDiam, dCheckDepth, bDrillUp, bDrillDown, bExcludeH2, bDrillAngTrasm, Proc.IsPredrill)
    if not sDrilling and dCheckDepth then
-      sDrilling, sType, dMaxDepth, dMaxToolLength, dToolDiam, dDiamTh, dToolFreeLen = ML.FindDrilling( dDiam, 0, bDrillUp, bDrillDown, bExcludeH2, bDrillAngTrasm)
+      sDrilling, sType, dMaxDepth, dMaxToolLength, dToolDiam, dDiamTh, dToolFreeLen = ML.FindDrilling( dDiam, 0, bDrillUp, bDrillDown, bExcludeH2, bDrillAngTrasm, Proc.IsPredrill)
       if sDrilling then dCheckDepth = nil end
    end
    if not sDrilling then
@@ -454,7 +526,7 @@ function ProcessDrill.Make( Proc, nPhase, nRawId, nPartId)
       dMaxElev = dMaxDepth
    end
    -- inserisco la lavorazione
-   local sName = 'Drill_' .. ( EgtGetName( Proc.Id) or tostring( Proc.Id))
+   local sName = EgtIf( EgtStartsWith( sType, 'Predrill'), 'Predrill_', 'Drill_') .. ( EgtGetName( Proc.Id) or tostring( Proc.Id))
    local nMchId = EgtAddMachining( sName, sDrilling)
    if not nMchId then
       local sErr = 'Error adding machining ' .. sName .. '-' .. sDrilling
@@ -464,7 +536,7 @@ function ProcessDrill.Make( Proc, nPhase, nRawId, nPartId)
    -- aggiungo geometria
    EgtSetMachiningGeometry( {{ AuxId, -1}})
    -- eventuale inversione
-   if sType == 'Drill' or sType == 'Drill_H2' or sType == 'Drill_AT' or sType == 'AngleDrill' then
+   if sType == 'Drill' or sType == 'Drill_H2' or sType == 'Drill_AT' or sType == 'AngleDrill' or sType == 'Predrill' then
       EgtSetMachiningParam( MCH_MP.INVERT, bToInvert)
    else
       EgtSetMachiningParam( MCH_MP.TOOLINVERT, bToInvert)

LuaLibs/ProcessLapJoint.lua

@@ -1,4 +1,4 @@
--- ProcessLapJoint.lua by Egaltech s.r.l. 2023/09/26
+-- ProcessLapJoint.lua by Egaltech s.r.l. 2024/03/15
 -- Gestione calcolo mezzo-legno per Travi
 -- 2019/10/08 Agg. gestione OpenPocket.
 -- 2021/01/24 Con sega a catena ora sempre impostato asse A.
@@ -99,6 +99,8 @@
 -- 2024/02/29 In lapjoint 2 facce (TestTwoFacesDownHead) migliorata la scelta della lama da sotto.
 -- 2024/03/01 Migliorata VerifyPocket.
 -- 2024/03/04 Implementato attacco esterno se tasca 4 facce sulla coda ma nessun pezzo successivo.
+-- 2024/03/15 Correzione a calcolo ingombro per feature basse e lunghe dalla testa.
+-- 2024/04/02 In ForceSideMill escluso caso 4 facce senza possibilità di ingresso lungo Y.
 
 -- Tabella per definizione modulo
 local ProcessLapJoint = {}
@@ -661,8 +663,10 @@ local function UpdateEncumbrance( Proc, nRawId, b3Raw, b3Solid)
       elseif Proc.Box:getCenter():getX() > b3Solid:getCenter():getX() then
          local dOffs = b3Solid:getMax():getX() - Proc.Box:getMin():getX()
          local dDist = b3Solid:getMax():getX() - Proc.Box:getMax():getX()
-         -- se concavo aumento la distanza (rimane una punta...)
-         --if dAngT < 0 then dDist = dDist + 10 end
+         -- se pinze a 45° e pinza abbastanza materiale, compenso comunque, ma solo inclinazione morse
+         if not bIsVertClamps and dDeltaZClamp > BD.VICE_MINH and BD.VICE_MAXH then
+            dOffs = min( dOffs, BD.VICE_MAXH - BD.VICE_MINH)
+         end
          BL.UpdateHCING( nRawId, dOffs, dDist)
       end
    end
@@ -4743,7 +4747,7 @@ local function MakeMoreFaces( Proc, nPhase, nRawId, nPartId, dOvmHead, bSinglePa
       local bIsL = ( Proc.Fct == 2 or TestElleShape3( Proc) or TestElleShape4( Proc) == 2)
       -- se parametro Q03=2 forzo la fresatura di lato; con Q03=3 forzo solo se la faccia di lavoro non è rivolta verso l'alto +/-10°; se rabbet lungo X che guarda in giù sempre fresatura di lato
       local bIsRabbetAlongXTowardsBottom = ( Proc.TopologyLongName == 'Rabbet-Through-RightAngles-Parallel-2' and ( Proc.AffectedFaces.Front or Proc.AffectedFaces.Back) and Proc.AffectedFaces.Bottom and Proc.AffectedFaces.Left and Proc.AffectedFaces.Right)
-      local bForceSideMill = bIsRabbetAlongXTowardsBottom or ( ( EgtGetInfo( Proc.Id, Q_SIDE_ROUGH_TOOL, 'i') == 2 or ( EgtGetInfo( Proc.Id, Q_SIDE_ROUGH_TOOL, 'i') == 3 and vtN:getZ() < 0.985)) and ( Proc.Fct == 4 or Proc.Fct == 3 or Proc.Fct == 2))
+      local bForceSideMill = bIsRabbetAlongXTowardsBottom or ( ( EgtGetInfo( Proc.Id, Q_SIDE_ROUGH_TOOL, 'i') == 2 or ( EgtGetInfo( Proc.Id, Q_SIDE_ROUGH_TOOL, 'i') == 3 and vtN:getZ() < 0.985)) and ( ( Proc.Fct == 4 and ( Proc.AffectedFaces.Front or Proc.AffectedFaces.Back)) or Proc.Fct == 3 or Proc.Fct == 2))
       -- se fattibile con fresa BH di fianco e spessore utensile inferiore alla larghezza faccia
       local bMakeBySideMill, bHead, bHeadDir, sMilling, dMaxMat, dToolDiam = VerifyBHSideMill( Proc, bIsU, bIsL, bSinglePart, bPrevBhSideMill)
       if bPrevBhSideMill == nil then
@@ -5824,7 +5828,7 @@ local function TestTwoFacesDownHead( Proc)
       Proc.IsTopDownRabbet = abs( vtRes:getZ()) > 10 * GEO.EPS_SMALL
       for i = 1, Proc.Fct do
          Proc.Face[i].IsTooDownwardForTopBlade = Proc.Face[i].VtN:getZ() < ( BD.CUT_VZ_MIN or -0.484) - 10 * GEO.EPS_SMALL
-         Proc.Face[i].IsTooWideForTopBlade = Proc.Face[i].Width > dTopBladeMaxDepth
+         Proc.Face[i].IsTooWideForTopBlade = Proc.Face[i].WidthTrimmed > dTopBladeMaxDepth
       end
       -- serve la lama sotto se c'è almeno una faccia troppo inclinata verso il basso e non è un rabbet stretto lavorabile dal lato
       if not ( Proc.Face[1].IsTooDownwardForTopBlade or Proc.Face[2].IsTooDownwardForTopBlade) then

LuaLibs/ProcessLongDoubleCut.lua

@@ -23,6 +23,7 @@
 -- 2023/11/24 Aggiunta Q05 per utilizzo lama anche in feature cieche conme per LongCut.
 -- 2023/11/30 Calcolo elevazione velocizzato e centralizzato tramite la funzione GetFaceElevation.
 -- 2024/01/18 Implementata GetBlockedAxis che gestisce gli assi bloccati per tutti i tipi di utensile.
+-- 2024/03/21 Corretto parametro passato a funzione BL.GetBlockedAxis. Ora tiene in considerazione anche testa sotto
 
 -- Tabella per definizione modulo
 local ProcessLong2Cut = {}
@@ -833,11 +834,13 @@ function ProcessLong2Cut.Make( Proc, nPhase, nRawId, nPartId, bForcedBladeMaster
 
                   -- recupero alcune informazioni utili dalla lavorazione attuale
                   local bIsCurrentBladeCCW
+                  local sCuttingNameMach
                   if bIsTopBladeCurrent then
-                     EgtMdbSetCurrMachining( sCutting)
+                     sCuttingNameMach = sCutting
                   else
-                     EgtMdbSetCurrMachining( sCuttingDn)
+                     sCuttingNameMach = sCuttingDn
                   end
+                  EgtMdbSetCurrMachining( sCuttingNameMach)
                   bIsCurrentBladeCCW = EgtMdbGetCurrMachiningParam( MCH_MP.SPEED) < 0
 
                   -- imposto la direzione di lavoro per avere scarico del truciolo ottimale
@@ -880,7 +883,7 @@ function ProcessLong2Cut.Make( Proc, nPhase, nRawId, nPartId, bForcedBladeMaster
                   EgtSetMachiningParam( MCH_MP.SCC, nSCC)
                   -- imposto angolo 3° asse rot
                   local vtOut = EgtIf( vtN[vOrd[j]]:getX() > 0, X_AX(), -X_AX())
-                  EgtSetMachiningParam( MCH_MP.BLOCKEDAXIS, BL.GetBlockedAxis( sCutting, 'perpendicular', b3Raw, vtN, vtOut))
+                  EgtSetMachiningParam( MCH_MP.BLOCKEDAXIS, BL.GetBlockedAxis( sCuttingNameMach, 'perpendicular', b3Raw, vtN, vtOut))
                   -- eseguo
                   if not ML.ApplyMachining( true, false) then
                      local _, sErr = EgtGetLastMachMgrError()
@@ -1777,7 +1780,6 @@ function ProcessLong2Cut.Make( Proc, nPhase, nRawId, nPartId, bForcedBladeMaster
                   sWarn = 'Warning in LongDoubleCut : depth (' .. EgtNumToString( vWidth[vOrd[i]] + dAgg, 1) .. ') bigger than max tool depth (' .. EgtNumToString( dMaxDepthDn - dCollSic, 1) .. ')'
                end
                dDepth  = min( dMaxDepthDn - dCollSic, vWidth[vOrd[i]] + dAgg)
-               dDepth2 = vWidth[vOrd[i]] + dAgg - dDepth
                EgtSetMachiningParam( MCH_MP.DEPTH, dDepth - dExtraElev)
             else
                dCollSic    = max( BD.COLL_SIC, ( dThDiam - dToolDiam) / 2 * EgtIf(  abs(dNz) < GEO.EPS_SMALL, 1, abs( EgtIf( abs(vtN[vOrd[i]]:getY()) >= abs(vtN[vOrd[i]]:getZ()), vtN[vOrd[i]]:getZ(), vtN[vOrd[i]]:getY()) / dNz)))
@@ -1785,7 +1787,6 @@ function ProcessLong2Cut.Make( Proc, nPhase, nRawId, nPartId, bForcedBladeMaster
                   sWarn = 'Warning in LongDoubleCut : depth (' .. EgtNumToString( vWidth[vOrd[i]] + dAgg, 1) .. ') bigger than max tool depth (' .. EgtNumToString( dMaxDepth - dCollSic, 1) .. ')'
                end
                dDepth = min( dMaxDepth - dCollSic, vWidth[vOrd[i]] + dAgg)
-               dDepth2 = vWidth[vOrd[i]] + dAgg - dDepth
                EgtSetMachiningParam( MCH_MP.DEPTH, dDepth - dExtraElev)
             end
             -- eseguo

LuaLibs/ProcessMortise.lua

@@ -442,7 +442,7 @@ function ProcessMortise.Make( Proc, nPhase, nRawId, nPartId, dCurrOvmH)
    -- recupero i dati della curva e del profilo
    local dDepth = dMorH
    local bDownHead = ( BD.DOWN_HEAD and vtExtr:getZ() < 0.1)
-   local bToolInv = ( not bDownHead and vtExtr:getZ() < -0.1 and b3Aux:getDimZ() > b3Raw:getDimZ() - 5)
+   local bToolInv = ( not bDownHead and vtExtr:getZ() < -0.1 and Proc.Box:getDimZ() > b3Solid:getDimZ() - 5)
    local dExtra = 2
 
    -- verifico se servono gli smussi. Se lavorazione principale di svuotatura significa che è solo da un lato

UpdateLog.txt

@@ -1,5 +1,28 @@
            ==== Beam Update Log ====
 
+Versione 2.6d1 (08/04/2024)
+- Fixed : in Long2Cut corretto nome passato alla BL.GetBlockedAxis
+- Fixed : in MakeTwo rimossa gestione calcolo differente su ultima passata in caso di macchina FAST
+- Fixed : in LapJoint -> ForceSideMill escluso caso 4 facce senza possibilità di ingresso lungo Y.
+
+Versione 2.6c4 (18/03/2024)
+- Fixed : correzioni a gestione prefori.
+
+Versione 2.6c3 (15/03/2024)
+- Added : Aggiunta gestione prefori
+- Fixed : in LapJoint correzione a calcolo ingombro per feature basse e lunghe dalla testa.
+
+Versione 2.6c2 (12/03/2024)
+- Added : in Mortase Aggiunta possibilità di inserire lavorazione di smusso
+- Added : in FreeContour aggiunto smusso se lav. di svuotatura
+- Added : in BeamExec creata funzione calcolo dipendenze tra feature
+- Added : In BeamExec -> CollectFeatures si scrive ora Width e Height della faccia sia trimmate con il grezzo che intere
+- Added : implementate le lavorazioni in doppio per fori specchiati non passanti e DrillPocket
+- Modif : in LapJoint migliorata ricerca pocket (VerifyPocket)
+- Modif : implementato attacco esterno se tasca 4 facce sulla coda ma nessun pezzo successivo
+- Modif : rimossi simboli di debug da compile
+- Fixed : In FreeContour corretto caso di smusso non passante
+
 Versione 2.6c1 (29/02/2024)
 - Modif : in FacesBySaw e LapJoint migliorato calcolo area non pinzabile in testa HCING e coda TCING
 - Modif : vari miglioramenti all'ordinamento delle lavorazioni

Version.lua

@@ -2,5 +2,5 @@
 -- Gestione della versione di Beam
 
 NAME = 'Beam'
-VERSION = '2.6c1'
+VERSION = '2.6d1'
 MIN_EXE = '2.6a1'