- #CRITICAL# in LapJoint correzione parentesi che causavano la chiamata di LongCut in casi errati

- In BeamLib, si considerano simili due facce che hanno elevazione oltre l'85%

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/BeamLib.lua

@@ -642,7 +642,7 @@ function BeamLib.GetFaceWithMostAdj( Proc, nPartId, bCompare3Fc, dCosSideAng)
    -- premio quella che non è sottosquadra e che ha la X minore
    local bDiffSmall = true
    for i = 1, #dtElev do
-      if dtElev[i] > dMinElev + 5 or dtElev[i] > 80 then
+      if ( dtElev[i] > dMinElev + 5 or dtElev[i] > 80) and dMinElev < 0.85 * dtElev[i] then
          bDiffSmall = false
       end
    end

LuaLibs/FacesBySaw.lua

@@ -233,8 +233,12 @@ function FacesBySaw.MakeOne( nSurfId, nFacet, sCutting, dSawDiam, Par5, dVzLimDw
    if not dVzLimDwnUp then dVzLimDwnUp = BL.GetNzLimDownUp( b3Raw, vtN, vtOrthO) end
    local bDownHead = ( dVzLimDwnUp and dVzLimDwnUp < - 1.5)
    local bDownUp = ( vtN:getZ() < dVzLimDwnUp)
+   -- Commentato perchè il vtFaceUse non funziona correttaemnte in caso che il lato da lavorare sia a 45°. Potrebbe ritornare una trilinea, non gestibile. Si passano le direzioni normali agli assi.
+   --local ptP1, ptPm, ptP2, vtV1, vtV2, dLen, dWidth = EgtSurfTmFacetOppositeSide( nSurfId, nFacet, vtOrthO, GDB_ID.ROOT)
+   
    -- linea o bilinea di lavorazione
-   local ptP1, ptPm, ptP2, vtV1, vtV2, dLen, dWidth = EgtSurfTmFacetOppositeSide( nSurfId, nFacet, vtOrthO, GDB_ID.ROOT)
+   local ptP1, ptPm, ptP2, vtV1, vtV2, dLen, dWidth = EgtSurfTmFacetOppositeSide( nSurfId, nFacet, BL.GetVersRef( nOrthoOpposite), GDB_ID.ROOT)
+
    if not dLen or dLen < 1.1 or not dWidth or dWidth < 1.1 then
       local sWarn = 'Face ' .. string.format( '%d,%d', nSurfId, nFacet) .. ' skipped : too small'
       EgtOutLog( sWarn, 1)
@@ -547,8 +551,9 @@ function FacesBySaw.MakeOne( nSurfId, nFacet, sCutting, dSawDiam, Par5, dVzLimDw
    EgtSetMachiningGeometry( {{ nSurfId, nFacet}})
    -- imposto uso faccia
    EgtSetMachiningParam( MCH_MP.FACEUSE, nFaceUse)
-   local sNoteVtFaceUse = 'VtFaceUse=' .. EgtNumToString( vtOrthO:getX(),3) .. ',' .. EgtNumToString( vtOrthO:getY(),3) .. ',' .. EgtNumToString( vtOrthO:getZ(),3) .. ';'
-   EgtSetMachiningParam( MCH_MP.USERNOTES, sNoteVtFaceUse)
+   -- Commentato perchè il vtFaceUse non funziona correttaemnte in caso che il lato da lavorare sia a 45°. Potrebbe ritornare una trilinea, non gestibile.
+   -- local sNoteVtFaceUse = 'VtFaceUse=' .. EgtNumToString( vtOrthO:getX(),3) .. ',' .. EgtNumToString( vtOrthO:getY(),3) .. ',' .. EgtNumToString( vtOrthO:getZ(),3) .. ';'
+   -- EgtSetMachiningParam( MCH_MP.USERNOTES, sNoteVtFaceUse)
    -- imposto posizione braccio porta testa
    EgtSetMachiningParam( MCH_MP.SCC, nSCC)
    -- imposto inversione e lato correzione
@@ -643,7 +648,7 @@ function FacesBySaw.MakeTwo( Proc, nPhase, nRawId, nPartId, dOvmHead, sCutType,
    local bFaceOk = {}
    bFaceOk[1] = ( vtN[1]:getZ() >= ( BD.CUT_VZ_MIN or BD.NZ_MINB) or abs( vtN[1]:getY()) < 0.174 or ( Proc.AffectedFaces.Left ~= Proc.AffectedFaces.Right and Proc.Face[1].Elevation < dMaxDepth - 10 * GEO.EPS_SMALL))
    bFaceOk[2] = ( vtN[2]:getZ() >= ( BD.CUT_VZ_MIN or BD.NZ_MINB) or abs( vtN[2]:getY()) < 0.174 or ( Proc.AffectedFaces.Left ~= Proc.AffectedFaces.Right and Proc.Face[2].Elevation < dMaxDepth - 10 * GEO.EPS_SMALL))
-   if not bDownHead and ( not bFaceOk[1] or not bFaceOk[2]) then
+   if not bDownHead and not bFaceOk[1] and not bFaceOk[2] then
       local sErr = 'Error : TwoFacesBySaw from bottom impossible'
       EgtOutLog( sErr)
       return false, sErr

LuaLibs/ProcessCut.lua

@@ -92,7 +92,7 @@ function ProcessCut.Classify( Proc, b3Raw)
       -- calcolo l'ingombro orizzontale della faccia
       local _, DimH, DimV = BL.GetFaceHvRefDim( Proc.Id, 0)
       -- confronto questo ingombro con il doppio della massima dimensione del DiceCut (impossibile lavorare sotto da sopra se più di 2 tagli oppure se tipo PF, taglio inclinato in Y e non taglio singolo orizzontale)
-      if DimH > 2 * BD.MAX_DIM_DICE  or ( BD.C_SIMM and ( abs( vtN:getY()) > 0.1 or bDownCut) and dMaxMat < DimH + BD.CUT_EXTRA) then
+      if DimH > 2 * BD.MAX_DIM_DICE  or ( BD.C_SIMM and ( abs( vtN:getY()) > 0.1) and dMaxMat < DimH + BD.CUT_EXTRA) then
          return true, true
       end
    end
@@ -262,6 +262,7 @@ end
 ---------------------------------------------------------------------
 -- Applicazione della lavorazione con testa da sopra
 local function MakeFromTop( sCutting, Proc, nPhase, nRawId, nPartId, dOvmHead, bFromBottom, bCustDiceCut, bForced, b3Raw, sNotes, nLimitingSurf, bForceTangentLeadInOut)
+   local sWarn
    -- ingombro del grezzo
    b3Raw = b3Raw or EgtGetRawPartBBox( nRawId)
    -- ingombro del pezzo
@@ -373,10 +374,17 @@ local function MakeFromTop( sCutting, Proc, nPhase, nRawId, nPartId, dOvmHead, b
    end
    -- verifico se necessari tagli supplementari o se presente superficie limitante
    EgtOutLog( string.format( 'MaxDepth=%.1f MaxVertDepth=%.1f CutH=%.1f CutV=%.1f', dMaxDepth, dMaxVertDepth, dCutH, dCutV), 3)
+   -- se lungo, una faccia e rivolto sul retro verso l'alto si forzano i cubetti per evitare di rovinare il pezzo successivo
+   local bForceDicing = ( Proc.Fct == 1 and Proc.AffectedFaces.Left and bLongCut and vtN:getZ() > 10 * GEO.EPS_SMALL and vtN:getY() < 10 * GEO.EPS_SMALL)
    local vCuts = {}
-   if not Proc.AdvTail and ( dCutH > dMaxDepth - BD.CUT_EXTRA - 3 * BD.COLL_SIC or dCutV > dMaxVertDepth - BD.CUT_EXTRA - 3 * BD.COLL_SIC) then
+   if ( ( not Proc.AdvTail) or bForceDicing) and ( dCutH > dMaxDepth - BD.CUT_EXTRA - 3 * BD.COLL_SIC or dCutV > dMaxVertDepth - BD.CUT_EXTRA - 3 * BD.COLL_SIC) then
       local ptExtra, vtExtra
       local bAutoCalcSurf = true
+      if Proc.AdvTail then
+         -- do avviso che la lama può sbordare nel pezzo successivo
+         sWarn = 'Warning : Cut machining can damage next piece'
+         EgtOutLog( sWarn .. ' (process ' .. tostring( Proc.Id) .. ')')
+      end
       if bFillAreaPiece or bFillTail then
          local ptMiddle = ( b3Solid:getMin() + b3Solid:getMax()) / 2
          ptExtra = Point3d( b3Solid:getMin():getX() + 5*GEO.EPS_SMALL, ptMiddle:getY(), ptMiddle:getZ())
@@ -415,7 +423,7 @@ local function MakeFromTop( sCutting, Proc, nPhase, nRawId, nPartId, dOvmHead, b
          end
       end
       -- se il taglio è più spesso della lama abilito il dicing, altrimenti no
-      if dMaxElev > dSawThick then
+      if ( dMaxElev > dSawThick) or bForceDicing then
          vCuts = DC.GetDice( nAddGrpId, EgtIf( bForced, b3Raw, b3Solid), ptC, vtN, bAutoCalcSurf, ptExtra, vtExtra, dMaxVertDepth - BD.CUT_EXTRA, dNewDiceDim)
          -- se taglio sborda in coda e non è stato inserito nessun taglio a cubetti, lo rilancio con le dimensioni customizzate
          if ( bFillTail or bCustDiceCut) and #vCuts == 0 then
@@ -642,7 +650,7 @@ local function MakeFromTop( sCutting, Proc, nPhase, nRawId, nPartId, dOvmHead, b
       local bOk, sErr = Fbs.MakeOne( Proc.Id, 0, sCutting, dSawDiam, vtOrthoO, dVzLimDwnUp, dCutExtra, BD.CUT_SIC, 0, 0, 0, nil, b3Raw)
       if not bOk then return bOk, sErr end
    end
-   return true
+   return true, sWarn
 end
 
 ---------------------------------------------------------------------
@@ -867,22 +875,31 @@ function ProcessCut.Make( Proc, nPhase, nRawId, nPartId, dOvmHead, bFromBottom,
       return false, sErr
    end
    local bNoDicing = false
+   local sWarn
    -- se taglio con testa da sopra
    if not bDownHead and not bDownTurn then
       local bOk, sErr, bNoDicing2 = MakeFromTop( sCutting, Proc, nPhase, nRawId, nPartId, dOvmHead, bFromBottom, bCustDiceCut, bForced, b3Raw, sNotes, nLimitingSurf, bForceTangentLeadInOut)
       bNoDicing = bNoDicing2
-      if not bOk then return false, sErr end
+      if not bOk then
+         return false, sErr
+      else
+         sWarn = sErr
+      end
    -- altrimenti taglio con testa da sotto
    else
       local bOk, sErr = MakeFromDown( sCutting, Proc, nPhase, nRawId, nPartId, dOvmHead)
-      if not bOk then return false, sErr end
+      if not bOk then
+         return false, sErr
+      else
+         sWarn = sErr
+      end
    end
    -- Aggiornamento ingombro (se vero taglio o richiesto)
    -- Se lascio il cordolo (bNoDicing) non aggiorno il grezzo perchè lo scarto rimane attaccato
    if ( ProcessCut.Identify( Proc) or bUpdateIng) and not bNoDicing then
       UpdateEncumbrance( Proc, vtN, dOvmHead, nRawId, b3Solid, b3Raw)
    end
-   return true
+   return true, sWarn
 end
 
 ---------------------------------------------------------------------

LuaLibs/ProcessHeadCut.lua

@@ -406,10 +406,13 @@ function ProcessHeadCut.Make( Proc, nPhase, nRawId, nPartId, dOvmHead, bNeedHCut
          dSawThick2 = EgtTdbGetCurrToolParam( MCH_TP.THICK) or dSawThick2
       end
    end
+   -- determino se lo spessore del materiale da rimuovere è eccessivo e quindi vanno fatti più tagli con offset
+   local nCuts = max( ceil( dOvmHead / (( BD.MAX_LEN_SCRAP_START or BD.MAX_LEN_SCRAP) + 0.5)), 1)
+   local dOffsL = dOvmHead / nCuts
    -- caratteristiche taglio
    local dDimYRef = EgtIf( b3Raw:getDimZ() < BD.MIN_DIM_HBEAM + 10 * GEO.EPS_SMALL, dMaxDepth, abs( BD.MAX_DIM_HTCUT_HBEAM))
    local bBigSectionCut = ( b3Raw:getDimY() > 2 * dDimYRef - BD.CUT_EXTRA_MIN + 10 * GEO.EPS_SMALL) and
-                          ( b3Raw:getDimZ() > EgtIf( BD.TURN, 2 * dMaxVertDepth, dMaxVertDepth + dMaxDepth2) - 2 * BD.CUT_EXTRA_MIN + 10 * GEO.EPS_SMALL)
+                          ( b3Raw:getDimZ() > EgtIf( BD.TURN, 2 * dMaxVertDepth, dMaxVertDepth + dMaxDepth2) - 2 * BD.CUT_EXTRA + 10 * GEO.EPS_SMALL)
    local bHorizCut = ( ( b3Raw:getDimY() > b3Raw:getDimZ() + 10 * GEO.EPS_SMALL or BD.TURN) and b3Raw:getDimZ() < dMaxVertDepth - BD.CUT_EXTRA)
    local bDoubleHorizCut = ( ( BD.DOWN_HEAD or BD.TURN) and not bHorizCut and b3Raw:getDimY() > 2 * dDimYRef - BD.CUT_EXTRA_MIN + 10 * GEO.EPS_SMALL)
    local bDoubleCut = ( not bHorizCut and not bDoubleHorizCut and b3Raw:getDimY() > dDimYRef - BD.CUT_EXTRA  + 10 * GEO.EPS_SMALL) and
@@ -417,7 +420,9 @@ function ProcessHeadCut.Make( Proc, nPhase, nRawId, nPartId, dOvmHead, bNeedHCut
    -- verifico necessità di tagli aggiuntivi orizzontali o verticali
    local dMinOvmHeadForAddeddCuts = 10.123
    local bNeedVerticalAddedCuts = ( Proc.Face[1].WidthTrimmed > BD.MAX_LEN_DICE) and ( dOvmHead > dMinOvmHeadForAddeddCuts - 10 * GEO.EPS_SMALL)
-   local bNeedHorizontalAddedCuts = ( Proc.Face[1].HeightTrimmed > ( BD.MIN_HEIGHT_ADDED_CUTS or BD.MAX_LEN_DICE)) and not bBigSectionCut and ( dOvmHead > dMinOvmHeadForAddeddCuts - 10 * GEO.EPS_SMALL)
+   local bNeedHorizontalAddedCuts = ( Proc.Face[1].HeightTrimmed > ( BD.MIN_HEIGHT_ADDED_CUTS or BD.MAX_LEN_DICE)) and
+                                    not bBigSectionCut and ( dOvmHead > dMinOvmHeadForAddeddCuts - 10 * GEO.EPS_SMALL) and
+                                    dOffsL < BD.MAX_DIM_DICE
    -- dati lavorazioni sopra e sotto
    local Cutting1Data = { sCutting = sCutting, dSawDiam = dSawDiam, dMaxDepth = dMaxDepth, dSawThick = dSawThick, dMaxVertDepth = dMaxVertDepth}
    local Cutting2Data = { sCutting = sCutting2, dSawDiam = dSawDiam2, dMaxDepth = dMaxDepth2, dSawThick = dSawThick2}
@@ -429,9 +434,6 @@ function ProcessHeadCut.Make( Proc, nPhase, nRawId, nPartId, dOvmHead, bNeedHCut
    if not bNeedHCut  and  AreSameVectorApprox( vtN, X_AX())  and  abs( ptC:getX() - b3Raw:getMax():getX()) < 10 * GEO.EPS_SMALL then
       return true
    end
-   -- determino se lo spessore del materiale da rimuovere è eccessivo e quindi vanno fatti più tagli con offset
-   local nCuts = max( ceil( dOvmHead / (( BD.MAX_LEN_SCRAP_START or BD.MAX_LEN_SCRAP) + 0.5)), 1)
-   local dOffsL = dOvmHead / nCuts
    -- se taglio per sezioni alte e larghe
    if bBigSectionCut then
       if dOvmHead > 0 then

LuaLibs/ProcessLapJoint.lua

@@ -200,6 +200,7 @@ local function AssignQIdent( Proc)
    elseif ( Proc.Grp == 3 or Proc.Grp == 4)  and  Proc.Prc == 17 then
       Q_DEPTH_CHAMFER       = 'Q01' -- d
       Q_ONLY_CHAMFER        = 'Q02' -- i
+      Q_USE_MILL            = 'Q03' -- i
    elseif ( Proc.Grp == 3 or Proc.Grp == 4)  and  Proc.Prc == 20 then
       Q_DEPTH_CHAMFER       = 'Q01' -- d
       Q_USE_MILL            = 'Q02' -- i
@@ -5288,7 +5289,7 @@ function SawPlusChain.Saw.CalculateMachiningParameters( Proc, FaceToMachine, Edg
          EgtOutLog( Cutting.Message)
       end
    end
-   if EdgeToMachine.ToolDirection:getZ() < BD.NZ_MINA then
+   if EdgeToMachine.ToolDirection:getZ() < BD.NZ_MINA and BD.C_SIMM then
       Cutting.CanApply = false
       Cutting.Message = 'Feature '.. Proc.FeatureId .. ' : skipped sawblade from bottom'
       EgtOutLog( Cutting.Message)
@@ -6152,9 +6153,20 @@ local function MakeMoreFaces( Proc, nPhase, nRawId, nPartId, dOvmHead, bSinglePa
                   vtN, vtN2 = vtN2, vtN
                   sPocketing = ML.FindPocketing( sMchFind, dDiam2, dFacElev2 + dCollSic2)
                   if not sPocketing then
-                     local sErr = 'Error : '..sMchFind..' not found in library'
-                     EgtOutLog( sErr)
-                     return false, sErr
+                     dDiam, dDiam2 = dDiam2, dDiam
+                     dCollSic, dCollSic2 = dCollSic2, dCollSic
+                     nFacInd, nFacInd2 = nFacInd2, nFacInd
+                     dH, dH2 = dH2, dH
+                     dV, dV2 = dV2, dV
+                     dFacElev, dFacElev2 = dFacElev2, dFacElev
+                     rfFac, rfFac2 = rfFac2, rfFac
+                     vtN, vtN2 = vtN2, vtN
+                     sPocketing = ML.FindPocketing( sMchFind, dDiam2, nil, nil, nil, nil, nil, nil, 'Longest')
+                     if not sPocketing then
+                        local sErr = 'Error : '..sMchFind..' not found in library'
+                        EgtOutLog( sErr)
+                        return false, sErr
+                     end
                   end
                end
                -- provo con contornatura
@@ -7088,11 +7100,9 @@ local function TestTwoFacesDownHead( Proc)
       if not ( Proc.Face[1].IsTooDownwardForTopBlade or Proc.Face[2].IsTooDownwardForTopBlade) then
          bDownHeadBlade = false
       else
-         for i = 1, Proc.Fct do
-            if Proc.Face[i].IsTooDownwardForTopBlade and ( not Proc.IsTopDownRabbet or Proc.Face[i].IsTooWideForTopBlade) then
-               bDownHeadBlade = true
-               break
-            end
+         if ( Proc.Face[1].IsTooDownwardForTopBlade and Proc.Face[2].IsTooWideForTopBlade) or
+            ( Proc.Face[2].IsTooDownwardForTopBlade and Proc.Face[1].IsTooWideForTopBlade) then
+            bDownHeadBlade = true
          end
       end
    end
@@ -7350,7 +7360,7 @@ function ProcessLapJoint.Make( Proc, nPhase, nRawId, nPartId, dOvmHead)
    -- 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
-      ( ( nForceUseBladeOnNotContinueFace and nForceUseBladeOnNotContinueFace > 0) and ( Proc.Box:getDimX() > BD.LEN_SHORT_PART or 1000)) then
+      ( ( nForceUseBladeOnNotContinueFace and nForceUseBladeOnNotContinueFace > 0) and ( Proc.Box:getDimX() > ( BD.LEN_SHORT_PART or 1000))) then
       -- una faccia
       if Proc.Fct == 1 then
          if bUseBlade then

LuaLibs/ProcessSplit.lua

@@ -631,7 +631,7 @@ function ProcessSplit.Make( Proc, nPhase, nRawId, nPartId, nOrd, sDownOrSideOrSt
    -- caratteristiche taglio
    local dDimYRef = EgtIf( b3Raw:getDimZ() < BD.MIN_DIM_HBEAM + 10 * GEO.EPS_SMALL, dSawMaxDepth, abs( BD.MAX_DIM_HTCUT_HBEAM))
    local bBigSectionCut = ( b3Raw:getDimY() > 2 * dDimYRef - BD.CUT_EXTRA_MIN + 10 * GEO.EPS_SMALL) and
-                          ( b3Raw:getDimZ() > EgtIf( BD.TURN, 2 * dMaxVertDepth,  dMaxVertDepth + dSawMaxDepth2) - 2 * BD.CUT_EXTRA_MIN + 10 * GEO.EPS_SMALL)
+                          ( b3Raw:getDimZ() > EgtIf( BD.TURN, 2 * dMaxVertDepth,  dMaxVertDepth + dSawMaxDepth2) - 2 * BD.CUT_EXTRA + 10 * GEO.EPS_SMALL)
    local bHorizCut = ( ( b3Raw:getDimY() > b3Raw:getDimZ() + 10 * GEO.EPS_SMALL or BD.TURN) and ( b3Raw:getDimZ() < dMaxVertDepth - BD.CUT_EXTRA))
    local bDoubleHorizCut = ( ( BD.DOWN_HEAD or BD.TURN) and not bHorizCut and b3Raw:getDimY() > 2 * dDimYRef - BD.CUT_EXTRA_MIN + 10 * GEO.EPS_SMALL)
    local bDoubleCut = ( not bHorizCut and not bDoubleHorizCut and b3Raw:getDimY() > dDimYRef - BD.CUT_EXTRA  + 10 * GEO.EPS_SMALL) and
@@ -661,7 +661,10 @@ function ProcessSplit.Make( Proc, nPhase, nRawId, nPartId, nOrd, sDownOrSideOrSt
    -- determino la necessità di tagli aggiuntivi
    local dMinTailScrapForAdditionalCuts = 10.123
    local bNeedVerticalAddedCuts = not bSplit and ( Proc.Face[1].WidthTrimmed > BD.MAX_LEN_DICE) and ( dLenEndRaw > dMinTailScrapForAdditionalCuts - 10 * GEO.EPS_SMALL)
-   local bNeedHorizontalAddedCuts = not bSplit and ( Proc.Face[1].HeightTrimmed > ( BD.MIN_HEIGHT_ADDED_CUTS or BD.MAX_LEN_DICE)) and not bBigSectionCut and ( dLenEndRaw > dMinTailScrapForAdditionalCuts - 10 * GEO.EPS_SMALL)
+   local bNeedHorizontalAddedCuts = not bSplit and not bBigSectionCut and
+                                    ( Proc.Face[1].HeightTrimmed > ( BD.MIN_HEIGHT_ADDED_CUTS or BD.MAX_LEN_DICE)) and
+                                    ( dLenEndRaw > dMinTailScrapForAdditionalCuts - 10 * GEO.EPS_SMALL) and
+                                    dOffsL < BD.MAX_DIM_DICE
    -- dati lavorazioni sopra e sotto
    local Cutting1Data = { sCutting = sCutting, dSawDiam = dSawDiam, dMaxDepth = dSawMaxDepth, dSawThick = dSawThick, dMaxVertDepth = dMaxVertDepth}
    local Cutting2Data = { sCutting = sCutting2, dSawDiam = dSawDiam2, dMaxDepth = dSawMaxDepth2, dSawThick = dSawThick2}

UpdateLog.txt

@@ -1,5 +1,19 @@
            ==== Beam Update Log ====
 
+Versione 2.7d2 (17/04/2025)
+- Added : in scanalatura aggiunta Q03 per forzare fresa
+- Modif : in slot con lama + sega a catena abilitata lavorazione da sotto per macchine con testa sopra
+- Modif : nei tagli modifche in caso di tagli di coda anticipati
+- Modif : in lavorazioni tipo tacca ma 3 facce migliorata la scelta faccia
+
+Versione 2.7d1 (04/04/2025)
+- Fixed : in PreDrill piccola correzione
+- Fixed : nei tagli varie correzioni
+- Fixed : in HeadCut e Split corretto calcolo lunghezza extra di taglio
+
+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.7d2'
 MIN_EXE = '2.6e5'