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

BatchProcess.lua

@@ -1,4 +1,4 @@
--- BatchProcess.lua by Egaltech s.r.l. 2022/05/09
+-- BatchProcess.lua by Egaltech s.r.l. 2023/04/17
 -- 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).
@@ -12,6 +12,8 @@
 -- 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.
+-- 2023/04/09 Aggiunta gestione flag per taglio feature con outline (da WD.CUT_WITH_OUTLINE).
+-- 2023/04/17 Aggiunta gestione flag per rotazione grezzo di 180deg (da WD.RAWPART_ROT).
 
 -- Intestazioni
 require( 'EgtBase')
@@ -179,9 +181,11 @@ if bToProcess then
    if bBtl then
       -- cancello eventuale vecchio progetto omonimo
       EgtEraseFile( sNgeFile)
+      -- flag di importazione
+      local nFlag = EIB_FL.TS3_POS + EIB_FL.USEUATTR + EgtIf( WD.CUT_WITH_OUTLINE, EIB_FL.TRIM_WITH_OUTLINE or 128, EIB_FL.NONE)
       -- eseguo import
       EgtNewFile()
-      if not EgtImportBtl( WALL.FILE, EIB_FL.TS3_POS + EIB_FL.USEUATTR) then
+      if not EgtImportBtl( WALL.FILE, nFlag) then
          WALL.ERR = 13
          WALL.MSG = 'Error importing BTL file : ' .. WALL.FILE
          WriteErrToLogFile( WALL.ERR, WALL.MSG)
@@ -392,7 +396,12 @@ if bToProcess then
       PostErrView( WALL.ERR, WALL.MSG)
       return
    end
-   
+
+   -- Se richiesto per la macchina, ruoto il grezzo di 180 gradi attorno a Z
+   if WD.RAWPART_ROT and abs( WD.RAWPART_ROT - 180) < 1 then
+      EgtRotateRawPart( EgtGetFirstRawPart() or GDB_ID.NULL, Z_AX(), 180) 
+   end
+
    -- Imposto Nome file CN
    local _, sName, _ = EgtSplitPath( WALL.FILE)
    EgtSetInfo( EgtGetCurrMachGroup(), 'NcName', sName .. '.cnc')

LuaLibs/WProcessDoubleCut.lua

@@ -1,5 +1,6 @@
--- WProcessDoubleCut.lua by Egaltech s.r.l. 2021/04/28
+-- WProcessDoubleCut.lua by Egaltech s.r.l. 2023/04/17
 -- Gestione calcolo doppi tagli di lama per Pareti
+-- 2023/04/17 Quando si chiama LapJoint si trasforma il Gruppo da 1 a 3 e da 2 a 4.
 
 -- Tabella per definizione modulo
 local WPDC = {}
@@ -58,7 +59,9 @@ 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
-   return LapJoint.Make( Proc, nRawId, b3Raw)
+   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)
 end
 
 ---------------------------------------------------------------------

LuaLibs/WProcessFreeContour.lua

@@ -1,4 +1,4 @@
--- ProcessFreeContour.lua by Egaltech s.r.l. 2023/03/08
+-- ProcessFreeContour.lua by Egaltech s.r.l. 2023/04/17
 -- Gestione calcolo profilo libero per Pareti
 -- 2021/11/15 Penna e chiodature sono sempre riportate sulla faccia sopra anche se nel progetto sono sotto.
 -- 2021/12/10 In taglio con lama aggiunta gestione SCC per testa Gearbox.
@@ -16,6 +16,8 @@
 -- 2022/12/14 Aggiunto l'accorciamento della lama in caso di facce vicine orientate verso il basso
 -- 2023/02/28 In lavorazioni con sega a catena per invertire lato mandrino ora Invert + Left invece di MCH_SCC.OPPOSITE.
 -- 2023/03/08 In lavorazione con fresa, se imposto Tool_ID non si controlla più possa lavorare di testa.
