From b141a512bb7abfd4352b6ee8df3669323fbbaec9 Mon Sep 17 00:00:00 2001 From: "luca.mazzoleni" Date: Wed, 7 Sep 2022 18:31:51 +0200 Subject: [PATCH] Improvement/Ticket#788: in Split migliore scelta del lato di lavorazione in base alla posizione di default della lama --- LuaLibs/ProcessSplit.lua | 18 ++++++++++++++---- 1 file changed, 14 insertions(+), 4 deletions(-) diff --git a/LuaLibs/ProcessSplit.lua b/LuaLibs/ProcessSplit.lua index 53aff8d..9eedaa3 100644 --- a/LuaLibs/ProcessSplit.lua +++ b/LuaLibs/ProcessSplit.lua @@ -3,6 +3,7 @@ -- 2022/05/31 Aggiunta gestione sezioni alte e larghe con taglio con sega a catena seguito da rifinitura con lama (aggiunta funzione MakeSplitByChainSaw); gestione eventuale creazione nuova fase dall'interno della Make. -- 2022/06/10 Per sezioni alte e larghe aggiunta gestione finitura in base a sovramateriale e a parametro Q05 dell' eventuale lavorazione sostituita. -- 2022/08/18 Aggiunta gestione macchine con testa da sotto con lama da sotto disabilitata. +-- 2022/09/07 Scelta migliore del lato di lavorazione in base alla posizione di default della lama. -- Tabella per definizione modulo local ProcessSplit = {} @@ -283,8 +284,6 @@ function ProcessSplit.Make( Proc, nPhase, nRawId, nPartId, nOrd, sDownOrSideOrSt local bDoubleCut = ( not bBigSectionCut and not bHorizCut and not bDoubleHorizCut and b3Raw:getDimY() > dDimYRef - BD.CUT_EXTRA + 10 * GEO.EPS_SMALL) -- dati geometrici del taglio local ptC, vtN = EgtSurfTmFacetCenter( Proc.Id, 0, GDB_ID.ROOT) - -- flag di lavorazione faccia - local nOrthoOpposite = EgtIf( bHorizCut, MCH_MILL_FU.ORTHO_DOWN, MCH_MILL_FU.ORTHO_BACK) -- separazione solo se esiste grezzo successivo con pezzi o scaricabile local nNextRawId = EgtGetNextRawPart( nRawId) local bSplit = ( nNextRawId and ( EgtGetPartInRawPartCount( nNextRawId) > 0 or EgtGetRawPartBBox( nNextRawId):getDimX() >= BD.MinRaw)) @@ -407,6 +406,17 @@ function ProcessSplit.Make( Proc, nPhase, nRawId, nPartId, nOrd, sDownOrSideOrSt end -- se tagli standard elseif not bDoubleHorizCut then + -- scelta lato di lavorazione + -- default per Fast, Turn e macchine con lama principale posizionata sul frontside della macchina (PF1250) + local nOrthoOppositeFirstSide, nOrthoOppositeOtherSide = MCH_MILL_FU.ORTHO_BACK, MCH_MILL_FU.ORTHO_FRONT + -- ordine opposto per macchine con lama principale posizionata sul backside della macchina (PF, One), per limitare i movimenti preparatori della lama + if BD.BLADE_ON_BACK_SIDE then + nOrthoOppositeFirstSide, nOrthoOppositeOtherSide = nOrthoOppositeOtherSide, nOrthoOppositeFirstSide + end + -- se singolo taglio orizzontale + if bHorizCut then + nOrthoOppositeFirstSide, nOrthoOppositeOtherSide = MCH_MILL_FU.ORTHO_DOWN, nil + end -- calcolo extra taglio ed accorciamento local dCutExtra = 0 local dAccStart = 0 @@ -428,7 +438,7 @@ function ProcessSplit.Make( Proc, nPhase, nRawId, nPartId, nOrd, sDownOrSideOrSt for i = nCuts, 1, -1 do local dCutOffset = ( i - 1) * dOffsL local sNotes = EgtIf( bSplit, 'Presplit;', 'Precut;') - local bOk, sErr = Fbs.MakeOne( Proc.Id, 0, sCutting, dSawDiam, MCH_MILL_FU.ORTHO_FRONT, nil, dCutExtra, BD.CUT_SIC, dCutOffset, dAccStart, dAccEnd, sNotes, b3Raw) + local bOk, sErr = Fbs.MakeOne( Proc.Id, 0, sCutting, dSawDiam, nOrthoOppositeFirstSide, nil, dCutExtra, BD.CUT_SIC, dCutOffset, dAccStart, dAccEnd, sNotes, b3Raw) if not bOk then return false, sErr end end end @@ -441,7 +451,7 @@ function ProcessSplit.Make( Proc, nPhase, nRawId, nPartId, nOrd, sDownOrSideOrSt else sNotes = EgtIf( i == 1, 'Cut;', 'Precut;') end - local bOk, sErr = Fbs.MakeOne( Proc.Id, 0, sCutting, dSawDiam, nOrthoOpposite, nil, dCutExtra, BD.CUT_SIC, dCutOffset, dAccStart, dAccEnd, sNotes, b3Raw) + local bOk, sErr = Fbs.MakeOne( Proc.Id, 0, sCutting, dSawDiam, EgtIf( bDoubleCut, nOrthoOppositeOtherSide, nOrthoOppositeFirstSide), nil, dCutExtra, BD.CUT_SIC, dCutOffset, dAccStart, dAccEnd, sNotes, b3Raw) if not bOk then return false, sErr end end -- altrimenti necessari tagli da sopra e sotto con testa opportuna