- in BatchProcessN piccola correzione per pezzi a caduta

BatchProcess.lua

@@ -101,6 +101,21 @@ local function WriteTimeToLogFile( dTime)
    hFile:close()
 end
 
+-- Funzioni per riportare stato lavorazione o pezzo in nge
+local function WriteErrToNge( nProcId, sErr, sMsg, sRot, sCutId, sTaskId)
+   EgtSetInfo( nProcId, 'STATUS.ERR', sErr)
+   EgtSetInfo( nProcId, 'STATUS.MSG', sMsg)
+   EgtSetInfo( nProcId, 'STATUS.ROT', sRot)
+   EgtSetInfo( nProcId, 'CUTID', sCutId)
+   EgtSetInfo( nProcId, 'TASKID', sTaskId)
+end
+local function WriteFallToNge( nPartId, sErr, sMsg, sCutId, sFall)
+   EgtSetInfo( nPartId, 'STATUS.ERR', sErr)
+   EgtSetInfo( nPartId, 'STATUS.MSG', sMsg)
+   EgtSetInfo( nPartId, 'CUTID', sCutId)
+   EgtSetInfo( nPartId, 'STATUS.FALL', sFall)
+end
+
 -- Funzione per gestire visualizzazione dopo errore
 local function PostErrView( nErr, sMsg)
    if nErr ~= 0 and ( BEAM.FLAG == 1 or BEAM.FLAG == 2) then
@@ -202,7 +217,7 @@ if bBtl and string.find( sTitle, 'Bar_', 1, true) and EgtExistsFile( sNgeFile) t
    EgtEraseFile( sDiffFile)
    local _, nDiff = EgtTextFileCompare( BEAM.FILE, sOriFile, ';', sDiffFile)
    -- se BTL corrente coincide con originale, salto il riprocessamento
-   if nDiff == 0 and sFlag ~= 'CHECK' and sFlag ~= 'CHECK+GENERATE' then
+   if nDiff == 0 then
       bToProcess = false
       -- se cambiata configurazione macchina da ultima elaborazione, devo riprocessare
       if EgtCompareFilesLastWriteTime( sOriFile, sMachDir .. '\\Beam\\TS3Data.lua') == -1  or
@@ -413,6 +428,9 @@ if bToProcess then
          BEAM.CUTID = Stats[i].CutId
          BEAM.TASKID = Stats[i].TaskId
          WriteErrToLogFile( BEAM.ERR, BEAM.MSG, BEAM.ROT, BEAM.CUTID, BEAM.TASKID)
+         if Stats[i].ProcId then
+            WriteErrToNge( Stats[i].ProcId, BEAM.ERR, BEAM.MSG, BEAM.ROT, BEAM.CUTID, BEAM.TASKID)
+         end
       elseif Stats[i].Err > 0 then
          nErrCnt = nErrCnt + 1
          sOutput = sOutput .. string.format( '[%d,%d] %s\n', Stats[i].CutId, Stats[i].TaskId, sMsg)
@@ -422,6 +440,9 @@ if bToProcess then
          BEAM.CUTID = Stats[i].CutId
          BEAM.TASKID = Stats[i].TaskId
          WriteErrToLogFile( BEAM.ERR, BEAM.MSG, BEAM.ROT, BEAM.CUTID, BEAM.TASKID)
+         if Stats[i].ProcId then
+            WriteErrToNge( Stats[i].ProcId, BEAM.ERR, BEAM.MSG, BEAM.ROT, BEAM.CUTID, BEAM.TASKID)
+         end
       elseif Stats[i].Err < 0 then
          -- se segnalazione scarico pezzo standard, incompleto o a caduta
          if Stats[i].Err == -100 or Stats[i].Err == -101 or Stats[i].Err == -102 then
@@ -430,6 +451,9 @@ if bToProcess then
             BEAM.CUTID = Stats[i].CutId
             BEAM.FALL = abs( Stats[i].Err + 100)
             WriteFallToLogFile( BEAM.ERR, BEAM.MSG, BEAM.CUTID, BEAM.FALL)
+            if Stats[i].ProcId then
+               WriteFallToNge( Stats[i].PartId, BEAM.ERR, BEAM.MSG, BEAM.CUTID, BEAM.FALL)
+            end
          -- altri avvertimenti
          else
             nWarnCnt = nWarnCnt + 1
