Merge branch 'release/2.6f1'

release

BatchProcess.lua

@@ -233,6 +233,9 @@ if bToProcess then
          end
       else
          dExtraW = 10
+         if WD.DEFAULT_RAW_NO_EXTRA_WIDTH then
+            dExtraW = 0
+         end
          dRawW = dRawW + dExtraW
       end
    end

BatchProcessNew.lua

@@ -275,11 +275,15 @@ if bToProcess then
             dMinY = ( WD.MINRAWY_HOR_DRILL or 2800)
          end
          -- Assegno dimensioni del pannello
-         dPanelLen = vWall[1].Box:getDimX() + 20
-         dPanelWidth = math.max( vWall[1].Box:getDimY() + 20, dMinY)
+         local dExtraW = 10
+         if WD.DEFAULT_RAW_NO_EXTRA_WIDTH then
+            dExtraW = 0
+         end
+         dPanelLen = vWall[1].Box:getDimX() + 2 * dExtraW
+         dPanelWidth = math.max( vWall[1].Box:getDimY() + 2 * dExtraW, dMinY)
          -- Assegno posizione prima ed unica parete
-         vWall[1].PosX = 10
-         vWall[1].PosZ = 10
+         vWall[1].PosX = dExtraW
+         vWall[1].PosZ = dExtraW
          vWall[1].Rot = 0
          vWall[1].Flip = 0
       end
@@ -609,7 +613,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 = ( EgtGetNumberFromIni( 'Mach', 'NoPartProgram', 0, EgtGetIniFile()) == 0)
+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

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
 
 ---------------------------------------------------------------------

LuaLibs/WProcessLapJoint.lua

@@ -1351,7 +1351,7 @@ local function MakeByMill( Proc, nFacet, nOthFac, nRawId, b3Raw, dSideDist)
    if not sMilling then
       local sErr = 'Error : Side not found in library'
       EgtOutLog( sErr)
-      return false, sErr
+      return false, sErr, true
    end
    -- recupero i dati dell'utensile
    local dMillDiam = 20
@@ -2755,7 +2755,10 @@ local function MakeTwoFaces( Proc, nRawId, b3Raw)
             bLikeAsMakeFirstGroove = false
             return MakeSideGrooveByMill( Proc, nFacetVert, nRawId, b3Raw, EgtIf( bEnableMillOnSide and dMaxDepthOnSide, sMillOnSide, nil), dMaxDepthOnSide, bMakeFirstGroove, bMachFromDn, dAng, bLikeAsMakeFirstGroove, nil, nil, bDoubleMillOnSide)
          else
-            local bOk, sErr = MakeByMill( Proc, nFacet, 1 - nFacet, nRawId, b3Raw, dSideDist)
+            local bOk, sErr, bSideMachiningNotFound = MakeByMill( Proc, nFacet, 1 - nFacet, nRawId, b3Raw, dSideDist)
+            if not bOk and bSideMachiningNotFound then
+               bOk, sErr = MakeByPocketing( Proc, nFacet, nRawId, b3Raw)
+            end
             -- se angolo ottuso riprendo il lato quasi verticale
             if bOk and dAng and dAng > -90 + 10 * GEO.EPS_SMALL then
                local bOk2, sErr2 = MakeSideGrooveByMill( Proc, nFacetVert, nRawId, b3Raw, EgtIf( bEnableMillOnSide and dMaxDepthOnSide, sMillOnSide, nil), dMaxDepthOnSide, bMakeFirstGroove, bMachFromDn, dAng, false, nil, true)
@@ -2860,7 +2863,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 +2925,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

UpdateLog.txt

@@ -1,5 +1,13 @@
            ==== Wall Update Log ====
 
+Versione 2.6f1 (21/06/2024)
+- Added : in BatchProcess e BatchProcessNew aggiunto DEFAULT_RAW_NO_EXTRA_WIDTH per eliminare il sovramateriale grezzo in vista
+
+Versione 2.6e2 (24/05/2024)
+- Modif : in LapJoint se non si trova una lavorazione di tipo side si cerca una pocketing
+- 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).
 

Version.lua

@@ -2,5 +2,5 @@
 -- Gestione della versione di Wall
 
 NAME = 'Wall'
-VERSION = '2.6e1'
+VERSION = '2.6f1'
 MIN_EXE = '2.6c2'