Merge branch 'release/2.5g1'

- sistemazione versione.

GetWallData.lua

@@ -43,6 +43,7 @@ GWD.NESTING_CORNER = WD.NESTING_CORNER
 GWD.HOR_DRILL_DIAM = WD.HOR_DRILL_DIAM
 GWD.MIN_HEIGHT = WD.MIN_HEIGHT
 GWD.MAX_HEIGHT = WD.MAX_HEIGHT
+GWD.BTL_PRIORITY = WD.BTL_PRIORITY
 
 -- Tutto ok
 GWD.ERR = 0

LuaLibs/WMachiningLib.lua

@@ -3,6 +3,7 @@
 -- 2023/03/09 Piccola correzione alla SideDepth in FindMilling
 --            In FindMilling aggiunta gestione spessore e massimo materiale nel caso di lam
 -- 2023/05/25 Aggiunta funzione AddMachining che incapsula EgtAddMachining trascrivendo le priorità btl dalle feature alle lavorazioni.
+-- 2023/06/07 Alla funzione AddMachining aggiunta la scrittura dell'info ISOUTLINE alle lavorazioni.
 
 -- Tabella per definizione modulo
 local WMachiningLib = {}
@@ -181,12 +182,13 @@ function WMachiningLib.FindSurfacing( sType)
    end
 end
 
--- incapsulo EgtAddMachining e trascrivo le priorità all'interno delle note della lavorazione
+-- incapsulo EgtAddMachining e trascrivo alcune informazioni utili nelle note dell'operazione
 ---------------------------------------------------------------------
-function WMachiningLib.AddMachining( nProcId, sName, sMachining)
+function WMachiningLib.AddMachining( Proc, sName, sMachining)
    local nMchId, sFinalName = EgtAddMachining( sName, sMachining)
-   local nPriority = EgtGetInfo( nProcId, 'PRIORITY', 'i')
+   local nPriority = EgtGetInfo( Proc.Id, 'PRIORITY', 'i')
    EgtSetInfo( nMchId, 'PRIORITY', nPriority)
+   EgtSetInfo( nMchId, 'ISOUTLINE', Proc.IsOutline)
    return nMchId, sFinalName
 end
 

LuaLibs/WProcessDrill.lua

@@ -376,7 +376,7 @@ function WPD.Make( Proc, nRawId, b3Raw)
    end
    -- inserisco la lavorazione
    local sName = EgtIf( sHead == 'H5' or sHead == 'H6', 'LhDrill_', 'Drill_') .. ( EgtGetName( Proc.Id) or tostring( Proc.Id))
-   local nMchId = WM.AddMachining( Proc.Id, sName, sDrilling)
+   local nMchId = WM.AddMachining( Proc, sName, sDrilling)
    if not nMchId then
       local sErr = 'Error adding machining ' .. sName .. '-' .. sDrilling
       EgtOutLog( sErr)
@@ -506,7 +506,7 @@ function WPD.Make( Proc, nRawId, b3Raw)
       
       -- inserisco la lavorazione
       local sName = 'PreDrill_' .. ( EgtGetName( Proc.Id) or tostring( Proc.Id))
-      local nMchId = WM.AddMachining( Proc.Id, sName, sDrilling)
+      local nMchId = WM.AddMachining( Proc, sName, sDrilling)
       if not nMchId then
          local sErr = 'Error adding machining ' .. sName .. '-' .. sDrilling
          EgtOutLog( sErr)

LuaLibs/WProcessDtMortise.lua

@@ -160,7 +160,7 @@ function WPDM.Make( Proc, nRawId, b3Raw)
       end
       -- inserisco la lavorazione di svuotatura
       local sName = 'DtMtPck_' .. ( EgtGetName( Proc.Id) or tostring( Proc.Id))
-      local nMchFId = WM.AddMachining( Proc.Id, sName, sPocketing)
+      local nMchFId = WM.AddMachining( Proc, sName, sPocketing)
       if not nMchFId then
          local sErr = 'Error adding machining ' .. sName .. '-' .. sPocketing
          EgtOutLog( sErr)
@@ -190,7 +190,7 @@ function WPDM.Make( Proc, nRawId, b3Raw)
    for i = nPass, 1, -1 do
       -- inserisco la lavorazione di contornatura
       local sNameF = 'DtMt_' .. ( EgtGetName( Proc.Id) or tostring( Proc.Id)) .. '_' .. tostring( nPass)
-      local nMchFId = WM.AddMachining( Proc.Id, sNameF, sMilling)
+      local nMchFId = WM.AddMachining( Proc, sNameF, sMilling)
       if not nMchFId then
          local sErr = 'Error adding machining ' .. sNameF .. '-' .. sMilling
          EgtOutLog( sErr)

LuaLibs/WProcessFreeContour.lua