@@ -440,6 +464,9 @@ if bToProcess then
             BEAM.CUTID = Stats[i].CutId
             BEAM.TASKID = Stats[i].TaskId
             WriteErrToLogFile( BEAM.ERR, BEAM.MSG, BEAM.ROT, BEAM.CUTID, BEAM.TASKID)
+            if Stats[i].ProcId then
+               WriteErrToNge( Stats[i].ProcId, BEAM.ERR, BEAM.MSG, BEAM.ROT, BEAM.CUTID, BEAM.TASKID)
+            end
          end
       end
    end
@@ -455,30 +482,45 @@ if bToProcess then
       PostWarnView( 19, sOutput)
    end
 
--- Altrimenti carico il progetto salvato e dichiaro nessun errore
+-- Altrimenti carico il progetto salvato, rileggo gli errori da nge e riscrivo il log txt con gli stati precedenti
 else
    EgtOutLog( ' +++ Loading Project already processed >>>')
    -- Carico il progetto già fatto
    EgtOpenFile( sNgeFile)
-   -- Dichiaro nessun errore
+   -- Riscrivo il log txt
    local nPartId = EgtGetFirstPart()
    while nPartId do
       local nCutId = EgtGetInfo( nPartId, 'CUTID')
       if nCutId then
+         -- stato a livello di singola feature
          local nProcId = EgtGetFirstInGroup( EgtGetFirstNameInGroup( nPartId, 'Processings') or GDB_ID.NULL)
          while nProcId do
             local bIsFea = EgtExistsInfo( nProcId, 'GRP') and EgtExistsInfo( nProcId, 'PRC')
             local nTaskId = EgtGetInfo( nProcId, 'TASKID')
+            local sErr = EgtGetInfo( nProcId, 'STATUS.ERR') or 0
+            local sMsg = EgtGetInfo( nProcId, 'STATUS.MSG') or '---'
+            local sRot = EgtGetInfo( nProcId, 'STATUS.ROT') or 0
             if bIsFea and nTaskId then
-               BEAM.ERR = 0
-               BEAM.MSG = '---'
-               BEAM.ROT = 0
+               BEAM.ERR = sErr
+               BEAM.MSG = sMsg
+               BEAM.ROT = sRot
                BEAM.CUTID = nCutId
                BEAM.TASKID = nTaskId
                WriteErrToLogFile( BEAM.ERR, BEAM.MSG, BEAM.ROT, BEAM.CUTID, BEAM.TASKID)
             end
             nProcId = EgtGetNext( nProcId)
          end
+         -- stato a livello di pezzo
+         local sErr = EgtGetInfo( nPartId, 'STATUS.ERR') or 0
+         if sErr == -100 or sErr == -101 or sErr == -102 then
+            local sMsg = EgtGetInfo( nPartId, 'STATUS.MSG') or '---'
+            local sFall = EgtGetInfo( nPartId, 'STATUS.FALL') or 0
+            BEAM.ERR = sErr
+            BEAM.MSG = sMsg
+            BEAM.CUTID = nCutId
+            BEAM.FALL = sFall
+            WriteFallToLogFile( BEAM.ERR, BEAM.MSG, BEAM.CUTID, BEAM.FALL)
+         end
       end
       nPartId = EgtGetNextPart( nPartId)
    end

LuaLibs/BeamExec.lua

@@ -1238,7 +1238,7 @@ local function ClassifyFeatures( vProc, b3Raw, Stats)
             Proc.Flg = 0
             Proc.Down = true
             bAllOk = false
-            table.insert( Stats, {Err = 1, Msg='Error : impossible to machine by orientation', CutId=Proc.CutId, TaskId=Proc.TaskId})
+            table.insert( Stats, {Err = 1, Msg='Error : impossible to machine by orientation', CutId=Proc.CutId, TaskId=Proc.TaskId, ProcId = Proc.Id})
          -- gestione feature di coda da lavorare ribaltata
          elseif Proc.Tail and bDown then
             Proc.Down = true
@@ -1259,12 +1259,12 @@ local function ClassifyFeatures( vProc, b3Raw, Stats)
       elseif Proc.Flg == 0 then
          bAllOk = false
          Proc.ErrMsg = 'Error : out of the part'
