Egalware/DataBeam
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

DataBeam :

Browse Source 
- aggiunta gestione lavorazione speciale Blockhaus su FAST
- piccola correzione a Split.
This commit is contained in:
Dario Sassi
2021-03-18 11:35:47 +00:00
parent 1b8b079e54
commit 74915620c7
3 changed files with 136 additions and 22 deletions
Download Patch File Download Diff File Expand all files Collapse all files
LuaLibs/ProcessSplit.lua
+8 -9
View File
@@ -1,4 +1,4 @@
-- ProcessSplit.lua by Egaltech s.r.l. 2021/03/02
-- ProcessSplit.lua by Egaltech s.r.l. 2021/03/14
-- Gestione calcolo tagli di separazione per Travi
-- Tabella per definizione modulo
@@ -155,7 +155,7 @@ function ProcessSplit.Make( Proc, nPhase, nRawId, nPartId)
if not sCutting then
local sErr = 'Error on process ' .. tostring( Proc.Id) .. ' cutting not found in library'
EgtOutLog( sErr)
return false, true, sErr
return false, sErr
end
-- recupero i dati dell'utensile
local dSawDiam = 400
@@ -214,7 +214,7 @@ function ProcessSplit.Make( Proc, nPhase, nRawId, nPartId)
local dCutOffset = ( i - 1) * dOffsL
local sNotes = EgtIf( bSplit, 'Presplit;', 'Precut;')
local bOk, sErr = BL.MakeOneFaceBySaw( Proc.Id, 0, sCutting, dSawDiam, MCH_MILL_FU.ORTHO_FRONT, nil, dCutExtra, BD.CUT_SIC, dCutOffset, dAccStart, sNotes, b3Raw)
if not bOk then return false, true, sErr end
if not bOk then return false, sErr end
end
end
-- eseguo i tagli necessari
@@ -227,13 +227,13 @@ function ProcessSplit.Make( Proc, nPhase, nRawId, nPartId)
sNotes = EgtIf( i == 1, 'Cut;', 'Precut;')
end
local bOk, sErr = BL.MakeOneFaceBySaw( Proc.Id, 0, sCutting, dSawDiam, nOrthoOpposite, nil, dCutExtra, BD.CUT_SIC, dCutOffset, dAccStart, sNotes, b3Raw)
if not bOk then return false, true, sErr end
if not bOk then return false, sErr end
end
-- altrimenti necessari tagli da sopra e sotto con testa opportuna
else
-- verifico di avere la testa da sotto
if not BD.DOWN_HEAD then
local sErr = 'Error : section too big for head cut'
local sErr = 'Error : section too big for split cut'
EgtOutLog( sErr)
return false, sErr
end
@@ -271,7 +271,7 @@ function ProcessSplit.Make( Proc, nPhase, nRawId, nPartId)
local dCutOffset = ( i - 1) * dOffsL
local sNotes = EgtIf( bSplit, 'Presplit;', 'Precut;')
local bOk, sErr = BL.MakeOneFaceBySaw( Proc.Id, 0, sCutting2, dSawDiam2, MCH_MILL_FU.ORTHO_TOP, nil, dCutExtra2, BD.CUT_SIC, dCutOffset, dAccStart, sNotes, b3Raw)
if not bOk then return false, true, sErr end
if not bOk then return false, sErr end
end
-- eseguo i tagli necessari
for i = nCuts, 1, -1 do
@@ -283,11 +283,10 @@ function ProcessSplit.Make( Proc, nPhase, nRawId, nPartId)
sNotes = EgtIf( i == 1, 'Cut;', 'Precut;')
end
local bOk, sErr = BL.MakeOneFaceBySaw( Proc.Id, 0, sCutting, dSawDiam, MCH_MILL_FU.ORTHO_DOWN, nil, dCutExtra, BD.CUT_SIC, dCutOffset, dAccStart, sNotes, b3Raw)
if not bOk then return false, true, sErr end
if not bOk then return false, sErr end
end
end
-- ritorno anche flag di passaggio a fase successiva
return true, true
return true
end
---------------------------------------------------------------------