+-- 2023/04/14 Aggiunta pulitura spigoli Q05=1 anche su sole fresature.
+-- 2023/04/17 Lavorazione CleanCorner sempre forzata con lato di lavoro in centro.
 
 -- Tabella per definizione modulo
 local WPF = {}
@@ -299,7 +301,7 @@ local function ReorderFaces( nIdSurf, nNumFacet)
    end
    -- ordino le facce in modo da avere una sequenza di facce concatenate
    for i = 1, #vAdj - 1 do
-      -- recupero l'angolo con la faccia precedente
+      -- recupero l'angolo con la faccia successiva
       local bAdj, _, _, _ =  EgtSurfTmFacetsContact( nIdSurf, i-1, i, GDB_ID.ROOT)
       -- se non ho adiacenza
       if not bAdj then
@@ -1041,10 +1043,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
@@ -2013,8 +2016,7 @@ local function MakeByCut( Proc, nRawId, b3Raw)
          if ( nConeCut == 1 and nMlOk == 1 and dThick <= ( WD.MAX_CLEAN_CRN60 + 20 * GEO.EPS_SMALL)) or
             ( nConeCut == 2 and dThick <= ( WD.MAX_CLEAN_CRN30 + 20 * GEO.EPS_SMALL)) then
             local bMcok, sMcErr = AddMillCorner( nConeCut, vFace, Proc, nRawId, b3Raw, 
-                                                 sMlErr, nAddGrpId, dThick, nNewProc, 0, 
-                                                 true)
+                                                 sMlErr, nAddGrpId, dThick, nNewProc, 0, true)
             if not bMcok then return bMcok, sMcErr end
          else
             -- messaggi nel log
@@ -2044,8 +2046,7 @@ local function MakeByCut( Proc, nRawId, b3Raw)
          -- se abilitata la lavorazione corner con stop macchina e lavorazione precedente passante e spessore sotto il limite
          if nConeCut == 1 and nCsOk == 1 and dThick <= ( WD.MAX_CLEAN_CRN60 + 20 * GEO.EPS_SMALL) then
             local bMcok, sMcErr = AddMillCorner( nConeCut, vFace, Proc, nRawId, b3Raw, 
-                                                 sCSErr, nAddGrpId, nil, nNewProc, 0, 
-                                                 true)
+                                                 sCSErr, nAddGrpId, nil, nNewProc, 0, true)
             if not bMcok then return bMcok, sMcErr end
          else
             if nConeCut == 1 then
@@ -2075,8 +2076,7 @@ local function MakeByCut( Proc, nRawId, b3Raw)
          if ( nConeCut == 1 and nMlOk == 1 and dThick <= ( WD.MAX_CLEAN_CRN60 + 20 * GEO.EPS_SMALL)) or
             ( nConeCut == 2 and dThick <= ( WD.MAX_CLEAN_CRN30 + 20 * GEO.EPS_SMALL)) then
             local bMcok, sMcErr = AddMillCorner( nConeCut, vFace, Proc, nRawId, b3Raw, 
-                                                 sMlErr, nAddGrpId, dThick, nNewProc, 0, 
-                                                 true)
+                                                 sMlErr, nAddGrpId, dThick, nNewProc, 0, true)
             if not bMcok then return bMcok, sMcErr end
          else
             -- messaggi nel log
@@ -2125,6 +2125,8 @@ local function MakeByMill( Proc, nRawId, b3Raw)
    local b3Aux = EgtGetBBoxGlob( AuxId, GDB_BB.STANDARD)
    local bToolInv = ( vtExtr:getZ() < -0.1)
    local nTool_ID = EgtGetInfo( Proc.Id, 'CNT_DATA', 'i')
+   -- lettura parametri (probabile/i parametro/i Q)
+   local nConeCut = VerifyCornerType( Proc)
    -- recupero la lavorazione
    local bTipFeed = EgtIf( nTool_ID, false, true)
    local sMilling = WM.FindMilling( 'FreeContour', nil, nil, nTool_ID, nil, nil, bTipFeed)
@@ -2135,23 +2137,23 @@ local function MakeByMill( Proc, nRawId, b3Raw)
       return false, sErr
    end
    -- recupero i dati dell'utensile
