diff --git a/LuaLibs/ProcessCut.lua b/LuaLibs/ProcessCut.lua index fb5a2d9..1c5e0f0 100644 --- a/LuaLibs/ProcessCut.lua +++ b/LuaLibs/ProcessCut.lua @@ -1,9 +1,10 @@ --- ProcessCut.lua by Egaltech s.r.l. 2021/09/19 +-- ProcessCut.lua by Egaltech s.r.l. 2021/10/06 -- Gestione calcolo singoli tagli di lama per Travi -- 2021/05/18 I due tagli con testa da sotto di un cubetto sono fatti di seguito. -- 2021/06/06 Correzioni per tagli con testa da sotto. -- 2021/07/14 Migliorie per tagli con testa da sotto. -- 2021/09/19 Tagli da sotto non sbiechi favorita posizione da sopra di testa. +-- 2021/10/06 Piccola correzione a tagli di cubetti con testa da sotto. -- Tabella per definizione modulo local ProcessCut = {} @@ -609,7 +610,7 @@ local function MakeFromDown( sCutting, Proc, nPhase, nRawId, nPartId, dOvmHead) elseif bOrthInv then dExtraCut_2 = dSawThick -- se ultimo taglio, devo affondare - elseif j == #vCuts[i] then + elseif j == #vCuts[i+1] then dExtraCut_2 = BD.CUT_EXTRA end -- taglio perpendicolare (limite Vz Down Up messo a -2 per non farlo mai intervenire) diff --git a/LuaLibs/ProcessLapJoint.lua b/LuaLibs/ProcessLapJoint.lua index 4de3a20..58c799a 100644 --- a/LuaLibs/ProcessLapJoint.lua +++ b/LuaLibs/ProcessLapJoint.lua @@ -1,4 +1,4 @@ --- ProcessLapJoint.lua by Egaltech s.r.l. 2021/09/23 +-- ProcessLapJoint.lua by Egaltech s.r.l. 2021/10/06 -- Gestione calcolo mezzo-legno per Travi -- 2019/10/08 Agg. gestione OpenPocket. -- 2021/01/24 Con sega a catena ora sempre impostato asse A. @@ -25,6 +25,7 @@ -- che si attiva abilitando il check al tipo milling: SideMillAsBlade (SideMillAsBlade_2) -- 2021/09/23 Gestione migliorata lavorazioni BH (blockhaus) su macchina fast BH, -- migliorata applicazione lavorazioni BH su feature lunghe lavorte a passi +-- 2021/10/06 Ad antischeggia con lama in presenza di testa da sotto aggiunta preferenza a testa da sopra. -- Tabella per definizione modulo local ProcessLapJoint = {} @@ -5016,7 +5017,8 @@ local function MakeMoreFaces( Proc, nPhase, nRawId, nPartId, dOvmHead, bSinglePa local bPassEdge = ((( bIsU and Proc.Fct == 3) or ( bIsL and Proc.Fct == 2)) and bSinglePart and Proc.Box:getDimX() < 0.9 * b3Raw:getDimX()) if nChamfer < 2 and nQAntisplintResult == 1 and (( bIsU or bIsL) and ( bPassThrou or bPassEdge)) then local bOk - bMadeASbyBld, bOk, sWarn = ManageAntiSplintBySaw( Proc, b3Raw, bIsU, vtN, nFacInd, sWarn, bMillDown, true) + local bSawDown = ( bMillDown and not bMillUp) + bMadeASbyBld, bOk, sWarn = ManageAntiSplintBySaw( Proc, b3Raw, bIsU, vtN, nFacInd, sWarn, bSawDown, true) if not bOk then return false, sWarn end end -- in base al flag interno e al numero di facce e se ha forma ad U: provo prima la svuotatura sul fianco e @@ -5146,7 +5148,8 @@ local function MakeMoreFaces( Proc, nPhase, nRawId, nPartId, dOvmHead, bSinglePa local bPassEdge = ((( bIsU and Proc.Fct == 3) or ( bIsL and Proc.Fct == 2)) and bSinglePart and Proc.Box:getDimX() < 0.9 * b3Raw:getDimX()) if nChamfer < 2 and nQAntisplintResult == 1 and (( bIsU or bIsL) and ( bPassThrou or bPassEdge)) then local bOk - bMadeASbyBld, bOk, sWarn = ManageAntiSplintBySaw( Proc, b3Raw, bIsU, vtN, nFacInd, sWarn, bMillDown) + local bSawDown = ( bMillDown and not bMillUp) + bMadeASbyBld, bOk, sWarn = ManageAntiSplintBySaw( Proc, b3Raw, bIsU, vtN, nFacInd, sWarn, bSawDown) if not bOk then return false, sWarn end end if nChamfer < 2 and nQAntisplintResult == 2 then