diff --git a/BatchProcessNew.lua b/BatchProcessNew.lua index 469c827..29e8232 100644 --- a/BatchProcessNew.lua +++ b/BatchProcessNew.lua @@ -609,7 +609,8 @@ if ( WALL.FLAG == 0 and ( bToProcess or bToRecalc)) or WALL.FLAG == 3 or WALL.F end -- *** Genero programma CN *** ( se richiesto) -if WALL.FLAG == 0 or WALL.FLAG == 4 then +local bIsGenerationEnabled = not EgtVerifyKeyOption( 110) +if bIsGenerationEnabled and ( WALL.FLAG == 0 or WALL.FLAG == 4) then EgtOutLog( ' +++ Generating NC part program >>>') local sInfo = 'EgtCAM5' .. EgtIf( EgtIs64bit(), ' 64bit', '') if EgtGetExeVersion then diff --git a/LuaLibs/WProcessDoubleCut.lua b/LuaLibs/WProcessDoubleCut.lua index a4ee365..eee06f1 100644 --- a/LuaLibs/WProcessDoubleCut.lua +++ b/LuaLibs/WProcessDoubleCut.lua @@ -66,9 +66,8 @@ function WPDC.Make( Proc, nRawId, b3Raw) -- se singola faccia, passo a quella lavorazione if Proc.Fct == 1 then return Cut.Make( Proc, nRawId, b3Raw) end -- altrimenti due facce e passo alla LapJoint - local LapProc = { PartId = Proc.PartId, Id = Proc.Id, Grp = Proc.Grp + 2, Prc = Proc.Prc, Box = Proc.Box, Fct = Proc.Fct, Flg = Proc.Flg, - Diam = Proc.Diam, Fcs = Proc.Fcs, Fce = Proc.Fce, CutId = Proc.CutId, TaskId = Proc.TaskId} - return LapJoint.Make( LapProc, nRawId, b3Raw) + Proc.Grp = Proc.Grp + 2 + return LapJoint.Make( Proc, nRawId, b3Raw) end --------------------------------------------------------------------- diff --git a/LuaLibs/WProcessLapJoint.lua b/LuaLibs/WProcessLapJoint.lua index c655e2a..e94e1d5 100644 --- a/LuaLibs/WProcessLapJoint.lua +++ b/LuaLibs/WProcessLapJoint.lua @@ -2860,7 +2860,7 @@ local function MakeMoreFaces( Proc, nRawId, b3Raw) local vtN = EgtSurfTmFacetNormVersor( Proc.Id, nFacInd, GDB_ID.ROOT) local _, dH, dV = EgtSurfTmFacetMinAreaRectangle( Proc.Id, nFacInd, GDB_ID.ROOT) local dMaxSlotThicknessForBlade = 25 - local bIsSmallSlot = ( Proc.Fct == 3 and ( min( dH, dV) < dMaxSlotThicknessForBlade + 10 * GEO.EPS_SMALL) and vtN:getZ() > -0.01) + local bIsSmallSlot = ( Proc.Fct == 3 and ( min( dH, dV) < dMaxSlotThicknessForBlade - 10 * GEO.EPS_SMALL) and vtN:getZ() > -0.01) -- se di fianco if not bPckt and Proc.Fct >= 3 and ( ( vtN:getZ() < WD.NZ_MINA) or bIsSmallSlot) then -- recupero elevazione faccia in feature @@ -2922,7 +2922,7 @@ local function MakeMoreFaces( Proc, nRawId, b3Raw) end else -- fresatura (se definita); se disponibile, cerco di usare un utensile che non lavori al limite della capacità di sottosquadro - local dSideElevMultiplier = 1.2 + local dSideElevMultiplier = 1.1 local sMilling = WM.FindMilling( 'SideGroove', nil, nil, nil, nil, min( dH, dV), nil, dSideElevMultiplier * dSideElev) -- se non ho trovato un utensile un po' più grande del sottosquadro richiesto, passo alla ricerca standard if not sMilling then diff --git a/UpdateLog.txt b/UpdateLog.txt index 621a91d..d8e8254 100644 --- a/UpdateLog.txt +++ b/UpdateLog.txt @@ -1,5 +1,9 @@ ==== Wall Update Log ==== +Versione 2.6e2 (24/05/2024) +- Fixed : in BatchProcessNew se generazione non abilitata si salta questa fase invece di restituire errore +- Fixed : piccoli errori in LapJoint e DoubleCut + Versione 2.6e1 (03/03/5/2024) - Fixed : correzione per assegnazione a SawCut di flag passante (bIsThrough). diff --git a/Version.lua b/Version.lua index 90251b5..71c6ab0 100644 --- a/Version.lua +++ b/Version.lua @@ -2,5 +2,5 @@ -- Gestione della versione di Wall NAME = 'Wall' -VERSION = '2.6e1' +VERSION = '2.6e2' MIN_EXE = '2.6c2'