+   local dMillDiam = 20
    local dMaxDepth = 0
    if EgtMdbSetCurrMachining( sMilling) then
       local sTuuid = EgtMdbGetCurrMachiningParam( MCH_MP.TUUID)
       if EgtTdbSetCurrTool( EgtTdbGetToolFromUUID( sTuuid) or '') then
+         dMillDiam = EgtTdbGetCurrToolParam( MCH_TP.DIAM) or dMillDiam
          dMaxDepth = EgtIf( WD.MILL_MAX_DEPTH_AS_MAT, EgtTdbGetCurrToolParam( MCH_TP.MAXMAT), EgtTdbGetCurrToolMaxDepth()) or dMaxDepth
       end
    end
-   -- eventuale spezzatura sul tratto più lungo se curva chiusa
-   --BL.PutStartOnLonger( AuxId)
    -- verifiche per affondamento
    if b3Aux:getDimZ() > b3Raw:getDimZ() - 1.0 then
-      dDepth = min( dDepth, b3Raw:getDimZ()) + WD.CUT_EXTRA
+      dDepth = min( dDepth, b3Raw:getDimZ())
    end
-   if dDepth > dMaxDepth then
-      -- lo limito e tolgo eventuali Tabs
+   dDepth = dDepth + WD.CUT_EXTRA
+   local bReducedDepth = ( dDepth > dMaxDepth)
+   if bReducedDepth then
       dDepth = dMaxDepth
-      EgtSetMachiningParam( MCH_MP.LEAVETAB, false)
    end
    -- inserisco la lavorazione
    local sName = 'Free_' .. ( EgtGetName( Proc.Id) or tostring( Proc.Id))
@@ -2170,6 +2172,8 @@ local function MakeByMill( Proc, nRawId, b3Raw)
    if bToolInv then
       EgtSetMachiningParam( MCH_MP.TOOLINVERT, true)
    end
+   -- tolgo i Tabs se non passante o devo rimuovere lo sfrido
+   if bReducedDepth or nConeCut == 1 then EgtSetMachiningParam( MCH_MP.LEAVETAB, false) end
    -- assegno affondamento
    EgtSetMachiningParam( MCH_MP.DEPTH, dDepth)
    -- assegno lato di lavoro
@@ -2192,6 +2196,32 @@ local function MakeByMill( Proc, nRawId, b3Raw)
       EgtSetOperationMode( nMchId, false)
       return false, sErr
    end
+   -- se abilitata la lavorazione corner con stop macchina, ci sono almeno due facce e fresata passante per consentire eliminazione sfrido
+   if nConeCut == 1 and Proc.Fct >= 2 and not bReducedDepth then
+      -- gruppo ausiliario
+      local nAddGrpId = WL.GetAddGroup( Proc.PartId)
+      -- recupero i dati di tutte le facce
+      local vFace, dMaxWidth, nNewProc = GetFacesData( Proc, bOpposite, false, dMillDiam, dMaxDepth, (dMillDiam/2), nAddGrpId, b3Raw)
+      -- se affondamento non superiore al limite
+      if dDepth <= ( WD.MAX_CLEAN_CRN60 + 20 * GEO.EPS_SMALL) then
+         local bMcok, sMcErr = AddMillCorner( nConeCut, vFace, Proc, nRawId, b3Raw, 
+                                              dMillDiam, nAddGrpId, nil, nNewProc, 0, true)
+         if not bMcok then return bMcok, sMcErr end
+      else
+         EgtErase( nNewProc)
+         if nConeCut == 1 then
+            local sErr = 'Clean corner 60° not applid because thickness: ' .. EgtNumToString( dThick, 2) .. 
+                         ' is bigger than parameter MAX_CLEAN_CRN60: ' .. EgtNumToString( WD.MAX_CLEAN_CRN60 , 2)
+            EgtOutLog( sErr)
+         end
+      end
+   elseif nConeCut == 2 then
+      local sErr = 'Clean corner 30° is not applied on milling'
+      EgtOutLog( sErr)
+   elseif nConeCut == 3 then
+      local sErr = 'Clean corner with undercut is not applied on milling'
+      EgtOutLog( sErr)
+   end
    return true
 end
 

