DataBeam :

- taglio a cubetti speciale per testa da sotto
- taglio con lama sul fianco per macchina con testa da sotto.
This commit is contained in:
DarioS
2021-05-18 10:17:36 +02:00
parent e6c85df01c
commit b75d8e7199
3 changed files with 77 additions and 67 deletions
+6 -5
View File
@@ -1,6 +1,7 @@
-- ProcessLongCut.lua by Egaltech s.r.l. 2021/02/04
-- ProcessLongCut.lua by Egaltech s.r.l. 2021/05/18
-- Gestione calcolo taglio longitudinale per Travi
-- 2021/02/03 Corretto FaceUse con fresa orizzontale su taglio orizzontale.
-- 2021/05/18 Possibile taglio con lama anche di fianco su macchina con testa da sotto.
-- Tabella per definizione modulo
local ProcessLongCut = {}
@@ -183,7 +184,6 @@ function ProcessLongCut.Make( Proc, nPhase, nRawId, nPartId, bCustUseBlade)
----------------------------------------------------------------------------------------------------------------------------------------
-- 2020/09/15 Fabio Squaratti: se sono attivi entrambe i Q05 (lavorare con lama) e Q07 (lavorare con fresa di fianco anche da sopra)
-- allora vince il Q7, cioè si utilizza la fresa di fianco ( per i tagli da sopra)
-- 2020/09/17 Fabio Squaratti: se lavorazione con fresa di fianco e se ci sono delle facce laterali, l'utensile deve arrivare
-- fino al punto più vicino della faccia laterale (prima l'arretramento era sempre del rggio utensile).
-- Questo viene fatto se Q07=1 o fresa da sotto
@@ -194,7 +194,7 @@ function ProcessLongCut.Make( Proc, nPhase, nRawId, nPartId, bCustUseBlade)
if nUseMillOnSide > 0 then bUseBlade = false end
-- Se non limitato e da sopra e richiesto con doppio taglio di lama e superiore al limite minimo
if not bLimXmin and not bLimXmax and nSide == 1 and bUseBlade and b3Solid:getDimX() > dLimMinPiece - 1 then
if not bLimXmin and not bLimXmax and ( nSide == 1 or ( nSide ~= -1 and BD.DOWN_HEAD)) and bUseBlade and b3Solid:getDimX() > dLimMinPiece - 1 then
-- recupero la lavorazione
local sCutting = ML.FindCutting( 'HeadSide')
if not sCutting then
@@ -245,14 +245,15 @@ function ProcessLongCut.Make( Proc, nPhase, nRawId, nPartId, bCustUseBlade)
local nFaceUse = EgtIf( abs( vtN:getY()) > 0.01, MCH_MILL_FU.ORTHO_TOP, EgtIf( bFront, MCH_MILL_FU.ORTHO_BACK, MCH_MILL_FU.ORTHO_FRONT))
local nFaceUse2 = EgtIf( abs( vtN:getY()) > 0.01, MCH_MILL_FU.ORTHO_DOWN, EgtIf( bFront, MCH_MILL_FU.ORTHO_FRONT, MCH_MILL_FU.ORTHO_BACK))
-- si percorrono i lati alto e basso della faccia
local dDimStrip = EgtIf( nSide == 1, BD.DIM_STRIP_SMALL, BD.DIM_STRIP)
local nM = 0
for i = 1, nC do
-- Posizione braccio portatesta
local nSCC = EgtIf( ( BD.C_SIMM or i == 1 or i == nC - 1), MCH_SCC.ADIR_XP, MCH_SCC.ADIR_XM)
-- ciclo sulle passate
local dOffset = ( dWidth + BD.DIM_STRIP_SMALL) / 2 ;
local dOffset = ( dWidth + dDimStrip) / 2 ;
local dLioTang = 0
local dLioPerp = ( dWidth - BD.DIM_STRIP_SMALL) / 2 + BD.CUT_SIC ;
local dLioPerp = ( dWidth - dDimStrip) / 2 + BD.CUT_SIC ;
for k = 1, 2 do
-- inserisco le parti di lavorazione
nM = nM + 1