In ScarfJoint corretto caso in cui faccia di fondo sia più alta rispetto a faccia verticale centrale

2.7e1

BatchProcess.lua

@@ -526,6 +526,12 @@ else
    end
    -- Aggiorno eventuali dati ausiliari
    UpdateAuxData( sBtmFile)
+
+   -- Anche se non è da riprocessare, imposto nome file CN.
+   -- Se file TS7 importato da altro PC, 'BEAM.FILE' è cambiato da un PC all'altro. Di conseguenza si deve aggiornare nome file che si andrà a generare.
+   local _, sName, _ = EgtSplitPath( BEAM.FILE)
+   EgtSetInfo( EgtGetLastMachGroup(), 'NcName', sName .. '.cnc')
+
    -- Passo in modalità lavora
    EgtSetCurrMachGroup( EgtGetLastMachGroup())
    -- Se necessario eseguo aggiornamento con setup corrente e ricalcolo delle lavorazioni

LuaLibs/ProcessDtTenon.lua

@@ -70,8 +70,8 @@ local function VerifyOrientation( Proc, vtN, b3Raw)
       end
    -- altrimenti
    else
-      -- accetto fino a -5deg
-      return ( vtN:getZ() >= -0.088)
+      -- accetto fino a -7deg
+      return ( vtN:getZ() >= -0.122)
    end
 end
 

LuaLibs/ProcessLapJoint.lua

@@ -5848,10 +5848,11 @@ local function MakeMoreFaces( Proc, nPhase, nRawId, nPartId, dOvmHead, bSinglePa
          local sMyMchFind = 'Pocket'
          local nOk, sErr
          nOk, sErr, dDimMin, dDimMax, dDepth, vtOrtho,
-            nLundIdFace = MakeByPockets( Proc, nPhase, nRawId, nPartId, nChamfer, dDepthCham, nAddGrpId, sMyMchFind, false, b3Solid, bClosedOrthoFaces)
+            nLundIdFace, sErr = MakeByPockets( Proc, nPhase, nRawId, nPartId, nChamfer, dDepthCham, nAddGrpId, sMyMchFind, false, b3Solid, bClosedOrthoFaces)
          if nOk < 0 then
             return false, sErr
          elseif nOk > 0 then
+            sWarn = sErr
             bTryWithBlades = false
          end
       end

LuaLibs/ProcessScarfJoint.lua

@@ -196,27 +196,33 @@ local function ApplyDiceCut( vFaceOrd, nGoodFace1, nGoodFace4, nAddGrpId, b3Soli
             end
          end
 
-         -- controllo per eseguire solo un taglio ottimizzato
-         local bExecJustOneCut = false
-         local dDiceFaceDim = GEO.INFINITO
-         if ( i % 2) == 0  then
-            for cont = 1, #vCuts[i] do
-               local _, dDiceFaceH, dDiceFaceV = BL.GetFaceHvRefDim( vCuts[i][cont], 0)
-               -- se feature verso Z, si ammette anche lavorazione in doppio
-               if AreSameVectorApprox( vtRef, Z_AX()) then
-                  if dMaxDepth * 2 > dDiceFaceH + BD.CUT_EXTRA then
-                     bExecJustOneCut = true
-                     dDiceFaceDim = dDiceFaceH
-                     break
-                  end
-               elseif AreSameVectorApprox( vtRef, Y_AX()) or AreSameVectorApprox( vtRef, -Y_AX()) then
-                  if dMaxDepth > dDiceFaceV + BD.CUT_EXTRA then
-                     bExecJustOneCut = true
-                     dDiceFaceDim = dDiceFaceV
-                     break
+         -- se non ho intersezione con la faccia tappo posso fare il taglio sul fianco
+         if not nGoodFace1 or nGoodFace1 == 0 then
+            -- controllo per eseguire solo un taglio ottimizzato
+            local bExecJustOneCut = false
+            local dDiceFaceDim = GEO.INFINITO
+            if ( i % 2) == 0  then
+               for cont = 1, #vCuts[i] do
+                  local _, dDiceFaceH, dDiceFaceV = BL.GetFaceHvRefDim( vCuts[i][cont], 0)
+                  -- se feature verso Z, si ammette anche lavorazione in doppio
+                  if AreSameVectorApprox( vtRef, Z_AX()) then
+                     if dMaxDepth * 2 > dDiceFaceH + BD.CUT_EXTRA then
+                        bExecJustOneCut = true
+                        dDiceFaceDim = dDiceFaceH
+                        break
+                     end
+                  elseif AreSameVectorApprox( vtRef, Y_AX()) or AreSameVectorApprox( vtRef, -Y_AX()) then
+                     if dMaxDepth > dDiceFaceV + BD.CUT_EXTRA then
+                        bExecJustOneCut = true
+                        dDiceFaceDim = dDiceFaceV
+                        break
+                     end
                   end
                end
             end
+         -- se c'è intersezione non ci deve essere ExtraCut
+         else
+            dExtraCut = 0
          end
          -- se si può fare, faccio unico taglio parallelo
          if bExecJustOneCut then
@@ -522,10 +528,20 @@ function ProcessScarfJoint.Make( Proc, nPhase, nRawId, nPartId, dOvmHead, dOvmTa
       else
          dDiamMax = EgtIf( abs( frMor:getVersX():getY()) < abs( frMor:getVersY():getY()), dL, dW)
       end
-      -- determino la distanza tra le due facce inclinate
+      -- determino la distanza tra le due facce inclinate per determinare elevazione
       local dDistFaces
       if vFaceOrd[4] ~= 0 then
-         dDistFaces = abs((ptC[vFaceOrd[2]]-ptC[vFaceOrd[4]])*vtN[vFaceOrd[2]])
+         local nElevationFace1 = 0
+         -- controllo estensione faccia 1
+         if vFaceOrd[1] ~= 0 then
+            frMor, dL, dW = EgtSurfTmFacetMinAreaRectangle( Proc.Id, vFaceOrd[1]-1, GDB_ID.ROOT)
+            if abs(vtRef:getY()) > 0.866 then
+               nElevationFace1 = EgtIf( abs( frMor:getVersX():getZ()) < abs( frMor:getVersY():getY()), dL, dW)
+            else
+               nElevationFace1 = EgtIf( abs( frMor:getVersX():getY()) < abs( frMor:getVersY():getY()), dL, dW)
+            end
+         end
+         dDistFaces = max( abs((ptC[vFaceOrd[2]]-ptC[vFaceOrd[4]])*vtN[vFaceOrd[2]]), nElevationFace1)
       end
       -- recupero la lavorazione. considerando l dimensione del lato e l'affondamento
       local sPocketing

UpdateLog.txt

@@ -1,4 +1,10 @@
            ==== Beam Update Log ====
+           
+Versione 2.7e1 (05/05/2025)
+- Fixed : in taglio di separazione si riduce percorso di taglio solo se il pezzo è effettivamente alto
+- Fixed : in foratura corretto caso in cui non si sceglieva l'utensile più lungo disponibile
+- Fixed : In BatchProcess (Ts7) corretta generazione in caso di progetto senza ricalcolo
+- Modif : in LapJoint se tunnel verticale lavorato solo da sopra e l'utensile non arriva, si restituisce warning
 
 Versione 2.7d3 (22/04/2025)
 - Fixed : in LapJoint corretta gestione errata Q04

Version.lua

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