-         table.insert( Stats, {Err = 1, Msg=Proc.ErrMsg, CutId=Proc.CutId, TaskId=Proc.TaskId})
+         table.insert( Stats, {Err = 1, Msg=Proc.ErrMsg, CutId=Proc.CutId, TaskId=Proc.TaskId, ProcId = Proc.Id})
       else
          Proc.Flg = 0
          bAllOk = false
          if not Proc.ErrMsg then Proc.ErrMsg = 'Error : impossible to machine' end
-         table.insert( Stats, {Err = 1, Msg=Proc.ErrMsg, CutId=Proc.CutId, TaskId=Proc.TaskId})
+         table.insert( Stats, {Err = 1, Msg=Proc.ErrMsg, CutId=Proc.CutId, TaskId=Proc.TaskId, ProcId = Proc.Id})
       end
    end
    -- se necessario ribaltamento, assegno intestatura alla fase ribaltata
@@ -1863,12 +1863,14 @@ local function VerifyDrillMirrored( Proc, vProc, b3Raw)
             ( BD.DOWN_HEAD and AreOppositeVectorApprox( vtExtr, Y_AX())) then
             Proc.Double = 2
             Proc.MachDepthDouble = dMachiningDepth
+            Proc.MirrorId = ProcToDisable.Id
             Proc.MirrorCutId = ProcToDisable.CutId
             Proc.MirrorTaskId = ProcToDisable.TaskId
             DisableOtherDrilling( ProcToDisable, vProc)
          elseif BD.DOWN_HEAD and AreSameVectorApprox( vtExtr, Z_AX()) then
             Proc.Double = 3
             Proc.MachDepthDouble = dMachiningDepth
+            Proc.MirrorId = ProcToDisable.Id
             Proc.MirrorCutId = ProcToDisable.CutId
             Proc.MirrorTaskId = ProcToDisable.TaskId
             DisableOtherDrilling( ProcToDisable, vProc)
@@ -2176,19 +2178,19 @@ function BeamExec.ProcessFeatures()
                end
                if not bOk then
                   nTotErr = nTotErr + 1
-                  table.insert( Stats, {Err=1, Msg=sMsg, Rot=-2, CutId=Proc.CutId, TaskId=Proc.TaskId})
+                  table.insert( Stats, {Err=1, Msg=sMsg, Rot=-2, CutId=Proc.CutId, TaskId=Proc.TaskId, ProcId = Proc.Id, PartId = nPartId})
                   if Proc.Double == 2 or Proc.Double == 3 then
-                     table.insert( Stats, {Err=1, Msg=sMsg, Rot=-2, CutId=Proc.MirrorCutId, TaskId=Proc.MirrorTaskId})
+                     table.insert( Stats, {Err=1, Msg=sMsg, Rot=-2, CutId=Proc.MirrorCutId, TaskId=Proc.MirrorTaskId, ProcId = Proc.MirrorId, PartId = nPartId})
                   end
                elseif sMsg and #sMsg > 0 then
-                  table.insert( Stats, {Err=-1, Msg=sMsg, Rot=-2, CutId=Proc.CutId, TaskId=Proc.TaskId})
+                  table.insert( Stats, {Err=-1, Msg=sMsg, Rot=-2, CutId=Proc.CutId, TaskId=Proc.TaskId, ProcId = Proc.Id, PartId = nPartId})
                   if Proc.Double == 2 or Proc.Double == 3 then
-                     table.insert( Stats, {Err=-1, Msg=sMsg, Rot=-2, CutId=Proc.MirrorCutId, TaskId=Proc.MirrorTaskId})
+                     table.insert( Stats, {Err=-1, Msg=sMsg, Rot=-2, CutId=Proc.MirrorCutId, TaskId=Proc.MirrorTaskId, ProcId = Proc.MirrorId, PartId = nPartId})
                   end
                else
-                  table.insert( Stats, {Err=0, Msg='', Rot=-2, CutId=Proc.CutId, TaskId=Proc.TaskId})
+                  table.insert( Stats, {Err=0, Msg='', Rot=-2, CutId=Proc.CutId, TaskId=Proc.TaskId, ProcId = Proc.Id, PartId = nPartId})
                   if Proc.Double == 2 or Proc.Double == 3 then
