DataBeam :

- aggiunta gestione feature senza geometria
- migliorato calcolo attacchi/uscite lama con angoli 45deg
- in foratura si tiene conto anche della profondità del foro per scegliere la punta più adatta
- in tagli corretto problema con tagli orizzontali (da sotto o sopra) con taglio più alto dell'utile lama
- in LapJoint e simili migliorati antischeggia con lama
- in Tenoni migliorata lavorazione faccia di testa con fresa.

LuaLibs/ProcessTenon.lua

@@ -1,4 +1,4 @@
--- ProcessTenon.lua by Egaltech s.r.l. 2020/07/25
+-- ProcessTenon.lua by Egaltech s.r.l. 2020/09/07
 -- Gestione calcolo tenone per Travi
 
 -- Tabella per definizione modulo
@@ -72,6 +72,38 @@ 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 = EgtIf( vtExtr:getX() < GEO.EPS_SMALL, MCH_SCC.ADIR_XM, MCH_SCC.ADIR_XP)
+   EgtSetMachiningParam( MCH_MP.SCC, nSCC)
+   -- eseguo
+   if not EgtApplyMachining( 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)
@@ -137,25 +169,42 @@ function ProcessTenon.Make( Proc, nPhase, nRawId, nPartId, dOvmHead)
          -- se pezzo piccolo, in coda e piano inclinato attorno a Z applico svuotatura
          if b3Solid:getDimX() < BD.LEN_SHORT_PART and vtExtr:getX() < 0 and abs( vtExtr:getY()) > 0.173 then
             local sPocketing = ML.FindPocketing( 'OpenPocket')
-            -- inserisco la lavorazione di svuotatura
-            local sName = 'Pock_' .. ( EgtGetName( Proc.Id) or tostring( Proc.Id))
-            local nMchFId = EgtAddMachining( sName, sPocketing)
-            if not nMchFId then
-               local sErr = 'Error adding machining ' .. sName .. '-' .. sPocketing
-               EgtOutLog( sErr)
+            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
                return false, sErr
             end
-            -- aggiungo geometria
-            EgtSetMachiningGeometry( {{ AddId, -1}})
-            -- imposto uso faccia
-            EgtSetMachiningParam( MCH_MP.FACEUSE, MCH_MILL_FU.ORTHO_CONT)
-            -- imposto posizione braccio porta testa
-            local nSCC = EgtIf( vtExtr:getX() < GEO.EPS_SMALL, MCH_SCC.ADIR_XM, MCH_SCC.ADIR_XP)
-            EgtSetMachiningParam( MCH_MP.SCC, nSCC)
-            -- eseguo
-            if not EgtApplyMachining( true, false) then
-               local _, sErr = EgtGetLastMachMgrError()
-               EgtSetOperationMode( nMchFId, false)
+            -- faccio ultima superfice
+            bOk, sErr = ApplyPocket( Proc, sPocketing, 1, EgtIf( nSurfStep > 1, ( dSurfStep + 0), 0), AddId, vtExtr)
+            if not bOk then
                return false, sErr
             end
          -- altrimenti applico taglio di lama