From a05a39459e3e1051abd5fa5971e06a2f448d54ca Mon Sep 17 00:00:00 2001 From: DarioS Date: Fri, 6 May 2022 16:28:39 +0200 Subject: [PATCH] DataWall : - consentito allargamento area disponibile per grezzi su tavola da parametri WallData - consentito offset in Y del grezzo verso interno tavola da parametro WallData - in WProcessDrill corretta IsHorizLongDrill per macchine senza foratori orizzontali. --- BatchProcess.lua | 3 ++- BatchProcessNew.lua | 3 ++- LuaLibs/WProcessDrill.lua | 2 +- LuaLibs/WallExec.lua | 18 ++++++++++-------- Process.lua | 3 ++- 5 files changed, 17 insertions(+), 12 deletions(-) diff --git a/BatchProcess.lua b/BatchProcess.lua index c80541d..6c04409 100644 --- a/BatchProcess.lua +++ b/BatchProcess.lua @@ -1,4 +1,4 @@ --- BatchProcess.lua by Egaltech s.r.l. 2022/04/28 +-- BatchProcess.lua by Egaltech s.r.l. 2022/05/02 -- Gestione calcolo batch disposizione e lavorazioni per Pareti -- 2020/07/24 Nuvola di punti riferita allo Zero Tavola. -- 2020/10/28 Corretto spostamento pezzi per rotazioni (0 o 180) e inversioni( 0, 90, 180, o 270). @@ -11,6 +11,7 @@ -- 2021/10/27 Nel controllo spessore si deve considerare anche PosY. -- 2022/02/24 Se ricalcolo si aggiorna il setup. In ogni caso si verifica prima di simulazione. -- 2022/04/28 In info generazione aggiunta indicazione se 64bit. +-- 2022/05/02 Consentito allargamento area disponibile per grezzi su tavola da WallData. -- Intestazioni require( 'EgtBase') diff --git a/BatchProcessNew.lua b/BatchProcessNew.lua index 5c49274..0a32edf 100644 --- a/BatchProcessNew.lua +++ b/BatchProcessNew.lua @@ -1,4 +1,4 @@ --- BatchProcess.lua by Egaltech s.r.l. 2022/04/28 +-- BatchProcess.lua by Egaltech s.r.l. 2022/05/02 -- Gestione calcolo batch disposizione e lavorazioni per Pareti -- 2021/01/15 Per nuova interfaccia Egt. -- 2021/11/10 Aggiunta modifica per gestione modifiche manuali come in Beam. @@ -6,6 +6,7 @@ -- 2022/01/17 Eliminata assegnazione Feature ok se non calcolata. -- 2022/01/20 Si aggiorna il setup anche quando si creano le lavorazioni (MachGroup vecchio...). -- 2022/04/28 In info generazione aggiunta indicazione se 64bit. +-- 2022/05/02 Consentito allargamento area disponibile per grezzi su tavola da WallData. -- Intestazioni require( 'EgtBase') diff --git a/LuaLibs/WProcessDrill.lua b/LuaLibs/WProcessDrill.lua index e52367c..3e45f7a 100644 --- a/LuaLibs/WProcessDrill.lua +++ b/LuaLibs/WProcessDrill.lua @@ -166,7 +166,7 @@ local function IsHorizLongDrill( Proc) -- recupero i dati del foro local dDiam = 2 * EgtArcRadius( AuxId) local vtExtr = EgtCurveExtrusion( AuxId, GDB_RT.GLOB) - return dDiam <= WD.HOR_DRILL_DIAM + WD.DRILL_TOL and dDiam >= WD.HOR_DRILL_DIAM - WD.DRILL_TOL and vtExtr:getZ() > -0.1 and vtExtr:getZ() < 0.1 + return WD.HOR_DRILL_DIAM and dDiam <= WD.HOR_DRILL_DIAM + WD.DRILL_TOL and dDiam >= WD.HOR_DRILL_DIAM - WD.DRILL_TOL and vtExtr:getZ() > -0.1 and vtExtr:getZ() < 0.1 end --------------------------------------------------------------------- diff --git a/LuaLibs/WallExec.lua b/LuaLibs/WallExec.lua index 18075c6..3930964 100644 --- a/LuaLibs/WallExec.lua +++ b/LuaLibs/WallExec.lua @@ -1,4 +1,4 @@ --- WallExec.lua by Egaltech s.r.l. 2022/04/03 +-- WallExec.lua by Egaltech s.r.l. 2022/05/06 -- Libreria esecuzione lavorazioni per Pareti -- Tabella per definizione modulo @@ -75,31 +75,33 @@ function WallExec.ProcessWalls( dRawL, dRawW, dRawH, vWall, bMachGroupOk, bNewPr end if sOrigCorner == 'TL' then nCorner = MCH_CR.TL - OrigOnTab = Point3d( 0, b3Tab:getDimY(), 0) + OrigOnTab = Point3d( 0, b3Tab:getDimY() - abs( WD.DELTA_Y or 0), 0) elseif sOrigCorner == 'BL' then nCorner = MCH_CR.BL - OrigOnTab = Point3d( 0, 0, 0) + OrigOnTab = Point3d( 0, abs( WD.DELTA_Y or 0), 0) elseif sOrigCorner == 'TR' then nCorner = MCH_CR.TR - OrigOnTab = Point3d( b3Tab:getDimX(), b3Tab:getDimY(), 0) + OrigOnTab = Point3d( b3Tab:getDimX(), b3Tab:getDimY() - abs( WD.DELTA_Y or 0), 0) elseif sOrigCorner == 'BR' then nCorner = MCH_CR.BR - OrigOnTab = Point3d( b3Tab:getDimX(), 0, 0) + OrigOnTab = Point3d( b3Tab:getDimX(), abs( WD.DELTA_Y or 0), 0) elseif sOrigCorner == 'TM' then nCorner = MCH_CR.TR - OrigOnTab = Point3d( WD.MID_REF, b3Tab:getDimY(), 0) + OrigOnTab = Point3d( WD.MID_REF, b3Tab:getDimY() - abs( WD.DELTA_Y or 0), 0) elseif sOrigCorner == 'BM' then nCorner = MCH_CR.BR - OrigOnTab = Point3d( WD.MID_REF, 0, 0) + OrigOnTab = Point3d( WD.MID_REF, abs( WD.DELTA_Y or 0), 0) end -- Impostazione dell'attrezzaggio di default EgtImportSetup() + -- Impostazione eventuale allargamento area disponibile per grezzo + EgtSetTableAreaOffset( WD.TAB_EXTRA_XP or 0, WD.TAB_EXTRA_XM or 0, WD.TAB_EXTRA_YP or 0, WD.TAB_EXTRA_YM or 0) -- Creazione del grezzo e suo posizionamento in macchina local nRaw = GDB_ID.NULL if nRawOutlineId and nRawOutlineId ~= GDB_ID.NULL then nRaw = EgtAddRawPartWithPart( 0, nRawOutlineId, 0, WD.RAWCOL) else - nRaw = EgtAddRawPart( Point3d(0,0,0), dRawL, dRawW, dRawH, WD.RAWCOL) + nRaw = EgtAddRawPart( Point3d( 0, 0, 0), dRawL, dRawW, dRawH, WD.RAWCOL) end EgtMoveToCornerRawPart( nRaw, OrigOnTab, nCorner) EgtSetInfo( nRaw, 'ORD', 1) diff --git a/Process.lua b/Process.lua index a024617..8045eb6 100644 --- a/Process.lua +++ b/Process.lua @@ -1,8 +1,9 @@ --- Process.lua by Egaltech s.r.l. 2021/07/27 +-- Process.lua by Egaltech s.r.l. 2022/05/02 -- Gestione calcolo disposizione e lavorazioni per Pareti -- Si opera sulla macchina corrente -- 2020/12/09 Come per BatchProcess.lua si gestiscono anche rotazioni di inversione con valori negativi. -- 2021/10/27 Come per BatchProcess.lua nel controllo spessore si deve considerare anche PosY. +-- 2022/05/02 Consentito allargamento area disponibile per grezzi su tavola da WallData. -- Intestazioni require( 'EgtBase')