Merge branch 'release/2.5g1'

- in DiceCut modificata scelta tagli ortogonali quando liberi (esteso caso di verticali ammessi)
- migliorato controllo fattibilità taglio di fianco con cubetti
- in LapJoint estesi casi riconoscimento in coda basato su lunghezza.

.gitignore

@@ -20,3 +20,7 @@
 /bin/LuaLibs/*.lua
 /bin/Images/*.png
 .vscode/settings.json
+bin/Images/.placeholder
+bin/LuaLibs/.placeholder
+bin/Images/.placeholder
+bin/LuaLibs/.placeholder

LuaLibs/DiceCut.lua

@@ -1,4 +1,4 @@
--- DiceCut.lua by Egaltech s.r.l. 2023/02/05
+-- DiceCut.lua by Egaltech s.r.l. 2023/06/29
 -- Gestione dei piano paralleli nei tagli lunghi: equidistanziamento dei piani paralleli
 
 -- Tabella per definizione modulo
@@ -473,7 +473,7 @@ function DiceCut.GetDice( nParent, BBoxRawPart, ptCPlanes, vtNPlanes, bGetOrtoPl
          if vtNInner:getZ() > -0.0175 or vtNInner:getZ() < dNzLimDwnUp or abs( vtNInner:getY()) > 0.8 then
             vtO:rotate( vtNInner, 90)
             -- se diretto troppo ortogonalmente all'asse trave e taglio non da sotto, lo ruoto ulteriormente
-            if ( abs( vtO:getY()) > 3 * abs( vtO:getX()) or BBoxRawPart:getDimZ() > 620) and vtNInner:getZ() > dNzLimDwnUp then
+            if ( abs( vtO:getY()) > 4 * abs( vtO:getX()) or BBoxRawPart:getDimZ() > 620) and vtNInner:getZ() > dNzLimDwnUp then
                vtO:rotate( vtNInner, 90)
                -- se faccia principale verso il basso (almeno -3deg), lo inverto per iniziare da sopra
                if vtNInner:getZ() < -0.05 then

LuaLibs/ProcessCut.lua

@@ -18,6 +18,7 @@
 -- 2022/08/30 Modificata la condizione che determina l'utilizzo della testa da sotto. Ora controlla se la trave è più grande del doppio della massima larghezza del cubetto.
 -- 2022/09/23 Corretta la condizione per cui è richiesto l'aggiornamento del grezzo.
 -- 2023/01/26 Migliorata la direzione di lavoro della lama in alcuni casi in cui il truciolo veniva scaricato dal lato errato.
+-- 2023/06/19 Aggiunti tagli speciali per evitare il rischio che il cubetto rimanga appoggiato al motore.
 
 -- Tabella per definizione modulo
 local ProcessCut = {}
@@ -395,6 +396,19 @@ local function MakeFromTop( sCutting, Proc, nPhase, nRawId, nPartId, dOvmHead, b
    if bCustDiceCut and #vCuts == 0 then
       return false, -1
    end
+   
+   -- per caso speciale in cui c'è il rischio che il cubetto rimanga appoggiato sul motore, faccio solo i tagli perpendicolari seguiti da due tagli verticali laterali
+   local bDangerousReliefCut = false
+   -- verifico che i tagli perpendicolari siano perpendicolari al lato più vicino a Z
+   local nFirstPerpendicularCut = ( #vCuts > 0 and ( vCuts[1][1] or vCuts[3][1]))
+   if nFirstPerpendicularCut then
+      local frFace = BL.GetFaceHvRefDim( Proc.Id, 0)
+      local vtTemp = EgtSurfTmFacetNormVersor( nFirstPerpendicularCut, 0, GDB_ID.ROOT) ^ frFace:getVersX()
+      if not ( vtTemp:isSmall()) and not ( bDownCut or bFromBottom) and not bLongCut then
+         bDangerousReliefCut = true
+      end
+   end
+
    --DC.PrintOrderCut( vCuts)
    if #vCuts > 0 then
       -- sistemo posizione nel DB e nome
@@ -453,44 +467,73 @@ local function MakeFromTop( sCutting, Proc, nPhase, nRawId, nPartId, dOvmHead, b
                end
             end
          end
-         -- lavoro la faccia
-         for j = 1, #vCuts[i] do
-            -- se taglio dal basso
-            if bDownCut then
-               -- se strato pari composto da 1 o 2 elementi
-               if ( i % 2) == 0 and #vCuts[i] <= 2 then
-                  -- il primo elemento prende la direzione prevista, il secondo quella opposta
-                  local vtNewOrthoO = Vector3d( vtOrthoO)
-                  local dVzLimDwnUp = dNzLimDwnUp
-                  if j ~= 1 then
-                     vtNewOrthoO = -vtOrthoO
-                     if not BD.C_SIMM and not BD.TURN and abs( vtN:getY()) > 0.05 then dVzLimDwnUp = -0.708 end
+         local dDiceFaceMaxH = 0
+         if ( i % 2) == 0 and bDangerousReliefCut then
+            for j = 1, #vCuts[i] do
+               local _, dDiceFaceH = BL.GetFaceHvRefDim( vCuts[i][j] or GDB_ID.NULL, 0)
+               dDiceFaceMaxH = max( dDiceFaceMaxH, dDiceFaceH)
+            end
+         end
+         -- caso speciale con rischio cubetto sul motore
+         if ( i % 2) == 0 and bDangerousReliefCut and ( dMaxDepth > dDiceFaceMaxH / 2 + BD.CUT_EXTRA_MIN) then
+            local bDoubleCut = false
+            local dCutExtra = BD.CUT_EXTRA
+            if dMaxDepth < dDiceFaceMaxH + BD.CUT_EXTRA then
+               bDoubleCut = true
+               dCutExtra = - 0.5 * b3Raw:getDimY() + BD.CUT_EXTRA_MIN
+            end
+            local nSurfToCut = EgtSurfTmBySewing( nAddGrpId, vCuts[i], false)
+            local nFaceUseCut1, nFaceUseCut2 = MCH_MILL_FU.ORTHO_BACK, MCH_MILL_FU.ORTHO_FRONT
+            if Proc.Tail then
+               nFaceUseCut1, nFaceUseCut2 = nFaceUseCut2, nFaceUseCut1
+            end
+            if bDoubleCut then
+               local bOk, sErr = Fbs.MakeOne( nSurfToCut, 0, sCutting, dSawDiam, nFaceUseCut1, nil, dCutExtra, BD.CUT_SIC, 0, 0, 0, '', b3Raw, true)
+               if not bOk then return false, sErr end
+            end
+            local bOk2, sErr2 = Fbs.MakeOne( nSurfToCut, 0, sCutting, dSawDiam, nFaceUseCut2, nil, dCutExtra, BD.CUT_SIC, 0, 0, 0, '', b3Raw)
+            if not bOk2 then return false, sErr2 end
+         -- caso standard
+         else
+            -- lavoro la faccia
+            for j = 1, #vCuts[i] do
+               -- se taglio dal basso
+               if bDownCut then
+                  -- se strato pari composto da 1 o 2 elementi
+                  if ( i % 2) == 0 and #vCuts[i] <= 2 then
+                     -- il primo elemento prende la direzione prevista, il secondo quella opposta
+                     local vtNewOrthoO = Vector3d( vtOrthoO)
+                     local dVzLimDwnUp = dNzLimDwnUp
+                     if j ~= 1 then
+                        vtNewOrthoO = -vtOrthoO
+                        if not BD.C_SIMM and not BD.TURN and abs( vtN:getY()) > 0.05 then dVzLimDwnUp = -0.708 end
+                     end
+                     local bOk, sErr = Fbs.MakeOne( vCuts[i][j], 0, sCutting, dSawDiam, vtNewOrthoO, dVzLimDwnUp, BD.CUT_EXTRA, BD.CUT_SIC, 0, 0, 0, nil, b3Raw)
+                     if not bOk then return bOk, sErr end
                   end
-                  local bOk, sErr = Fbs.MakeOne( vCuts[i][j], 0, sCutting, dSawDiam, vtNewOrthoO, dVzLimDwnUp, BD.CUT_EXTRA, BD.CUT_SIC, 0, 0, 0, nil, b3Raw)
+                  -- tutti gli altri casi vengono saltati
+               -- caso generale
+               else
+                  -- in generale sta sollevato di pochissimo
+                  local dExtraCut = -0.1
+                  -- se tagli paralleli
+                  if ( i % 2) == 0 then
+                     -- se non ci sono tagli ortogonali devo affondare
+                     if bNoPerpCuts then
+                        dExtraCut = BD.CUT_EXTRA
+                     -- se altrimenti tagli ortogonali invertiti, devo approfondire dello spessore lama
+                     elseif bOrthInv then
+                        dExtraCut = dSawThick
+                     -- se ultimo taglio, devo affondare
+                     elseif j == #vCuts[i] then
+                        dExtraCut = BD.CUT_EXTRA
+                     end
+                  end
+                  local dVzLimDwnUp = dNzLimDwnUp
+                  if not BD.C_SIMM and not BD.TURN and vtN:getZ() > 0.707 then dVzLimDwnUp = -0.708 end
+                  local bOk, sErr = Fbs.MakeOne( vCuts[i][j], 0, sCutting, dSawDiam, vtOrthoO, dVzLimDwnUp, dExtraCut, BD.CUT_SIC, 0, 0, 0, sNotes, b3Raw)
                   if not bOk then return bOk, sErr end
                end
-               -- tutti gli altri casi vengono saltati
-            -- caso generale
-            else
-               -- in generale sta sollevato di pochissimo
-               local dExtraCut = -0.1
-               -- se tagli paralleli
-               if ( i % 2) == 0 then
-                  -- se non ci sono tagli ortogonali devo affondare
-                  if bNoPerpCuts then
-                     dExtraCut = BD.CUT_EXTRA
-                  -- se altrimenti tagli ortogonali invertiti, devo approfondire dello spessore lama
-                  elseif bOrthInv then
-                     dExtraCut = dSawThick
-                  -- se ultimo taglio, devo affondare
-                  elseif j == #vCuts[i] then
-                     dExtraCut = BD.CUT_EXTRA
-                  end
-               end
-               local dVzLimDwnUp = dNzLimDwnUp
-               if not BD.C_SIMM and not BD.TURN and vtN:getZ() > 0.707 then dVzLimDwnUp = -0.708 end
-               local bOk, sErr = Fbs.MakeOne( vCuts[i][j], 0, sCutting, dSawDiam, vtOrthoO, dVzLimDwnUp, dExtraCut, BD.CUT_SIC, 0, 0, 0, sNotes, b3Raw)
-               if not bOk then return bOk, sErr end
             end
          end
       end

LuaLibs/ProcessFreeContour.lua

@@ -7,6 +7,7 @@
 -- 2022/11/24 In MakeByMill aggiunta la lavorazione sopra/sotto nel caso di testa sotto
 --            In MakeByMill se BeamData forza lettura codolo da Q questo viene sempre fatto indipendentemente dalle dimensioni della feature
 -- 2023/03/03 Corretta MakeByMark ( non definiti b3Raw e b3Aux ).
+-- 2023/06/21 In CalcSpecialAdd modificato l'angolo minimo da 5 a 15 deg.
 
 -- Tabella per definizione modulo
 local ProcessFreeContour = {}
@@ -206,8 +207,8 @@ local function CalcSpecialAdd( nCrv, bStartVsEnd, dToolDiam)
    -- tangenti prima e dopo il punto interno
    local vtPrev = EgtUV( nCrv, nIn, -1)
    local vtNext = EgtUV( nCrv, nIn, 1)
-   -- se c'è perdita di tangenza (delta angolare oltre i 5 gradi)
-   if vtPrev * vtNext < 0.996 then
+   -- se c'è perdita di tangenza (delta angolare oltre i 15 gradi)
+   if vtPrev * vtNext < 0.966 then
       -- lunghezza del tratto
       local ptP0 = EgtUP( nCrv, nOut)
       local ptP1 = EgtUP( nCrv, nIn)

LuaLibs/ProcessLapJoint.lua

@@ -67,6 +67,7 @@
 -- 2023/03/31 Correzione al calcolo della distanza di collisione nel caso in cui il gambo sia più piccolo dell'utensile.
 -- 2023/06/06 Limiti su svuotature tasche a L 4 facce come per L 3 facce. In svuotatura aggiunto recupero UserNotes da libreria per MaxOptSize.
 -- 2023/16/12 Corretto il recupero dati utensile che, in alcune funzioni, puntava all'utensile errato.
+-- 2023/06/29 Se forzata lavorazione laterale permetto l'uso del truciolatore solo se non è una tasca chiusa.
 
 -- Tabella per definizione modulo
 local ProcessLapJoint = {}
@@ -667,9 +668,9 @@ function ProcessLapJoint.IsTailFeature( Proc, b3Raw)
    if dEndDist > BD.MAX_DIST_HTFEA then
       return false
    end
-   -- se lunga come trave, oppure non è trave corta e la sua lunghezza supera il massimo o il 70% della lunghezza della trave
+   -- se lunga come trave, oppure non è trave corta e la sua lunghezza supera il massimo o il 80% della lunghezza della trave
    if Proc.Box:getDimX() > b3Solid:getDimX() - 1 or
-      ( b3Solid:getDimX() > BD.LEN_SHORT_PART and Proc.Box:getDimX() > min( BD.MAX_LEN_HTFEA, 0.7 * b3Solid:getDimX())) then
+      ( b3Solid:getDimX() > BD.LEN_SHORT_PART and Proc.Box:getDimX() > min( BD.MAX_LEN_HTFEA, 0.8 * b3Solid:getDimX())) then
       return false
    end
    -- se una o due facce e interessa veramente la coda, allora di coda
@@ -4975,23 +4976,23 @@ local function MakeMoreFaces( Proc, nPhase, nRawId, nPartId, dOvmHead, bSinglePa
             if bNewCheck and Proc.Prc == 20 and nUseRoughTool == 0 then
                -- verifico se forzato uso truciolatore
                nUseRT = EgtGetInfo( Proc.Id, Q_USE_ROUGH_TOOL, 'i')
-               if nUseRT and nUseRT ~= 0 then 
+               if nUseRT and nUseRT ~= 0 then
                   sMchFind = 'OpenPocket'
                   nUseRoughTool = 1
                end
             end
-            -- 03/12/2020 aggiunto controllo su feature 30 senza uso truciolatore
-            if bNewCheck and Proc.Prc == 30 and nUseRoughTool == 0 then
+            -- se è una tasca aperta e forzo lavorazione laterale, cerco il truciolatore (di norma il truciolatore è solo OpenPocket)
+            if bNewCheck and Proc.Prc == 30 and nUseRoughTool == 0 and Proc.Fct < 5 and not bClosedOrthoFaces then
                -- verifico se forzato uso truciolatore
                nUseRT = EgtGetInfo( Proc.Id, Q_SIDE_ROUGH_TOOL, 'i')
-               if nUseRT and nUseRT ~= 0 then 
+               if nUseRT and nUseRT ~= 0 then
                   sMchFind = 'OpenPocket'
                   nUseRoughTool = 1
                end
             end
             -- se processo 20 e non sto usando il truciolatore
             if Proc.Prc == 20 and nUseRoughTool == 0 then
-               if nUseRT and nUseRT ~= 0 then 
+               if nUseRT and nUseRT ~= 0 then
                   sMchFind = 'OpenPocket'
                   nUseRoughTool = 1
                end

LuaLibs/ProcessMortise.lua

@@ -10,6 +10,7 @@
 -- 2023/01/31 Aggiunta gestione lavorazione in doppio.
 -- 2023/01/31 Creata la funzione ConvertToClosedCurve (parte della ProcessMortise.Make) e spostata in BeamLib.
 -- 2023/05/11 Se lavorazione in doppio e precedente no oppure di tipo diverso, forzo risalita a Zmax.
+-- 2023/06/27 Esclusa la ricerca lati aperti per le mortase passanti, per le quali il contorno finisce sulla faccia e il riconoscimento sbaglia.
 
 -- Tabella per definizione modulo
 local ProcessMortise = {}
@@ -294,13 +295,6 @@ function ProcessMortise.Make( Proc, nPhase, nRawId, nPartId, dCurrOvmH)
       EgtOutLog( sErr)
       return false, sErr
    end
-   -- recupero versore estrusione della curva supplementare
-   local vtExtr = EgtCurveExtrusion( AuxId, GDB_ID.ROOT)
-   -- se curva di contorno aperta la rendo chiusa
-   local _, bModif = BL.ConvertToClosedCurve( Proc, AuxId)
-   if not bModif then
-      BL.SetOpenSide( AuxId, b3Solid)
-   end
    -- verifico se frontale
    local bFront = ( Proc.Prc == 51)
    -- recupero i dati della faccia di fondo
@@ -311,8 +305,16 @@ function ProcessMortise.Make( Proc, nPhase, nRawId, nPartId, dCurrOvmH)
       ptC = frMor:getOrigin()
       vtN = frMor:getVersZ()
    end
+   -- recupero versore estrusione della curva supplementare
+   local vtExtr = EgtCurveExtrusion( AuxId, GDB_ID.ROOT)
    -- Confronto le direzioni dei 2 versori : se diverse la faccia 0 non è il fondo => mortasa passante
    local bOpenBtm = not AreSameVectorApprox( vtExtr, vtN)
+   -- se curva di contorno aperta la rendo chiusa
+   local _, bModif = BL.ConvertToClosedCurve( Proc, AuxId)
+   -- se la mortasa passante il contorno è sulla faccia della trave e il riconoscimento lati aperti non è corretto
+   if not bModif and not bOpenBtm then
+      BL.SetOpenSide( AuxId, b3Solid)
+   end
    if bOpenBtm then
       -- creo superficie chiusa
       local nFlat = EgtSurfTmByFlatContour( EgtGetParent( AuxId), AuxId, 0.05)
@@ -530,7 +532,7 @@ function ProcessMortise.Make( Proc, nPhase, nRawId, nPartId, dCurrOvmH)
          return false, sErr
       end
       -- faccio la copia e la metto nel layer dedicato alle geometrie aggiunte
-      local AuxId_oppo = EgtCopyGlob( AuxId, BL.GetAddGroup(nPartId)) 
+      local AuxId_oppo = EgtCopyGlob( AuxId, BL.GetAddGroup(nPartId))
       -- inverto la direzione estrusione di questa
       EgtModifyCurveExtrusion( AuxId_oppo, - vtExtr, GDB_ID.ROOT)
       -- aggiungo geometria

UpdateLog.txt

@@ -1,20 +1,35 @@
            ==== Beam Update Log ====
 
+Versione 2.5g1 (05/07/2023)
+- Modif : in DiceCut modificata scelta tagli ortogonali quando liberi (esteso caso di verticali ammessi)
+- Modif : in LapJoint estesi casi riconoscimento in coda basato su lunghezza
+- Fixed : nelle mortase passanti escluso il riconoscimento lati aperti che portava a lavorazioni errate [Ticket #1342]
+- Fixed : in LapJoint impedito l'uso del truciolatore se la tasca è chiusa [Ticket #1361]
+- Fixed : migliorato controllo fattibilità taglio di fianco con cubetti.
+
+Versione 2.5f4 (21/06/2023)
+- Added : aggiunti tagli speciali per evitare il rischio che il cubetto rimanga appoggiato al motore [Ticket #1004, #1214]
+- Fixed : corretto attacco speciale in FreeContour [Ticket #1250]
+
+Versione 2.5f3 (16/06/2023)
+- Fixed : correzione scelta di approccio lama in casi speciali
+- Fixed : correzione a tagli aggiuntivi orizzontali negli split.
+
 Versione 2.5f2 (12/06/2023)
 - Fixed : in LapJoint corretto il recupero dati utensile che, in alcune funzioni, puntava all'utensile errato
-- In BeamLib -> ChangeOrOpenStart corretta ricerca segmento più lungo.
+- Fixed : In BeamLib -> ChangeOrOpenStart corretta ricerca segmento più lungo.
 
 Versione 2.5f1 (08/05/2023)
-- Fixed : in LongDoubleCut corretta scelta SCC (orientamento braccio testa) per macchine TURN nel caso di concavi
 - Modif : in Process (esecuzione manuale da Cam5) ordinamento travi di lunghezza praticamente uguale dipende da ordine di selezione
 - Modif : in LapJoint limiti su svuotature tasche a L 4 facce come per L 3 facce
 - Modif : in LapJoint su svuotature aggiunto recupero UserNotes da libreria per MaxOptSize.
+- Fixed : in LongDoubleCut corretta scelta SCC (orientamento braccio testa) per macchine TURN nel caso di concavi
 
 Versione 2.5e5 (26/05/2023)
-- Fixed : correzioni a Profili Concavo e Convesso per TURN
-- Fixed : correzione a foratura per ignorare fori annegati nel pezzo
 - Modif : riconoscimento fori da sotto anche dalla faccia di ingresso
 - Modif : in foratura se TURN aggiunta possibilità di forare da sotto.
+- Fixed : correzioni a Profili Concavo e Convesso per TURN
+- Fixed : correzione a foratura per ignorare fori annegati nel pezzo
 
 Versione 2.5e4 (23/05/2023)
 - Modif : in LongCut migliorato calcolo e verifica affondamento per lavorazione con lama con codolo in mezzo

Version.lua

@@ -2,5 +2,5 @@
 -- Gestione della versione di Beam
 
 NAME = 'Beam'
-VERSION = '2.5f2'
+VERSION = '2.5g1'
 MIN_EXE = '2.5c1'