DataWall :

- gestione differenziata rotazioni e ribaltamenti per progetto e produzione
- in lavorazione Outline & C cerco di rifinire con fresa adeguata all'affondamento, se non c'è provo con sega a catena, se non c'è provo con fresa disponibile.
This commit is contained in:
Dario Sassi
2020-07-14 16:50:05 +00:00
parent 767e7287a5
commit 17dd2b85b8
3 changed files with 24 additions and 15 deletions
+14 -11
View File
@@ -1,4 +1,4 @@
-- ProcessFreeContour.lua by Egaltech s.r.l. 2020/07/08
-- ProcessFreeContour.lua by Egaltech s.r.l. 2020/07/13
-- Gestione calcolo profilo libero per Pareti
-- Tabella per definizione modulo
@@ -345,15 +345,6 @@ local function MakeByCut( Proc, nRawId, b3Raw)
EgtOutLog( sErr)
return false, sErr
end
-- recupero la lavorazione di fresatura
local sMilling, dMillMaxDepth = WM.FindMilling( 'FreeContour')
if not sMilling then
local sErr = 'Error : milling not found in library'
EgtOutLog( sErr)
return false, sErr
end
-- recupero la lavorazione con sega a catena
local sSawing = WM.FindSawing( 'Sawing')
-- recupero la lavorazione di taglio con lama e i suoi parametri
local sCutting, dSawDiam, dSawThick, dSawMaxDepth = WM.FindCutting( 'Standard')
if not sCutting then
@@ -472,8 +463,20 @@ local function MakeByCut( Proc, nRawId, b3Raw)
-- inserimento dei tagli di lama
local bCtOk, sCtErr = AddCuts( sCutting, vFace, Proc, nRawId, b3Raw)
if not bCtOk then return bCtOk, sCtErr end
-- recupero la lavorazione con sega a catena
local sSawing = WM.FindSawing( 'Sawing')
-- recupero la lavorazione di fresatura
local sMilling, dMillMaxDepth = WM.FindMilling( 'FreeContour', dMaxWidth + WD.CUT_EXTRA)
if not sMilling and not sSawing then
local sMilling = WM.FindMilling( 'FreeContour')
if not sMilling then
local sErr = 'Error : milling not found in library'
EgtOutLog( sErr)
return false, sErr
end
end
-- se possibile, inserimento delle fresature
if dMaxWidth + WD.CUT_EXTRA < dMillMaxDepth then
if sMilling then
local bMlOk, sMlErr = AddMillings( sMilling, vFace, Proc, nRawId, b3Raw)
if not bMlOk then return bMlOk, sMlErr end
-- altrimenti provo con la sega a catena