@@ -1020,7 +1020,7 @@ local function AddMillCornerMachining( nPartId, nNewProc, nFacInd, tFacAdj, nTyp
    end
    -- inserisco la lavorazione
    local sName = 'Clean_' .. ( EgtGetName( nNewProc) or tostring( nNewProc))
-   local nMchId = WM.AddMachining( nNewProc.Id, sName, sMilling)
+   local nMchId = WM.AddMachining( nNewProc, sName, sMilling)
    if not nMchId then
       local sErr = 'Error adding machining ' .. sName .. '-' .. sMilling
       EgtOutLog( sErr)
@@ -1315,7 +1315,7 @@ local function AddMillings( sMilling, vFace, Proc, nRawId, b3Raw, nConeCut, nAdd
       if ( vFace[i].Type & 1) ~= 0 and ( not j or vFace[j].Type == 0 or vFace[j].Type == 1 or abs( vFace[i].SideAng) > 0.1 or abs( vFace[j].SideAng) > 0.1) then
          -- inserisco la lavorazione
          local sName = 'Free_' .. ( EgtGetName( Proc.PartId) or tostring( Proc.PartId))
-         local nMchId = WM.AddMachining( Proc.Id, sName, sMilling)
+         local nMchId = WM.AddMachining( Proc, sName, sMilling)
          if not nMchId then
             local sErr = 'Error adding machining ' .. sName .. '-' .. sMilling
             EgtOutLog( sErr)
@@ -1409,7 +1409,7 @@ local function AddMillings( sMilling, vFace, Proc, nRawId, b3Raw, nConeCut, nAdd
       if ( vFace[i].Type & 2) ~= 0  or ( vFace[i].Type == 4 and ( vFace[i].Edges > 3 and not vFace[i].Is3EdgesApprox)) then
          -- inserisco la lavorazione
          local sName = 'Free_' .. ( EgtGetName( Proc.PartId) or tostring( Proc.PartId))
-         local nMchId = WM.AddMachining( Proc.Id, sName, sMilling)
+         local nMchId = WM.AddMachining( Proc, sName, sMilling)
          if not nMchId then
             local sErr = 'Error adding machining ' .. sName .. '-' .. sMilling
             EgtOutLog( sErr)
@@ -1610,7 +1610,7 @@ local function AddMillings( sMilling, vFace, Proc, nRawId, b3Raw, nConeCut, nAdd
       if vFace[i].Split then
          -- inserisco la lavorazione
          local sName = 'Free_' .. ( EgtGetName( Proc.PartId) or tostring( Proc.PartId)) .. '_M'
-         local nMchId = WM.AddMachining( Proc.Id, sName, sMilling)
+         local nMchId = WM.AddMachining( Proc, sName, sMilling)
          if not nMchId then
             local sErr = 'Error adding machining ' .. sName .. '-' .. sMilling
             EgtOutLog( sErr)
@@ -1701,7 +1701,7 @@ local function AddSawings( sSawing, vFace, Proc, nRawId, b3Raw)
       if ( vFace[i].Type & 1) ~= 0 then
          -- inserisco la lavorazione
          local sName = 'Free_' .. ( EgtGetName( Proc.PartId) or tostring( Proc.PartId))
-         local nMchId = WM.AddMachining( Proc.Id, sName, sSawing)
+         local nMchId = WM.AddMachining( Proc, sName, sSawing)
          if not nMchId then
             local sErr = 'Error adding machining ' .. sName .. '-' .. sSawing
             EgtOutLog( sErr)
@@ -1749,7 +1749,7 @@ local function AddSawings( sSawing, vFace, Proc, nRawId, b3Raw)
       if ( vFace[i].Type & 2) ~= 0 or ( vFace[i].Type == 4 and ( vFace[i].Edges > 3 and not vFace[i].Is3EdgesApprox) and vFace[i].Len > dSawDiam + 1) then
          -- inserisco la lavorazione
          local sName = 'Free_' .. ( EgtGetName( Proc.PartId) or tostring( Proc.PartId))
-         local nMchId = WM.AddMachining( Proc.Id, sName, sSawing)
+         local nMchId = WM.AddMachining( Proc, sName, sSawing)
          if not nMchId then
             local sErr = 'Error adding machining ' .. sName .. '-' .. sSawing
             EgtOutLog( sErr)
@@ -1820,7 +1820,7 @@ local function AddCuts( sCutting, vFace, Proc, nRawId, b3Raw, dSawThick)
          local h = EgtIf( i > 1, i - 1, EgtIf( bClosed, #vFace, nil))
          -- inserisco la lavorazione
          local sName = 'Cut_' .. ( EgtGetName( Proc.PartId) or tostring( Proc.PartId)) .. '_' .. tostring( i) 
-         local nMchId = WM.AddMachining( Proc.Id, sName, sCutting)
+         local nMchId = WM.AddMachining( Proc, sName, sCutting)
          if not nMchId then
             local sErr = 'Error adding machining ' .. sName .. '-' .. sCutting
             EgtOutLog( sErr)
@@ -2160,7 +2160,7 @@ local function MakeByMill( Proc, nRawId, b3Raw)
    end
    -- inserisco la lavorazione
    local sName = 'Free_' .. ( EgtGetName( Proc.Id) or tostring( Proc.Id))
-   local nMchId = WM.AddMachining( Proc.Id, sName, sMilling)
+   local nMchId = WM.AddMachining( Proc, sName, sMilling)
    if not nMchId then
       local sErr = 'Error adding machining ' .. sName .. '-' .. sMilling
       EgtOutLog( sErr)
@@ -2214,8 +2214,8 @@ local function MakeByMill( Proc, nRawId, b3Raw)
       dStep = max( ( dDepth - dMaxMat) / max( nStep, 1), 0)
       local dMaxElev = max( ( nStep + 1) * dStep - GEO.EPS_SMALL, 0)
       EgtSetMachiningParam( MCH_MP.STEP, dStep)
-      -- imposto elevazione
-      EgtSetMachiningParam( MCH_MP.USERNOTES, 'MaxElev=' .. EgtNumToString( dMaxElev, 1) .. ';')
+      -- imposto elevazione e forzo attacco dal lato aperto
+      EgtSetMachiningParam( MCH_MP.USERNOTES, 'MaxElev=' .. EgtNumToString( dMaxElev, 1) .. ';OutRaw=3;')
    end
    
    -- posizione braccio porta testa
@@ -2293,7 +2293,7 @@ local function MakeByMark( Proc, nRawId, b3Raw)
    end
    -- inserisco la lavorazione
    local sName = 'FreeMark_' .. ( EgtGetName( Proc.Id) or tostring( Proc.Id))
-   local nMchId = WM.AddMachining( Proc.Id, sName, sMilling)
+   local nMchId = WM.AddMachining( Proc, sName, sMilling)
    if not nMchId then
       local sErr = 'Error adding machining ' .. sName .. '-' .. sMilling
       EgtOutLog( sErr)
@@ -2358,7 +2358,7 @@ local function MakeByNail( Proc, nRawId, b3Raw)
    end
    -- inserisco la lavorazione
    local sName = 'Nail_' .. ( EgtGetName( Proc.Id) or tostring( Proc.Id))
-   local nMchId = WM.AddMachining( Proc.Id, sName, sNailing)
+   local nMchId = WM.AddMachining( Proc, sName, sNailing)
    if not nMchId then
       local sErr = 'Error adding machining ' .. sName .. '-' .. sNailing
       EgtOutLog( sErr)
@@ -2497,7 +2497,7 @@ local function MakeByPocket( Proc, nRawId, b3Raw)
    end
    -- inserisco la lavorazione di svuotatura
    local sName = 'Pock_' .. ( EgtGetName( Proc.Id) or tostring( Proc.Id))
-   local nMchFId = WM.AddMachining( Proc.Id, sName, sPocketing)
+   local nMchFId = WM.AddMachining( Proc, sName, sPocketing)
    if not nMchFId then
       local sErr = 'Error adding machining ' .. sName .. '-' .. sPocketing
       EgtOutLog( sErr)

LuaLibs/WProcessLapJoint.lua

@@ -21,6 +21,7 @@
 -- 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.
 -- 2023/05/25 Funzioni EgtAddMachining sostituite da WM.AddMachining in modo da trascrivere le priorità da btl alle lavorazioni.
+-- 2023/06/30 Aggiunta lettura delle note esistenti dalle lavorazioni per evitare di sovrascriverle.
 
 -- Tabella per definizione modulo
 local WPL = {}
@@ -811,7 +812,7 @@ local function AddMillCornerMachining( nPartId, nNewProc, nFacInd, tFacAdj, nTyp
          -- riordino le facce
          nNewProcLoc = ReorderFacesFromTab( nNewProcLoc, vFace)
          -- acquisisco il numero della faccia   
-         nFacCnt = EgtSurfTmFacetCount( nNewProcLoc)
+         local nFacCnt = EgtSurfTmFacetCount( nNewProcLoc)
          nFacInd = nFacCnt - 1
       else
          local sErr = 'Cannot make local bottom surface'
@@ -985,7 +986,7 @@ local function AddMillCornerMachining( nPartId, nNewProc, nFacInd, tFacAdj, nTyp
    end
    -- inserisco la lavorazione
    local sName = 'Clean_' .. ( EgtGetName( nNewProc) or tostring( nNewProc))
-   local nMchId = WM.AddMachining( nNewProc.Id, sName, sMilling)
+   local nMchId = WM.AddMachining( nNewProc, sName, sMilling)
    if not nMchId then
       local sErr = 'Error adding machining ' .. sName .. '-' .. sMilling
       EgtOutLog( sErr)
@@ -1013,10 +1014,13 @@ local function AddMillCornerMachining( nPartId, nNewProc, nFacInd, tFacAdj, nTyp
    EgtSetMachiningParam( MCH_MP.DEPTH, 0)
    -- forzo lato correzione a centrato
    EgtSetMachiningParam( MCH_MP.WORKSIDE, MCH_MILL_WS.CENTER)
+   -- leggo eventuali note esistenti della lavorazione
+   local sUserNotes = EgtGetMachiningParam( MCH_MP.USERNOTES)
    -- Note utente con dichiarazione nessuna generazione sfridi per Vmill
-   local sUserNotes = 'VMRS=0;'
+   sUserNotes = EgtSetValInNotes( sUserNotes, 'VMRS', 0)
    -- aggiungo alle note massima elevazione
-   sUserNotes = sUserNotes .. 'MaxElev=' .. EgtNumToString( 0.0, 1) .. ';'
+   sUserNotes = EgtSetValInNotes( sUserNotes, 'MaxElev', EgtNumToString( 0.0, 1))
+   -- scrivo le note della lavorazione
    EgtSetMachiningParam( MCH_MP.USERNOTES, sUserNotes)
    if not EgtApplyMachining( true, false) then
       local _, sErr = EgtGetLastMachMgrError()
@@ -1276,7 +1280,7 @@ local function MakeByChainSaw( Proc, nFacet, nRawId, b3Raw, dElev, dH, dV)
    for i = 1, nStep do
       -- Applico la lavorazione con sega a catena a questa faccia
       local sName = 'Csaw_' .. ( EgtGetName( Proc.Id) or tostring( Proc.Id)) .. '_' .. tostring( i)
-      local nMchFId = WM.AddMachining( Proc.Id, sName, sSawing)
+      local nMchFId = WM.AddMachining( Proc, sName, sSawing)
       if not nMchFId then
          local sErr = 'Error adding machining ' .. sName .. '-' .. sSawing
          EgtOutLog( sErr)
@@ -1302,13 +1306,16 @@ local function MakeByChainSaw( Proc, nFacet, nRawId, b3Raw, dElev, dH, dV)
       -- se necessario, limito l'affondamento
       if dElev > dMaxDepth + 10 * GEO.EPS_SMALL then
          sWarn = 'Warning in LapJoint : elevation (' .. EgtNumToString( dElev, 1) .. ') bigger than max tool depth (' .. EgtNumToString( dMaxDepth, 1) .. ')'
-         dDepth = dMaxDepth - dElev
+         local dDepth = dMaxDepth - dElev
          EgtOutLog( sWarn)
          EgtSetMachiningParam( MCH_MP.DEPTH_STR, 'TH '..EgtNumToString( dDepth, 1))
       end
+      -- leggo eventuali note esistenti della lavorazione
+      local sUserNotes = EgtGetMachiningParam( MCH_MP.USERNOTES)
       -- imposto elevazione
-      local sNotes = 'MaxElev=' .. EgtNumToString( dElev, 2) .. ';'
-      EgtSetMachiningParam( MCH_MP.USERNOTES, sNotes)
+      sUserNotes = EgtSetValInNotes( sUserNotes, 'MaxElev', EgtNumToString( dElev, 2))
+      -- scrivo le note della lavorazione
+      EgtSetMachiningParam( MCH_MP.USERNOTES, sUserNotes)
       -- eseguo
       if not EgtApplyMachining( true, false) then
          local _, sErr = EgtGetLastMachMgrError()
@@ -1363,7 +1370,7 @@ local function MakeByMill( Proc, nFacet, nOthFac, nRawId, b3Raw, dSideDist)
    end
    -- inserisco la lavorazione di contornatura
    local sName = 'Mill_' .. ( EgtGetName( Proc.Id) or tostring( Proc.Id))
-   local nMchFId = WM.AddMachining( Proc.Id, sName, sMilling)
+   local nMchFId = WM.AddMachining( Proc, sName, sMilling)
    if not nMchFId then
       local sErr = 'Error adding machining ' .. sName .. '-' .. sMilling
       EgtOutLog( sErr)
@@ -1732,8 +1739,8 @@ local function MakeSideGrooveByMill( Proc, nFacet, nRawId, b3Raw, sCustomMach, d
             end
          end
          -- inserisco la lavorazione di fresatura
-         local sNameGorge = 'Gorge_' .. ( EgtGetName( Proc.Id) or tostring( Proc.Id)) .. tostring( nFacet) .. '_' .. tostring( nNm) 
-         local nMchFId = WM.AddMachining( Proc.Id, sNameGorge, sMillingGorge)
+         local sNameGorge = 'Gorge_' .. ( EgtGetName( Proc.Id) or tostring( Proc.Id)) .. tostring( nFacet)
+         local nMchFId = WM.AddMachining( Proc, sNameGorge, sMillingGorge)
          if not nMchFId then
             local sErr = 'Error adding machining ' .. sNameGorge .. '-' .. sMillingGorge
             EgtOutLog( sErr)
@@ -1748,7 +1755,7 @@ local function MakeSideGrooveByMill( Proc, nFacet, nRawId, b3Raw, sCustomMach, d
          end
          EgtSetMachiningParam( MCH_MP.SCC, nSCC)
          -- imposto modo di lavorare la faccia
-         local nFaceUse = WL.GetNearestParalOpposite( Z_AX(), vtN)
+         local nFaceUse = WL.GetNearestParalOpposite( Z_AX())
          EgtSetMachiningParam( MCH_MP.FACEUSE, nFaceUse)
          -- imposto elevazione e step
          local dStep = EgtGetMachiningParam( MCH_MP.STEP)
@@ -1783,8 +1790,8 @@ local function MakeSideGrooveByMill( Proc, nFacet, nRawId, b3Raw, sCustomMach, d
       for i = 1, nNumStep - 1 do
          nNm = nNm + 1
          -- inserisco la lavorazione di taglio sfrido gorge
-         local sNameGorge = 'GorgeCut_' .. ( EgtGetName( Proc.Id) or tostring( Proc.Id)) .. tostring( nFacet) .. '_' .. tostring( nNm) 
-         local nMchFId = WM.AddMachining( Proc.Id, sNameGorge, sCuttingGorge)
+         local sNameGorge = 'GorgeCut_' .. ( EgtGetName( Proc.Id) or tostring( Proc.Id)) .. tostring( nFacet) .. '_' .. tostring( nNm)
+         local nMchFId = WM.AddMachining( Proc, sNameGorge, sCuttingGorge)
          if not nMchFId then
             local sErr = 'Error adding machining ' .. sNameGorge .. '-' .. sCuttingGorge
             EgtOutLog( sErr)
@@ -1843,7 +1850,7 @@ local function MakeSideGrooveByMill( Proc, nFacet, nRawId, b3Raw, sCustomMach, d
    if not bExcludeSideMill then
       -- inserisco la lavorazione di ribasso o gola
       local sName = EgtIf( bEnablePreMill ~= nil, 'SideMill_', 'Mill_') .. ( EgtGetName( Proc.Id) or tostring( Proc.Id))
-      local nMchFId = WM.AddMachining( Proc.Id, sName, sMilling)
+      local nMchFId = WM.AddMachining( Proc, sName, sMilling)
       if not nMchFId then
          local sErr = 'Error adding machining ' .. sName .. '-' .. sMilling
          EgtOutLog( sErr)
@@ -1860,7 +1867,7 @@ local function MakeSideGrooveByMill( Proc, nFacet, nRawId, b3Raw, sCustomMach, d
       local nSCC = MCH_SCC.ADIR_NEAR
       EgtSetMachiningParam( MCH_MP.SCC, nSCC)
       -- imposto modo di lavorare la faccia
-      local nFaceUse = WL.GetNearestParalOpposite( Z_AX(), vtN)
+      local nFaceUse = WL.GetNearestParalOpposite( Z_AX())
       EgtSetMachiningParam( MCH_MP.FACEUSE, nFaceUse)
       -- imposto elevazione e step
       local dStep = EgtGetMachiningParam( MCH_MP.STEP)
@@ -1879,7 +1886,12 @@ local function MakeSideGrooveByMill( Proc, nFacet, nRawId, b3Raw, sCustomMach, d
          dStep = -dStep
       end
       EgtSetMachiningParam( MCH_MP.STEP, dStep)
-      EgtSetMachiningParam( MCH_MP.USERNOTES, 'MaxElev=' .. EgtNumToString( dMaxElev, 3) .. ';')
+      -- leggo eventuali note esistenti della lavorazione
+      local sUserNotes = EgtGetMachiningParam( MCH_MP.USERNOTES)
+      -- aggiungo alle note massima elevazione
+      sUserNotes = EgtSetValInNotes( sUserNotes, 'MaxElev', EgtNumToString( dMaxElev, 3))
+      -- scrivo le note della lavorazione
+      EgtSetMachiningParam( MCH_MP.USERNOTES, sUserNotes)
       -- setto il lato di lavoro standard
       EgtSetMachiningParam( MCH_MP.INVERT, true)
       EgtSetMachiningParam( MCH_MP.WORKSIDE, MCH_MILL_WS.LEFT)
@@ -1967,7 +1979,7 @@ local function MakeSideGrooveByMill( Proc, nFacet, nRawId, b3Raw, sCustomMach, d
    if dAng and dAng > -90 + 10 * GEO.EPS_SMALL and not bExcludeFinishing then
       -- inserisco la lavorazione di contornatura
       local sName = 'Mill_Oth_Fac_' .. ( EgtGetName( Proc.Id) or tostring( Proc.Id))
-      local nMchFId = WM.AddMachining( Proc.Id, sName, sMilling)
+      local nMchFId = WM.AddMachining( Proc, sName, sMilling)
       if not nMchFId then
          local sErr = 'Error adding machining ' .. sName .. '-' .. sMilling
          EgtOutLog( sErr)
@@ -1999,7 +2011,12 @@ local function MakeSideGrooveByMill( Proc, nFacet, nRawId, b3Raw, sCustomMach, d
          dStepOtherFace = -dStepOtherFace
       end
       EgtSetMachiningParam( MCH_MP.STEP, dStepOtherFace)
-      EgtSetMachiningParam( MCH_MP.USERNOTES, 'MaxElev=' .. EgtNumToString( dMaxElev, 3) .. ';')
+      -- leggo eventuali note esistenti della lavorazione
+      local sUserNotes = EgtGetMachiningParam( MCH_MP.USERNOTES)
+      -- aggiungo alle note massima elevazione
+      sUserNotes = EgtSetValInNotes( sUserNotes, 'MaxElev', EgtNumToString( dMaxElev, 3))
+      -- scrivo le note della lavorazione
+      EgtSetMachiningParam( MCH_MP.USERNOTES, sUserNotes)
       if bMachFromDn then
          EgtSetMachiningParam( MCH_MP.INVERT, true)
          EgtSetMachiningParam( MCH_MP.DEPTH, dDepthOtherFace)
@@ -2155,7 +2172,7 @@ local function MakeByPocketing( Proc, nFacet, nRawId, b3Raw, bCheckQPar)
    end
    -- inserisco la lavorazione di svuotatura
    local sName = 'Pock_' .. ( EgtGetName( Proc.Id) or tostring( Proc.Id))
-   local nMchFId = WM.AddMachining( Proc.Id, sName, sPocketing)
+   local nMchFId = WM.AddMachining( Proc, sName, sPocketing)
    if not nMchFId then
       local sErr = 'Error adding machining ' .. sName .. '-' .. sPocketing
       EgtOutLog( sErr)
@@ -2184,8 +2201,12 @@ local function MakeByPocketing( Proc, nFacet, nRawId, b3Raw, bCheckQPar)
       EgtOutLog( sWarn)
    end
    EgtSetMachiningParam( MCH_MP.DEPTH, dDepth)
+   -- leggo eventuali note della lavorazione
+   local sUserNotes = EgtGetMachiningParam( MCH_MP.USERNOTES)
    -- imposto elevazione
-   EgtSetMachiningParam( MCH_MP.USERNOTES, 'MaxElev=' .. EgtNumToString( min( dElev, dMaxDepth), 1) .. ';')
+   sUserNotes = EgtSetValInNotes( sUserNotes, 'MaxElev', EgtNumToString( min( dElev, dMaxDepth), 1))
+   -- scrivo le note della lavorazione
+   EgtSetMachiningParam( MCH_MP.USERNOTES, sUserNotes)
    -- eseguo
    if not EgtApplyMachining( true, false) then
       local _, sErr = EgtGetLastMachMgrError()
@@ -2232,7 +2253,7 @@ local function MakeOneFace( Proc, nRawId, b3Raw)
    end
    -- eseguo il taglio di lama
    local sName = 'Cut_' .. ( EgtGetName( Proc.PartId) or tostring( Proc.PartId)) .. '_' .. tostring( Proc.Id) 
-   local nMchId = WM.AddMachining( Proc.Id, sName, sCutting)
+   local nMchId = WM.AddMachining( Proc, sName, sCutting)
    if not nMchId then
       local sErr = 'Error adding machining ' .. sName .. '-' .. sCutting
       EgtOutLog( sErr)
@@ -2510,7 +2531,7 @@ local function MakeTwoFaces( Proc, nRawId, b3Raw)
    for i = 1, 2 do
       -- inserisco la lavorazione
       local sName = 'Cut_' .. ( EgtGetName( Proc.PartId) or tostring( Proc.PartId)) .. '_' .. tostring( Proc.Id) .. '_' .. tostring( i) 
-      local nMchId = WM.AddMachining( Proc.Id, sName, sCutting)
+      local nMchId = WM.AddMachining( Proc, sName, sCutting)
       if not nMchId then
          local sErr = 'Error adding machining ' .. sName .. '-' .. sCutting
          EgtOutLog( sErr)
@@ -2614,7 +2635,7 @@ local function MakeMoreFaces( Proc, nRawId, b3Raw)
             if sMilling and EgtMdbSetCurrMachining( sMilling) then
                local sTuuid = EgtMdbGetCurrMachiningParam( MCH_MP.TUUID)
                if EgtTdbSetCurrTool( EgtTdbGetToolFromUUID( sTuuid) or '') then
-                  local dMillDiam = EgtTdbGetCurrToolParam( MCH_TP.DIAM) or dMillDiam
+                  local dMillDiam = EgtTdbGetCurrToolParam( MCH_TP.DIAM) or 0
                   bIsBlade = EgtTdbGetCurrToolParam( MCH_TP.TYPE) & MCH_TF.SAWBLADE ~= 0
                   if bIsBlade then
                      dMaxMat = EgtTdbGetCurrToolParam( MCH_TP.THICK) or dMaxMat

LuaLibs/WProcessMark.lua

@@ -108,7 +108,7 @@ function WPMK.Make( Proc, nRawId, b3Raw)
    end
    -- inserisco la lavorazione di fresatura
    local sName = 'Decor_' .. ( EgtGetName( Proc.Id) or tostring( Proc.Id))
-   local nMchFId = WM.AddMachining( Proc.Id, sName, sMilling)
+   local nMchFId = WM.AddMachining( Proc, sName, sMilling)
    if not nMchFId then
       local sErr = 'Error adding machining ' .. sName .. '-' .. sMilling
       EgtOutLog( sErr)
@@ -132,7 +132,7 @@ function WPMK.Make( Proc, nRawId, b3Raw)
    if AuxId then
       -- inserisco la lavorazione di fresatura
       local sName2 = 'Decor2_' .. ( EgtGetName( Proc.Id) or tostring( Proc.Id))
-      local nMchF2Id = WM.AddMachining( Proc.Id, sName, sMilling)
+      local nMchF2Id = WM.AddMachining( Proc, sName, sMilling)
       if not nMchF2Id then
          local sErr = 'Error adding machining ' .. sName2 .. '-' .. sMilling
          EgtOutLog( sErr)

LuaLibs/WProcessMortise.lua

@@ -251,7 +251,7 @@ function WPM.Make( Proc, nRawId, b3Raw)
    end
    -- inserisco la lavorazione di svuotatura
    local sName = 'Mort_' .. ( EgtGetName( Proc.Id) or tostring( Proc.Id))
-   local nMchFId = WM.AddMachining( Proc.Id, sName, sPocketing)
+   local nMchFId = WM.AddMachining( Proc, sName, sPocketing)
    if not nMchFId then
       local sErr = 'Error adding machining ' .. sName .. '-' .. sPocketing
       EgtOutLog( sErr)

LuaLibs/WProcessText.lua

@@ -78,7 +78,7 @@ function WPT.Make( Proc, nRawId, b3Raw)
    end
    -- inserisco la lavorazione di fresatura
    local sName = 'Text_' .. ( EgtGetName( Proc.Id) or tostring( Proc.Id))
-   local nMchFId = WM.AddMachining( Proc.Id, sName, sMilling)
+   local nMchFId = WM.AddMachining( Proc, sName, sMilling)
    if not nMchFId then
       local sErr = 'Error adding machining ' .. sName .. '-' .. sMilling
       EgtOutLog( sErr)

LuaLibs/WProcessVariant.lua

@@ -72,7 +72,7 @@ local function MakeCode_1( Proc, nRawId, b3Raw)
    end
    -- inserisco la lavorazione di finitura superficie
    local sName = 'SurfFin_' .. ( EgtGetName( Proc.Id) or tostring( Proc.Id))
-   local nMchFId = WM.AddMachining( Proc.Id, sName, sSurfFin)
+   local nMchFId = WM.AddMachining( Proc, sName, sSurfFin)
    if not nMchFId then
       local sErr = 'Error adding machining ' .. sName .. '-' .. sSurfFin
       EgtOutLog( sErr)

LuaLibs/WallExec.lua

@@ -1,6 +1,9 @@
--- WallExec.lua by Egaltech s.r.l. 2023/03/06
+-- WallExec.lua by Egaltech s.r.l. 2023/07/04
 -- Libreria esecuzione lavorazioni per Pareti
--- 2023/05/25 Aggiunto ordinamento in base a prioritò da btl.
+-- 2023/05/25 Aggiunto ordinamento in base a priorità da btl.
+-- 2023/06/07 Nel caso di outline con priorità aggiunta la rimozione degli sfridi nella lavorazione successiva.
+-- 2023/06/27 Aggiunte origini TN e BN.
+-- 2023/07/04 Se c'è funzione di macchina WD.GetOrigCorner si lascia scegliere posizione default a questa impostando 0 se non c'è 'REFPOS'.
 
 -- Tabella per definizione modulo
 local WallExec = {}
@@ -72,7 +75,7 @@ function WallExec.ProcessWalls( dRawL, dRawW, dRawH, vWall, bMachGroupOk, bNewPr
    local nCorner
    local sOrigCorner = WD.ORIG_CORNER or 'BR'
    if WD.GetOrigCorner then
-      sOrigCorner = WD.GetOrigCorner( EgtGetInfo( EgtGetFirstNameInGroup( GDB_ID.ROOT, 'BtlInfo') or GDB_ID.NULL, 'REFPOS', 'i') or 1)
+      sOrigCorner = WD.GetOrigCorner( EgtGetInfo( EgtGetFirstNameInGroup( GDB_ID.ROOT, 'BtlInfo') or GDB_ID.NULL, 'REFPOS', 'i') or 0)
    end 
    if sOrigCorner == 'TL' then
       nCorner = MCH_CR.TL
@@ -92,6 +95,12 @@ function WallExec.ProcessWalls( dRawL, dRawW, dRawH, vWall, bMachGroupOk, bNewPr
    elseif sOrigCorner == 'BM' then
       nCorner = MCH_CR.BR
       OrigOnTab = Point3d( WD.MID_REF - abs( WD.DELTA_X or 0), abs( WD.DELTA_Y or 0), ( WD.DELTA_Z or 0))
+   elseif sOrigCorner == 'TN' then
+      nCorner = MCH_CR.TL
+      OrigOnTab = Point3d( WD.NEW_REF + abs( WD.DELTA_X or 0), b3Tab:getDimY() - abs( WD.DELTA_Y or 0), ( WD.DELTA_Z or 0))
+   elseif sOrigCorner == 'BN' then
+      nCorner = MCH_CR.BL
+      OrigOnTab = Point3d( WD.NEW_REF + abs( WD.DELTA_X or 0), abs( WD.DELTA_Y or 0), ( WD.DELTA_Z or 0))
    end
    -- Impostazione dell'attrezzaggio di default
    EgtImportSetup()
@@ -180,7 +189,8 @@ function WallExec.CollectFeatures( PartId, b3Raw)
                Proc.CutId = nCutId
                Proc.TaskId = nTaskId
                Proc.Box = EgtGetBBoxGlob( ProcId, GDB_BB.STANDARD)
-               if Proc.Box and not Proc.Box:isEmpty() then 
+               Proc.IsOutline = ( Proc.Prc == 251 or Proc.Prc == 252)
+               if Proc.Box and not Proc.Box:isEmpty() then
                   table.insert( vProc, Proc)
                   -- se foro
                   if Drill.Identify( Proc) then
@@ -584,6 +594,27 @@ local function SortMachinings( nPhase, PrevMch, nPartId, nPriority)
    return PrevMch
 end
 
+-------------------------------------------------------------------------------------------------------------
+-- setto la rimozione sfridi dopo le lavorazioni di outline
+function InsertScrapRemoval( nPhase)
+   local nCurrentOperationId = EgtGetNextOperation( EgtGetPhaseDisposition( nPhase))
+   local nActiveMachiningId = EgtGetCurrMachining()
+   while nCurrentOperationId do
+      local bIsCurrentOperationOutline = ( EgtGetInfo( nCurrentOperationId or GDB_ID.NULL, 'ISOUTLINE', 'b' ) == true)
+      local bIsCurrentOperationWithPriority = ( ( EgtGetInfo( nCurrentOperationId or GDB_ID.NULL, 'PRIORITY', 'i' ) or 0) > 0)
+      local nNextOperationId = EgtGetNextOperation (nCurrentOperationId)
+      local bIsNextOperationOutline = ( EgtGetInfo( nNextOperationId or GDB_ID.NULL, 'ISOUTLINE', 'b' ) == true)
+      if bIsCurrentOperationOutline and bIsCurrentOperationWithPriority and nNextOperationId and not bIsNextOperationOutline then
+         EgtSetCurrMachining( nNextOperationId)
+         local sMachiningNotes = EgtGetMachiningParam( MCH_MP.USERNOTES)
+         sMachiningNotes = sMachiningNotes .. 'ScrapRemove=1;'
+         EgtSetMachiningParam( MCH_MP.USERNOTES, sMachiningNotes)
+      end
+      nCurrentOperationId = EgtGetNextOperation( nCurrentOperationId)
+   end
+   EgtSetCurrMachining( nActiveMachiningId)
+end
+
 -------------------------------------------------------------------------------------------------------------
 function WallExec.ProcessFeatures()
    -- errori e stato
@@ -676,9 +707,13 @@ function WallExec.ProcessFeatures()
             end
          end
       end
-
+      -- ordinamento standard
       SortMachinings( nPhase, PrevMch)
+
       -- Aggiornamento finale di tutto
+      if nGetPriorityFromBtl > 0 then
+         InsertScrapRemoval( nPhase)
+      end
       EgtSetCurrPhase( 1)
       EgtApplyAllMachinings()
    -- altrimenti macchina travi

UpdateLog.txt

@@ -1,5 +1,18 @@
            ==== Wall Update Log ====
 
+Versione 2.5f3 (30/06/2023)
+- Modif : in LapJoint aggiunta lettura di eventuali note di lavorazione esistenti.
+
+Versione 2.5f2 (28/06/2023)
+- Added : aggiunte due nuove origini (TN e BN che come X usano WD.NEW_REF), in totale ora sono 8.
+
+Versione 2.5f1 (13/06/2023)
+- Added : aggiunta gestione priorità da btl
+- Added : aggiunta gestione lavorazione per lamatura speciale affondata con Tool_ID specifico.
+
+Versione 2.5e1 (04/05/2023)
+- Modif : modifiche per gestione traduzione messaggi
+
 Versione 2.5d2 (20/04/2023)
 - Added : in TS3v7 aggiunta gestione flag per taglio feature con outline (da parametro macchina WD.CUT_WITH_OUTLINE)
 - Added : in TS3v7 aggiunta gestione flag per rotazione grezzo di 180deg (da parametro macchina WD.RAWPART_ROT)

Version.lua

@@ -1,6 +1,6 @@
--- Version.lua by Egalware s.r.l. 2023/05/04
+-- Version.lua by Egalware s.r.l. 2023/07/04
 -- Gestione della versione di Wall
 
 NAME = 'Wall'
-VERSION = '2.5e1'
+VERSION = '2.5g1'
 MIN_EXE = '2.5b3'