LuaLibs/WProcessLapJoint.lua

@@ -1,4 +1,4 @@
--- WProcessLapJoint.lua by Egaltech s.r.l. 2022/12/22
+-- 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.
@@ -14,9 +14,12 @@
 -- 2022/11/15 DS Con lama massima inclinazione 60deg.
 -- 2022/12/01 Per 2 facce con angolo > 90° implementata lavorazione principale verticale. Se da sopra, aggiunta ripresa del lato inclinato.
 -- 2022/12/14 Nel caso di 2 facce piccola correzione al modo di ordinare le facce.
--- 2023/03/09 Gestito caso riconoscimento errato Stype 3
--- 2023/03/09 In MakeMoreFaces aggiunta la possibilità di lavorare le fessure con la lama
+-- 2023/03/09 Gestito caso riconoscimento errato Stype 3.
+-- 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 = {}
@@ -36,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
@@ -61,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
@@ -84,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)
@@ -101,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
 
 ---------------------------------------------------------------------
@@ -1014,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
@@ -1431,7 +1428,7 @@ local function MakeSideGrooveByMill( Proc, nFacet, nRawId, b3Raw, sCustomMach, d
       sMilling = sCustomMach
    -- altrimenti la cerco
    else
-      sMilling = WM.FindMilling( 'SideGroove')
+      sMilling = WM.FindMilling( 'SideGroove', nil, nil, nil, nil, min( dH, dV))
    end
    if not sMilling then
       local sErr = 'Error : SideGroove not found in library'
@@ -1859,10 +1856,6 @@ local function MakeSideGrooveByMill( Proc, nFacet, nRawId, b3Raw, sCustomMach, d
       -- aggiungo geometria
       EgtSetMachiningGeometry( {{ Proc.Id, nFacet}})
       -- imposto posizione braccio porta testa
-      --local nSCC = MCH_SCC.ADIR_ZP
-      --if abs( vtN:getZ()) < GEO.EPS_SMALL then
-      --   nSCC = EgtIf( Proc.Box:getDimX() >= Proc.Box:getDimY(), MCH_SCC.ADIR_YP, MCH_SCC.ADIR_XP)
-      --end
       local nSCC = MCH_SCC.ADIR_NEAR
       EgtSetMachiningParam( MCH_MP.SCC, nSCC)
       -- imposto modo di lavorare la faccia
@@ -1955,9 +1948,14 @@ local function MakeSideGrooveByMill( Proc, nFacet, nRawId, b3Raw, sCustomMach, d
       end
       -- eseguo
       if not EgtApplyMachining( true, false) then
-         local _, sErr = EgtGetLastMachMgrError()
-         EgtSetOperationMode( nMchFId, false)
-         return false, sErr
+         -- provo a invertire posizione braccio porta testa
+         nSCC = MCH_SCC.ADIR_FAR
+         EgtSetMachiningParam( MCH_MP.SCC, nSCC)
+         if not EgtApplyMachining( true, false) then
+            local _, sErr = EgtGetLastMachMgrError()
+            EgtSetOperationMode( nMchFId, false)
+            return false, sErr
+         end
       end
    else
       sWarn = 'Warning in LapJoint : upside down groove with obtuse angle not completed'

UpdateLog.txt

@@ -0,0 +1,4 @@
+           ==== Wall Update Log ====
+
+Versione 2.5d1 (06/04/23)
+- Added : in nesting aggiunti valori di default per alcuni parametri letti dal WallData.

Version.lua

@@ -1,6 +1,6 @@
--- Version.lua by Egalware s.r.l. 2023/03/27
+-- Version.lua by Egalware s.r.l. 2023/04/14
 -- Gestione della versione di Wall
 
 NAME = 'Wall'
-VERSION = '2.5d1'
+VERSION = '2.5d2'
 MIN_EXE = '2.5b3'