-                     table.insert( Stats, {Err=0, Msg='', Rot=-2, CutId=Proc.MirrorCutId, TaskId=Proc.MirrorTaskId})
+                     table.insert( Stats, {Err=0, Msg='', Rot=-2, CutId=Proc.MirrorCutId, TaskId=Proc.MirrorTaskId, ProcId = Proc.MirrorId, PartId = nPartId})
                   end
                end
                -- se è taglio di separazione, verifico se ha già aggiunto una nuova fase oppure se è da creare
@@ -2272,19 +2274,19 @@ function BeamExec.ProcessFeatures()
                end
                if not bOk then
                   nTotErr = nTotErr + 1
-                  table.insert( Stats, {Err=1, Msg=sMsg, Rot=-1, CutId=Proc.CutId, TaskId=Proc.TaskId})
+                  table.insert( Stats, {Err=1, Msg=sMsg, Rot=-1, CutId=Proc.CutId, TaskId=Proc.TaskId, ProcId = Proc.Id, PartId = nPartId})
                   if Proc.Double == 2 or Proc.Double == 3 then
-                     table.insert( Stats, {Err=1, Msg=sMsg, Rot=-1, CutId=Proc.MirrorCutId, TaskId=Proc.MirrorTaskId})
+                     table.insert( Stats, {Err=1, Msg=sMsg, Rot=-1, CutId=Proc.MirrorCutId, TaskId=Proc.MirrorTaskId, ProcId = Proc.MirrorId, PartId = nPartId})
                   end
                elseif sMsg and #sMsg > 0 then
-                  table.insert( Stats, {Err=-1, Msg=sMsg, Rot=-1, CutId=Proc.CutId, TaskId=Proc.TaskId})
+                  table.insert( Stats, {Err=-1, Msg=sMsg, Rot=-1, CutId=Proc.CutId, TaskId=Proc.TaskId, ProcId = Proc.Id, PartId = nPartId})
                   if Proc.Double == 2 or Proc.Double == 3 then
-                     table.insert( Stats, {Err=-1, Msg=sMsg, Rot=-1, CutId=Proc.MirrorCutId, TaskId=Proc.MirrorTaskId})
+                     table.insert( Stats, {Err=-1, Msg=sMsg, Rot=-1, CutId=Proc.MirrorCutId, TaskId=Proc.MirrorTaskId, ProcId = Proc.MirrorId, PartId = nPartId})
                   end
                else
-                  table.insert( Stats, {Err=0, Msg='', Rot=-1, CutId=Proc.CutId, TaskId=Proc.TaskId})
+                  table.insert( Stats, {Err=0, Msg='', Rot=-1, CutId=Proc.CutId, TaskId=Proc.TaskId, ProcId = Proc.Id, PartId = nPartId})
                   if Proc.Double == 2 or Proc.Double == 3 then
-                     table.insert( Stats, {Err=0, Msg='', Rot=-1, CutId=Proc.MirrorCutId, TaskId=Proc.MirrorTaskId})
+                     table.insert( Stats, {Err=0, Msg='', Rot=-1, CutId=Proc.MirrorCutId, TaskId=Proc.MirrorTaskId, ProcId = Proc.MirrorId, PartId = nPartId})
                   end
                end
                if bOk then nSideMchOk = nSideMchOk + 1 end
@@ -2356,19 +2358,19 @@ function BeamExec.ProcessFeatures()
             end
             if not bOk then
                nTotErr = nTotErr + 1
-               table.insert( Stats, {Err=1, Msg=sMsg, Rot=0, CutId=Proc.CutId, TaskId=Proc.TaskId})
+               table.insert( Stats, {Err=1, Msg=sMsg, Rot=0, CutId=Proc.CutId, TaskId=Proc.TaskId, ProcId = Proc.Id, PartId = nPartId})
                if Proc.Double == 2 or Proc.Double == 3 then
-                  table.insert( Stats, {Err=1, Msg=sMsg, Rot=0, CutId=Proc.MirrorCutId, TaskId=Proc.MirrorTaskId})
+                  table.insert( Stats, {Err=1, Msg=sMsg, Rot=0, CutId=Proc.MirrorCutId, TaskId=Proc.MirrorTaskId, ProcId = Proc.MirrorId, PartId = nPartId})
                end
             elseif sMsg and #sMsg > 0 then
