DataWall :
- in gestione batch TS3v7 aggiunta gestione flag per rotazione grezzo di 180deg (da parametro macchina WD.RAWPART_ROT) - in DoubleCut passate a LapJoint si trasforma il Gruppo da 1 a 3 e da 2 a 4 (altrimenti sbaglia a ordinare le facce) - in FreeContour e LapJoint la lavorazione CleanCorner viene sempre forzata con lato di lavoro in centro - in LapJoint razionalizzata gestione parametri Q ed eliminta gestione forzatura lama non usatain realtà.
This commit is contained in:
@@ -1,4 +1,4 @@
|
||||
-- WProcessLapJoint.lua by Egaltech s.r.l. 2023/04/15
|
||||
-- WProcessLapJoint.lua by Egaltech s.r.l. 2023/04/17
|
||||
-- Gestione calcolo mezzo-legno per Pareti
|
||||
-- 2021/08/27 DS Se tre o più facce con flag PCKT=1 forzo svuotatura con fresa (per Variant).
|
||||
-- 2021/08/29 DS Se svuotatura di fianco setto flag per farla dopo i tagli.
|
||||
@@ -18,6 +18,8 @@
|
||||
-- 2023/03/09 In MakeMoreFaces aggiunta la possibilità di lavorare le fessure con la lama.
|
||||
-- 2023/03/17 In MakeByMill gestito correttamente il caso di Workside destro.
|
||||
-- 2023/04/15 Corretta scelta tipo lavorazione 'SideGroove' aggiungendo massimo spessore.
|
||||
-- 2023/04/17 Sistemata gestione parametri Q, eliminando quello non usato di forzatura lama e abilitandoli anche per DoubleCut.
|
||||
-- Lavorazione CleanCorner sempre forzata con lato di lavoro in centro.
|
||||
|
||||
-- Tabella per definizione modulo
|
||||
local WPL = {}
|
||||
@@ -37,11 +39,10 @@ local WHISK_SAFE = 5
|
||||
local MIN_LEN_CUT = 30
|
||||
|
||||
-- variabili assegnazione parametri Q
|
||||
local Q_FORCE_BLADE = '' -- i
|
||||
local Q_SIDE_MILL = '' -- d
|
||||
local Q_CORNER_CUT = '' -- i
|
||||
|
||||
-- variabile settaggio doppia lavorazione su angoo > 90
|
||||
-- variabile settaggio doppia lavorazione su angolo > 90
|
||||
local bMakeTwinCut = true
|
||||
-- angolo sottosquadra ammesso per fresa cono 30°
|
||||
local dAngleSmall = 70
|
||||
@@ -62,20 +63,19 @@ end
|
||||
local function AssignQIdent( Proc)
|
||||
|
||||
-- reset assegnazione parametri Q
|
||||
Q_FORCE_BLADE = ''
|
||||
Q_SIDE_MILL = ''
|
||||
Q_CORNER_CUT = ''
|
||||
|
||||
if Proc.Grp == 0 and Proc.Prc == 12 then
|
||||
Q_FORCE_BLADE = 'Q01' -- i
|
||||
if Proc.Prc == 11 then
|
||||
Q_SIDE_MILL = 'Q02' -- i
|
||||
Q_CORNER_CUT = 'Q05' -- i
|
||||
elseif Proc.Prc == 12 then
|
||||
Q_SIDE_MILL = 'Q02' -- i
|
||||
Q_CORNER_CUT = '' -- i
|
||||
elseif ( Proc.Grp == 3 or Proc.Grp == 4) and Proc.Prc == 30 then
|
||||
Q_FORCE_BLADE = '' -- i
|
||||
Q_SIDE_MILL = 'Q08' -- i
|
||||
Q_CORNER_CUT = 'Q05' -- i
|
||||
else
|
||||
Q_FORCE_BLADE = 'Q01' -- i
|
||||
Q_SIDE_MILL = 'Q03' -- i
|
||||
Q_CORNER_CUT = 'Q05' -- i
|
||||
end
|
||||
@@ -85,11 +85,6 @@ end
|
||||
---------------------------------------------------------------------
|
||||
local function EvaluateQParam( Proc)
|
||||
|
||||
local bForceUseBlade = false
|
||||
if #Q_FORCE_BLADE == 0 or EgtGetInfo( Proc.Id, Q_FORCE_BLADE, 'i') == 1 then
|
||||
bForceUseBlade = true
|
||||
end
|
||||
|
||||
-- Verifico se utilizzare la fresa di lato :
|
||||
-- 0 : niente
|
||||
-- 1 : utilizzo fresa di lato (alla faccia selezionata)
|
||||
@@ -102,7 +97,7 @@ local function EvaluateQParam( Proc)
|
||||
-- 3 : scarico corner (tipo foro).
|
||||
local nTypeCornerCut = EgtGetInfo( Proc.Id, Q_CORNER_CUT, 'i') or 0
|
||||
|
||||
return nTypeCornerCut, nUseSideMillAsBlade, bForceUseBlade
|
||||
return nTypeCornerCut, nUseSideMillAsBlade
|
||||
end
|
||||
|
||||
---------------------------------------------------------------------
|
||||
@@ -1015,10 +1010,11 @@ local function AddMillCornerMachining( nPartId, nNewProc, nFacInd, tFacAdj, nTyp
|
||||
EgtSetMachiningParam( MCH_MP.ENDADDLEN, 10)
|
||||
-- setto affondamento 0
|
||||
EgtSetMachiningParam( MCH_MP.DEPTH, 0)
|
||||
-- forzo lato correzione a centrato
|
||||
EgtSetMachiningParam( MCH_MP.WORKSIDE, MCH_MILL_WS.CENTER)
|
||||
-- Note utente con dichiarazione nessuna generazione sfridi per Vmill
|
||||
local sUserNotes = 'VMRS=0;'
|
||||
-- aggiungo alle note massima elevazione
|
||||
-- sUserNotes = sUserNotes .. 'MaxElev=' .. EgtNumToString( dMaxDepth, 1) .. ';'
|
||||
sUserNotes = sUserNotes .. 'MaxElev=' .. EgtNumToString( 0.0, 1) .. ';'
|
||||
EgtSetMachiningParam( MCH_MP.USERNOTES, sUserNotes)
|
||||
if not EgtApplyMachining( true, false) then
|
||||
|
||||
Reference in New Issue
Block a user