update log e versione

BatchProcess.lua

@@ -461,7 +461,7 @@ else
    -- Passo in modalità lavora
    EgtSetCurrMachGroup( EgtGetLastMachGroup())
    -- Se necessario eseguo aggiornamento con setup corrente e ricalcolo delle lavorazioni
-   if bToRecalc then
+   if bToRecalc or BEAM.FLAG == 3 or BEAM.FLAG == 4 then
       EgtOutLog( ' +++ Recalculating all dispositions and machinings >>>')
       EgtImportSetup()
       EgtApplyAllMachinings()

BatchProcessNew.lua

@@ -562,7 +562,7 @@ else
    -- Passo in modalità lavora
    EgtSetCurrMachGroup( EgtGetLastMachGroup())
    -- Se necessario eseguo aggiornamento con setup corrente e ricalcolo delle lavorazioni
-   if bToRecalc then
+   if bToRecalc or BEAM.FLAG == 3 or BEAM.FLAG == 4 then
       EgtOutLog( ' +++ Recalculating all dispositions and machinings >>>')
       EgtImportSetup()
       EgtApplyAllMachinings()

LuaLibs/BeamExec.lua

@@ -1275,7 +1275,6 @@ local function AddFeatureMachining( Proc, nPhase, nRawId, nPartId, dCurrOvmH, bN
    local bOk = true
    local sErr = ''
    local nNewPhase = -1
-   local AddedIds
    EgtOutLog( ' * Process ' .. tostring( Proc.Id) .. ' *', 1)
    -- se intestatura ( 1-340-X )
    if Hcut.Identify( Proc) then
@@ -1301,7 +1300,7 @@ local function AddFeatureMachining( Proc, nPhase, nRawId, nPartId, dCurrOvmH, bN
    elseif Long2Cut.Identify( Proc) then
      -- se due facce longitudinali, eseguo doppio taglio longitudinale
       if Long2Cut.GetLongFacesCount( Proc) == 2 then
-         bOk, sErr, _, AddedIds = Long2Cut.Make( Proc, nPhase, nRawId, nPartId)
+         bOk, sErr = Long2Cut.Make( Proc, nPhase, nRawId, nPartId)
       -- altrimenti eseguo singolo taglio longitudinale
       else
          bOk, sErr = LongCut.Make( Proc, nPhase, nRawId, nPartId)
@@ -1319,7 +1318,7 @@ local function AddFeatureMachining( Proc, nPhase, nRawId, nPartId, dCurrOvmH, bN
    -- o se rivestimento ( 3/4-034-X) o se mezzolegno chalet ( 4-037-X) o se tasca ( 4-039-X) o se taglio triangolato ( 4-120-X)
    elseif LapJoint.Identify( Proc) then
       -- esecuzione mezzo-legno o scanalatura
-      bOk, sErr, _, AddedIds = LapJoint.Make( Proc, nPhase, nRawId, nPartId, dCurrOvmH)
+      bOk, sErr = LapJoint.Make( Proc, nPhase, nRawId, nPartId, dCurrOvmH)
    -- se smusso  ( 3/4-036-X)
    elseif Chamfer.Identify( Proc) then
       -- esecuzione smusso
@@ -1424,7 +1423,7 @@ local function AddFeatureMachining( Proc, nPhase, nRawId, nPartId, dCurrOvmH, bN
       EgtOutLog( sErr)
       bOk = false
    end
-   return bOk, sErr, ( nNewPhase or -1), AddedIds
+   return bOk, sErr, ( nNewPhase or -1)
 end
 
 -------------------------------------------------------------------------------------------------------------
@@ -2097,8 +2096,7 @@ function BeamExec.ProcessFeatures()
          -- flag feature precedente in doppio
          local nPrevDouble = 0
          -- inserisco le lavorazioni da lavorare ribaltate
-         local i = 1
-         while i <= #vProc do
+         for i = 1, #vProc do
             -- creo la lavorazione
             local Proc = vProc[i]
             if Proc.Flg ~= 0 and Proc.Down then
@@ -2109,13 +2107,7 @@ function BeamExec.ProcessFeatures()
                Proc.DistanceToNextPart = BL.GetDistanceToNextPart( nRawId, nPhase)
                Proc.PrevDouble = nPrevDouble
                nPrevDouble = Proc.Double
-               local bOk, sMsg, nNewPhase, AddedIds = AddFeatureMachining( Proc, nPhase, nRawId, nPartId, dCurrOvmH, bNeedHCut, b3Raw, nOrd, sDownOrSideOrStd, nil, nil, dCurrOvmT)
-               -- lavorazioni da fare dopo separazione
-               if AddedIds and #AddedIds > 0 then
-                  for j = 1, #AddedIds do
-                     table.insert( vProc, AddedIds[j])
-                  end
-               end
+               local bOk, sMsg, nNewPhase = AddFeatureMachining( Proc, nPhase, nRawId, nPartId, dCurrOvmH, bNeedHCut, b3Raw, nOrd, sDownOrSideOrStd, nil, nil, dCurrOvmT)
                if not bOk then
                   nTotErr = nTotErr + 1
                   table.insert( Stats, {Err=1, Msg=sMsg, Rot=-2, CutId=Proc.CutId, TaskId=Proc.TaskId})
@@ -2145,7 +2137,6 @@ function BeamExec.ProcessFeatures()
                   EgtSetInfo( nDispId, 'ROT', -2)
                end
             end
-            i = i + 1
          end
          -- se separazione non ancora effettuata, aggiungo nuova fase con le travi in posizione standard
          if not bSplitRot then
@@ -2187,8 +2178,7 @@ function BeamExec.ProcessFeatures()
          local nPrevDouble = 0
          -- inserisco le lavorazioni da lavorare ruotate
          local nSideMchOk = 0
-         local i = 1
-         while i <= #vProc do
+         for i = 1, #vProc do
             -- creo la lavorazione
             local Proc = vProc[i]
             if Proc.Flg ~= 0 and Proc.Side then
@@ -2199,13 +2189,7 @@ function BeamExec.ProcessFeatures()
                Proc.DistanceToNextPart = BL.GetDistanceToNextPart( nRawId, nPhase)
                Proc.PrevDouble = nPrevDouble
                nPrevDouble = Proc.Double
-               local bOk, sMsg, nNewPhase, AddedIds = AddFeatureMachining( Proc, nPhase, nRawId, nPartId, dCurrOvmH, false, b3Raw, nOrd, sDownOrSideOrStd, bPreMove, vtMove, dCurrOvmT)
-               -- lavorazioni da fare dopo separazione
-               if AddedIds and #AddedIds > 0 then
-                  for j = 1, #AddedIds do
-                     table.insert( vProc, AddedIds[j])
-                  end
-               end
+               local bOk, sMsg, nNewPhase = AddFeatureMachining( Proc, nPhase, nRawId, nPartId, dCurrOvmH, false, b3Raw, nOrd, sDownOrSideOrStd, bPreMove, vtMove, dCurrOvmT)
                if not bOk then
                   nTotErr = nTotErr + 1
                   table.insert( Stats, {Err=1, Msg=sMsg, Rot=-1, CutId=Proc.CutId, TaskId=Proc.TaskId})
@@ -2238,7 +2222,6 @@ function BeamExec.ProcessFeatures()
                   EgtSetInfo( nDispId, 'ROT', -1)
                end
             end
-            i = i + 1
          end
          -- se non sono state inserite lavorazioni di fianco, elimino la fase perchè inutile e dannosa
          if nSideMchOk == 0 then
@@ -2265,8 +2248,7 @@ function BeamExec.ProcessFeatures()
       -- flag feature precedente in doppio
       local nPrevDouble = 0
       -- inserisco le lavorazioni non ribaltate della trave
-      local i = 1
-      while i <= #vProc do
+      for i = 1, #vProc do
          -- creo la lavorazione
          local Proc = vProc[i]
          if Proc.Flg ~= 0 and ( not ( Proc.Down or Proc.Side) or BD.DOWN_HEAD or BD.TURN) then
@@ -2277,13 +2259,7 @@ function BeamExec.ProcessFeatures()
             Proc.DistanceToNextPart = BL.GetDistanceToNextPart( nRawId, nPhase)
             Proc.PrevDouble = nPrevDouble
             nPrevDouble = Proc.Double
-            local bOk, sMsg, nNewPhase, AddedIds = AddFeatureMachining( Proc, nPhase, nRawId, nPartId, dCurrOvmH, false, b3Raw, nOrd, sDownOrSideOrStd, nil, nil, dCurrOvmT)
-            -- lavorazioni da fare dopo separazione
-            if AddedIds and #AddedIds > 0 then
-               for j = 1, #AddedIds do
-                  table.insert( vProc, AddedIds[j])
-               end
-            end
+            local bOk, sMsg, nNewPhase = AddFeatureMachining( Proc, nPhase, nRawId, nPartId, dCurrOvmH, false, b3Raw, nOrd, sDownOrSideOrStd, nil, nil, dCurrOvmT)
             if not bOk then
                nTotErr = nTotErr + 1
                table.insert( Stats, {Err=1, Msg=sMsg, Rot=0, CutId=Proc.CutId, TaskId=Proc.TaskId})
@@ -2311,7 +2287,6 @@ function BeamExec.ProcessFeatures()
                EgtSetInfo( nDispId, 'ORD', nOrd)
             end
          end
-         i = i + 1
       end
       EgtOutLog( ' *** End AddMachinings ***', 1)
       -- passo al grezzo successivo

LuaLibs/ProcessLapJoint.lua

@@ -141,9 +141,6 @@ local Q_SIDE_ROUGH_TOOL     = '' -- i
 local Q_ANTISPLINT_TYPE     = '' -- i
 local Q_BLADE_ON_ALONG_FACE = '' -- i
 local Q_MAX_ELEVATION       = '' -- d
-local Q_SAW_PLUS_CHAIN      = '' -- i
-local Q_FORCE_CHAINSAW      = '' -- i
-
 
 -- variabile smussi
 local bMadeChamfer
@@ -185,7 +182,6 @@ local function AssignQIdent( Proc)
    Q_MAX_ELEVATION      = 'Q10'
    Q_STAIRCASE          = ''
    Q_SAW_PLUS_CHAIN     = 'Q11'
-   Q_FORCE_CHAINSAW     = 'Q12'
 
    if ( Proc.Grp == 3 or Proc.Grp == 4)  and  Proc.Prc == 16 then
       Q_FORCE_BLADE         = 'Q01' -- i
@@ -5735,27 +5731,17 @@ local function MakeMoreFaces( Proc, nPhase, nRawId, nPartId, dOvmHead, bSinglePa
    if nChamfer < 0 then
       return false, sErrCham
    end
-   -- eventuale forzatura sega a catena
-   local bForceChainsaw = ( EgtGetInfo( Proc.Id, Q_FORCE_CHAINSAW, 'i') or 0) > 0
    -- se è un tunnel provo a vedere se è possibile lavorarlo con la svuotatura o con la sega catena
    if bClosedOrthoFaces then
       local bTryWithBlades = true
-      local dDimMin, dDimMax, dDepth, vtOrtho, nLundIdFace
-      -- forzata sega a catena
-      if bForceChainsaw then
-         -- ottengo le dimensioni del tunnel 
-         dDimMin, dDimMax, dDepth, vtOrtho, nLundIdFace = BL.GetTunnelDimension( Proc, nPartId)
       -- lavoro fessura con svuotature (singola o doppia contrapposta)
-      else
-         local sMyMchFind = 'Pocket'
-         local nOk, sErr
-         nOk, sErr, dDimMin, dDimMax, dDepth, vtOrtho,
+      local sMyMchFind = 'Pocket'
+      local nOk, sErr, dDimMin, dDimMax, dDepth, vtOrtho, 
             nLundIdFace = MakeByPockets( Proc, nPhase, nRawId, nPartId, nChamfer, dDepthCham, nAddGrpId, sMyMchFind, false, b3Solid, bClosedOrthoFaces)
-         if nOk < 0 then
-            return false, sErr
-         elseif nOk > 0 then
-            bTryWithBlades = false
-         end
+      if nOk < 0 then
+         return false, sErr
+      elseif nOk > 0 then
+         bTryWithBlades = false
       end
       -- Se la svuotatura precedente non è stata fatta e chamfer non è mutuamente esclusivo provo con la sega-catena
       if bTryWithBlades and nChamfer < 2 then
@@ -6246,10 +6232,6 @@ local function MakeMoreFaces( Proc, nPhase, nRawId, nPartId, dOvmHead, bSinglePa
             if bForceSideMill then
                sPocketing = nil
             end
-            -- se forzata sega a catena
-            if bForceChainsaw then
-               sPocketing = nil
-            end
             -- leggo parametro Q
             local nQAntisplintResult = EgtGetInfo( Proc.Id, Q_ANTISPLINT_TYPE, 'i') or 0
             -- se lavorazione fresa come lama disabilito eventuale antischeggia
@@ -6471,9 +6453,8 @@ local function MakeMoreFaces( Proc, nPhase, nRawId, nPartId, dOvmHead, bSinglePa
                                  sWarn = EgtIf( #sWarn > 0, sWarn .. '\n' .. sWarn2, sWarn2)
                               end
                            end
-                        -- in tutti gli altri casi, a meno che non sia forzata sega a catena, lancio la MakeByPockets
-                        -- lavorazione singola o doppia contrapposta, fondo della tasca una faccia fittizia perpendicolare al lato lungo
-                        elseif not bForceChainsaw then
+                        -- in tutti gli altri casi lancio la MakeByPockets (lavorazione singola o doppia contrapposta, fondo della tasca una faccia fittizia perpendicolare al lato lungo)
+                        else
                            -- se 2 facce setto i parametri corretti per la MakeByPockets
                            if bForceSideMill and Proc.Fct == 2 then
                               bIs3Faces = false
@@ -7229,13 +7210,13 @@ function ProcessLapJoint.Make( Proc, nPhase, nRawId, nPartId, dOvmHead)
             -- leggo i parametri Q per utilizzare la fresa di fianco e/o lama
             local nUseSideTool = EgtGetInfo( Proc.Id, Q_SIDE_ROUGH_TOOL, 'i') or 0
             local bUseBlade = EgtGetInfo( Proc.Id, Q_ANTISPLINT_TYPE, 'i') == 1
-            local bOk, sMyWarn, _, AddedIds = Long2Cut.Make( Proc, nPhase, nRawId, nPartId, bUseBlade, nUseSideTool)
+            local bOk, sMyWarn = Long2Cut.Make( Proc, nPhase, nRawId, nPartId, bUseBlade, nUseSideTool)
             -- se non sono riuscito a farlo di lama, riprovo con la fresa
             if not bOk and bUseBlade then
                bUseBlade = false
                return Long2Cut.Make( Proc, nPhase, nRawId, nPartId, bUseBlade, nUseSideTool)
             else
-               return bOk, sMyWarn, nil, AddedIds
+               return bOk, sMyWarn
             end
          -- prima faccia terminale
          elseif b3Fac1:getDimX() < 1 and abs( vtN2:getX()) < GEO.EPS_SMALL then

LuaLibs/ProcessLongDoubleCut.lua

@@ -37,7 +37,6 @@ EgtOutLog( ' ProcessLongDoubleCut started', 1)
 -- Dati
 local BD = require( 'BeamData')
 local ML = require( 'MachiningLib')
-local Topology = require( 'FeatureTopology')
 
 local dLimMinPiece = BD.LEN_SHORT_PART or 1000
 
@@ -325,9 +324,6 @@ function ProcessLong2Cut.Make( Proc, nPhase, nRawId, nPartId, bForcedBladeMaster
    local nFaceLimit, tFaceLong, ptC, vtN = IdentifyFaces( Proc)
    local dLen = Proc.Box:getDimX()
 
-   -- inizializzazione tabella con eventuali lavorazioni create a posteriori da ritornare al chiamante
-   local AddedIds = {}
-
    -- recupero lunghezza grezzo totale da info sulla macchinata
    local dBarLen = EgtGetInfo( EgtGetCurrMachGroup(), 'BARLEN', 'd')
    local dOvmHead = b3Raw:getMax():getX() - b3Solid:getMax():getX()
@@ -949,6 +945,18 @@ function ProcessLong2Cut.Make( Proc, nPhase, nRawId, nPartId, bForcedBladeMaster
          end
       -- altrimenti concavo
       else
+         -- se effettivamente un taglio longitudinale e lama non taglia completamente, limito la lavorazione. Altrimenti esco.
+         for k = 1, #vOrd do
+            if vWidth[vOrd[k]] + BD.CUT_SIC > dMaxDepth  then
+               if not( ProcessLong2Cut.Identify( Proc)) then
+                  return false
+               else
+                  local sWarn2 = 'Warning in ' .. ( EgtGetName( Proc.Id) or tostring( Proc.Id)) .. ' : elevation (' .. EgtNumToString( vWidth[vOrd[k]], 1) .. ') bigger than max saw depth (' .. EgtNumToString( dMaxDepth, 1) .. ')'
+                  if not sWarn then sWarn = '' end
+                  sWarn = EgtIf( #sWarn > 0, sWarn .. '\n' .. sWarn2, sWarn2)
+               end
+            end
+         end
          -- si percorrono i lati alto e basso della faccia
          for i = 1, nC do
             -- Posizione braccio portatesta
@@ -978,22 +986,6 @@ function ProcessLong2Cut.Make( Proc, nPhase, nRawId, nPartId, bForcedBladeMaster
                   EgtOutLog( sErr)
                   return false, sErr
                end
-               -- se effettivamente un taglio longitudinale e lama non taglia completamente, limito la lavorazione. Altrimenti esco.
-               local dCheckDepth = 0
-               if bCanUseBlade then
-                  dCheckDepth = dMaxDepth
-               elseif bCanUseUnderBlade then
-                  dCheckDepth = dMaxDepthDn
-               end
-               if vWidth[vOrd[j]] + 100 * GEO.EPS_SMALL > dCheckDepth  then
-                  if not( ProcessLong2Cut.Identify( Proc)) then
-                     return false
-                  else
-                     local sWarn2 = 'Warning in ' .. ( EgtGetName( Proc.Id) or tostring( Proc.Id)) .. ' : elevation (' .. EgtNumToString( vWidth[vOrd[j]], 1) .. ') bigger than max saw depth (' .. EgtNumToString( dCheckDepth, 1) .. ')'
-                     if not sWarn then sWarn = '' end
-                     sWarn = EgtIf( #sWarn > 0, sWarn .. '\n' .. sWarn2, sWarn2)
-                  end
-               end
                -- se lama da sotto verifico se la componente Y della profondità di taglio supera la capacità della lama
                if nSide <= 0 and bCanUseUnderBlade then
                   if ( vWidth[vOrd[j]] / 2) > dMaxDepthDn then
@@ -1007,7 +999,7 @@ function ProcessLong2Cut.Make( Proc, nPhase, nRawId, nPartId, bForcedBladeMaster
                local dLioPerp
 
                if j == 1 then -- il primo taglio lo faccio completo se angolo interno maggiore di 90
-                  local dMinOffsBigFace = max( vWidth[vOrd[j]] - dCheckDepth, 0)
+                  local dMinOffsBigFace = max( vWidth[vOrd[j]] - dMaxDepth, 0)
                   -- se la faccia è più grande del massimo materiale lama, allora limito lavorazione
                   if dMinOffsBigFace > 0 then
                      dOffset = dMinOffsBigFace
@@ -1019,7 +1011,7 @@ function ProcessLong2Cut.Make( Proc, nPhase, nRawId, nPartId, bForcedBladeMaster
                   end
                   dLioPerp = vWidth[vOrd[j]] + BD.CUT_SIC
                else -- il secondo ridotto della distanza minima e della componente spessore della lama
-                  local dMinOffsBigFace = max( vWidth[vOrd[j]] - dCheckDepth, 0)
+                  local dMinOffsBigFace = max( vWidth[vOrd[j]] - dMaxDepth, 0)
                   -- se la faccia è più grande del massimo materiale lama, allora limito lavorazione
                   if dMinOffsBigFace > 0 then
                      dOffset = dMinOffsBigFace
@@ -1277,11 +1269,6 @@ function ProcessLong2Cut.Make( Proc, nPhase, nRawId, nPartId, bForcedBladeMaster
             end
          end
       end
-      if Proc.bMoveAfterSplit then
-         nC = 1
-         dStartDist = Proc.Box:getDimX() - ( dToolDiam / 2 + 5)
-         dEndDist = - ( dToolDiam / 2 + 5)
-      end
       if nIni == 2 then
          dStartDist, dEndDist = dEndDist, dStartDist
          dStartAccDist, dEndAccDist = dEndAccDist, dStartAccDist
@@ -1393,19 +1380,6 @@ function ProcessLong2Cut.Make( Proc, nPhase, nRawId, nPartId, bForcedBladeMaster
             end
          end
       end
-      if not Proc.MoveAfterSplit and not bEndFixed and not bConvex then
-         -- recupero gruppo per geometria addizionale
-         local nAddGrpId = BL.GetAddGroup( nPartId)
-         if not nAddGrpId then
-            local sErr = 'Error : missing AddGroup'
-            EgtOutLog( sErr)
-            return false, sErr
-         end
-         local AddId = EgtCopyGlob( Proc.Id, nAddGrpId) or GDB_ID.NULL
-         local AddProc = { Id = AddId, Grp = 0, Prc = 12, Box = Proc.Box, Fct = Proc.Fct, Flg = Proc.Flg, PartId = Proc.PartId, bMoveAfterSplit = true}
-         Topology.Classify( AddProc, b3Raw)
-         table.insert( AddedIds, AddProc)
-      end
 
    -- altrimenti lavorazione di fianco : Long2CutSide o Long2CutDown
    else
@@ -1848,8 +1822,8 @@ function ProcessLong2Cut.Make( Proc, nPhase, nRawId, nPartId, bForcedBladeMaster
       end
    end
 
-   return true, sWarn, nil, AddedIds
-end
+   return true, sWarn
+end   
 
 ---------------------------------------------------------------------
 return ProcessLong2Cut

UpdateLog.txt

@@ -1,5 +1,13 @@
            ==== Beam Update Log ====
 
+Versione 2.6g4 (2024/07/19)
+- Modif : in BatchProcess e BatchProcessNew si forza ricalcolo ogni volta che si è in situazione di CHECK o CHECK + GENERATE
+
+Versione 2.6g3 (07/07/2024)
+- Added : aggiunta possibilità di funzione GetNzLimDownUp specifica per ogni macchina
+- Modif : anche nel taglio a cubetti si chiama GetNzLimDownUp di macchina, se presente, per decidere limite orientamento lama verso il basso
+- Modif : in BeamExec inserito controllo massimo numero di facce per lanciare GetFacetsInfo
+- Fixed : in LapJoint corretto typo in nome variabile che provocava mancata impostazione asse bloccato
 
 Versione 2.6g2 (04/07/2024)
 - Modif : le lavorazioni BlockHaus, se vicine alla coda, vengono spostate dopo il taglio di separazione

Version.lua

@@ -2,5 +2,5 @@
 -- Gestione della versione di Beam
 
 NAME = 'Beam'
-VERSION = '2.6g2'
+VERSION = '2.6g4'
 MIN_EXE = '2.6e2'