-               table.insert( Stats, {Err=-1, Msg=sMsg, Rot=0, CutId=Proc.CutId, TaskId=Proc.TaskId})
+               table.insert( Stats, {Err=-1, Msg=sMsg, Rot=0, CutId=Proc.CutId, TaskId=Proc.TaskId, ProcId = Proc.Id, PartId = nPartId})
                if Proc.Double == 2 or Proc.Double == 3 then
-                  table.insert( Stats, {Err=-1, Msg=sMsg, Rot=0, CutId=Proc.MirrorCutId, TaskId=Proc.MirrorTaskId})
+                  table.insert( Stats, {Err=-1, Msg=sMsg, Rot=0, CutId=Proc.MirrorCutId, TaskId=Proc.MirrorTaskId, ProcId = Proc.MirrorId, PartId = nPartId})
                end
             else
-               table.insert( Stats, {Err=0, Msg='', Rot=0, CutId=Proc.CutId, TaskId=Proc.TaskId})
+               table.insert( Stats, {Err=0, Msg='', Rot=0, CutId=Proc.CutId, TaskId=Proc.TaskId, ProcId = Proc.Id, PartId = nPartId})
                if Proc.Double == 2 or Proc.Double == 3 then
-                  table.insert( Stats, {Err=0, Msg='', Rot=0, CutId=Proc.MirrorCutId, TaskId=Proc.MirrorTaskId})
+                  table.insert( Stats, {Err=0, Msg='', Rot=0, CutId=Proc.MirrorCutId, TaskId=Proc.MirrorTaskId, ProcId = Proc.MirrorId, PartId = nPartId})
                end
             end
             -- se era taglio di separazione, aggiungo nuova fase

LuaLibs/ProcessCut.lua

@@ -608,8 +608,7 @@ local function MakeFromTop( sCutting, Proc, nPhase, nRawId, nPartId, dOvmHead, b
       local vtOrthoO
       if bFromBottom and dCutV < dMaxDepth - BD.CUT_EXTRA and vtN:getZ() > 0 then
          vtOrthoO = -Z_AX()
-      elseif ( bHorizCut or ( dCutV < dMaxDepth - BD.CUT_EXTRA and not bVertCutOk)) and 
-             ( not bVertCutOk or b3Solid:getDimX() > BD.LEN_SHORT_PART or Proc.AdvTail or ( vtN:getX() > 0 and vtN:getZ() <= 0.708) or ( abs( vtN:getY()) < 0.1 and vtN:getZ() <= 0)) then
+      elseif bHorizCut and ( not bVertCutOk or b3Solid:getDimX() > BD.LEN_SHORT_PART or Proc.AdvTail or ( vtN:getX() > 0 and vtN:getZ() <= 0.708) or ( abs( vtN:getY()) < 0.1 and vtN:getZ() <= 0)) then
          vtOrthoO = Z_AX()
       elseif b3Solid:getDimX() < BD.LEN_SHORT_PART and not Proc.AdvTail and abs( vtN:getY()) > 0.259 and
              vtN:getZ() > -0.174 and abs( vtN:getY()) > abs( vtN:getZ()) and dCutH < dMaxDepth + 10 * GEO.EPS_SMALL then

LuaLibs/ProcessDrill.lua

@@ -209,8 +209,7 @@ function ProcessDrill.AddPredrillFromDrillProc( Proc)
       PredrillProc.MainId = Proc.MainId
       PredrillProc.IsPredrill = true
       PredrillProc.IsPredrillOf = Proc.Id
-      -- recupero l'elenco delle facce della parte interessate dalla feature
-      PredrillProc.AffectedFaces = BL.GetProcessAffectedFaces( PredrillProc)
+
       return true, PredrillProc
    end
 end

UpdateLog.txt

@@ -1,5 +1,8 @@
            ==== Beam Update Log ====
 
+Versione 2.7c2 (24/03/2025)
+- Fixed : in BatchProcess (Ts7) riabilitata modifica barra erroneamente rimossa
+
 Versione 2.7c1 (17/03/2025)
 - Modif : in HeadCut e Split, per decidere se fare doppio taglio verticale, si controlla anche il massimo possibile e non solo il minimo
 - Modif : in LapJoint migliorato controllo per decidere se feature di coda

Version.lua

@@ -2,5 +2,5 @@
 -- Gestione della versione di Beam
 
 NAME = 'Beam'
-VERSION = '2.7c1'
+VERSION = '2.7c2'
 MIN_EXE = '2.6e5'