DataBeam :

- aggiunto modulo FaceByPocket per lavorazione per svuotatura di una faccia da sorgenti in tenone
- aggiunta possibilità di svuotatura per piano sgrossatura profili su macchine PF e pezzi alti
- aggiunto modulo GetBeamData.

LuaLibs/ProcessTenon.lua

@@ -1,8 +1,9 @@
--- ProcessTenon.lua by Egaltech s.r.l. 2022/05/18
+-- ProcessTenon.lua by Egaltech s.r.l. 2022/05/28
 -- Gestione calcolo tenone per Travi
 -- 2021/10/04 Corretto calcolo HCING per pezzi piccoli.
 -- 2022/02/15 Aggiornata VerifyOrientation per macchine con testa da sotto.
 -- 2022/05/18 Migliorata gestione attacco.
+-- 2022/05/28 Spostato calcolo svuotatura in modulo di libreria.
 
 -- Tabella per definizione modulo
 local ProcessTenon = {}
@@ -10,6 +11,7 @@ local ProcessTenon = {}
 -- Include
 require( 'EgtBase')
 local BL = require( 'BeamLib')
+local Fbp = require( 'FaceByPocket')
 local Cut = require( 'ProcessCut')
 
 EgtOutLog( ' ProcessTenon started', 1)
@@ -79,41 +81,6 @@ function ProcessTenon.Classify( Proc, b3Raw)
    return true, bDown
 end
 
----------------------------------------------------------------------
-local function ApplyPocket( Proc, sPocketing, nStep, dSurfStep, nIdSurf, vtExtr)
-
-   -- inserisco la lavorazione di svuotatura
-   local sName = 'Pock_' .. ( EgtGetName( Proc.Id) or tostring( Proc.Id)) .. '_' .. nStep
-   local nMchFId = EgtAddMachining( sName, sPocketing)
-   if not nMchFId then
-      local sErr = 'Error adding machining ' .. sName .. '-' .. sPocketing
-      return false, sErr
-   end
-   -- aggiungo geometria
-   EgtSetMachiningGeometry( {{ nIdSurf, -1}})
-   -- imposto uso faccia
-   EgtSetMachiningParam( MCH_MP.FACEUSE, MCH_MILL_FU.ORTHO_CONT)
-   if dSurfStep > 0 then
-      -- imposto elevazione
-      local sNotes = 'MaxElev=' .. EgtNumToString( dSurfStep, 2) .. ';'
-      EgtSetMachiningParam( MCH_MP.USERNOTES, sNotes)
-   end
-   -- imposto posizione braccio porta testa
-   local nSCC = MCH_SCC.NONE
-   if not BD.C_SIMM and not BD.TURN then
-      nSCC = EgtIf( vtExtr:getX() < GEO.EPS_SMALL, MCH_SCC.ADIR_XM, MCH_SCC.ADIR_XP)
-   end
-   EgtSetMachiningParam( MCH_MP.SCC, nSCC)
-   -- eseguo
-   if not ML.ApplyMachining( true, false) then
-      local _, sErr = EgtGetLastMachMgrError()
-      EgtSetOperationMode( nMchFId, false)
-      return false, sErr
-   end
-
-   return true
-end
-
 ---------------------------------------------------------------------
 -- Applicazione della lavorazione
 function ProcessTenon.Make( Proc, nPhase, nRawId, nPartId, dOvmHead)
@@ -180,43 +147,16 @@ function ProcessTenon.Make( Proc, nPhase, nRawId, nPartId, dOvmHead)
          EgtSetInfo( AddId, 'TASKID', Proc.TaskId)
          -- se pezzo piccolo, in coda, con piano inclinato verso il basso e  macchina con testa da sotto applico svuotatura
          if bShortPart and vtExtr:getX() < 0 and vtExtr:getZ() < -0.09 and BD.DOWN_HEAD then
+            -- recupero la lavorazione
             local sPockType = EgtIf( bMillDown, 'OpenPocket_H2', 'OpenPocket')
             local sPocketing = ML.FindPocketing( sPockType, nil, nil, nil, not bMillDown, bMillDown)
-            local dMaxDepth = 100
-            local dStep = 30
-            local nSurfStep
-            -- acquisisco i dati necessari dall'utensile
-            if EgtMdbSetCurrMachining( sPocketing) then
-               local sTuuid = EgtMdbGetCurrMachiningParam( MCH_MP.TUUID)
-               dStep = EgtMdbGetCurrMachiningParam( MCH_MP.STEP) or dStep
-               if EgtTdbSetCurrTool( EgtTdbGetToolFromUUID( sTuuid) or '') then
-                  dMaxDepth = EgtTdbGetCurrToolMaxDepth() or dMaxDepth
-               end
-            end
-            -- acquisisco elevazione
-            local dElev = BL.GetFaceElevation( AddId, 0, nPartId)
-            nSurfStep = ceil( dElev / dMaxDepth)
-            dSurfStep = dElev / nSurfStep
-            local bOk = true
-            local sErr
-            -- copio superfice al passo superfice e ci applico la lavorazione
-            for i = nSurfStep, 2, -1 do
-               local nAddIdTmp = EgtSurfTmPlaneInBBox( nAddGrpId, ptC+((dSurfStep*(i-1))*vtN), vtN, b3Solid, GDB_RT.GLOB)
-               if nAddIdTmp then
-                  EgtSetName( nAddIdTmp, 'AddCut_' .. tostring( Proc.Id))
-                  EgtSetInfo( nAddIdTmp, 'TASKID', Proc.TaskId)
-                  -- aggiungo lavorazione
-                  bOk, sErr = ApplyPocket( Proc, sPocketing, i, (dSurfStep + 0), nAddIdTmp, vtExtr)
-                  if not bOk then
-                     break
-                  end
-               end
-            end
-            if not bOk then
+            if not sPocketing then
+               local sErr = 'Error : pocketing '..sPockType..' not found in library'
+               EgtOutLog( sErr)
                return false, sErr
             end
-            -- faccio ultima superfice
-            bOk, sErr = ApplyPocket( Proc, sPocketing, 1, EgtIf( nSurfStep > 1, ( dSurfStep + 0), 0), AddId, vtExtr)
+            -- eseguo le svuotature necessarie
+            local bOk, sErr = Fbp.Make( Proc, AddId, 0, sPocketing, nPartId, b3Solid)
             if not bOk then
                return false, sErr
             end
@@ -227,7 +167,9 @@ function ProcessTenon.Make( Proc, nPhase, nRawId, nPartId, dOvmHead)
                               Head = Proc.Head, Tail = Proc.Tail, CutId = Proc.CutId, TaskId = Proc.TaskId}
             local bFromBottom = ( bShortPart and vtExtr:getZ() > 0.25)
             local bOk, sErr = Cut.Make( CutProc, nPhase, nRawId, nPartId, dOvmHead, bFromBottom)
-            if not bOk then return bOk, sErr end
+            if not bOk then
+               return false, sErr
+            end
          end
       end
    end