- implemento split e relative finiture per travi con sezioni grandi

- split con sega a catena - distinzione finitura con lama o truciolatore in base al parametro Q05 - finiture evitate in presenza di feature che tagliano tutta la sezione - gestione sovramateriale grezzo
2022-06-10 17:50:22 +02:00
parent c9b0f1e90d
commit b29074cbb1
18 changed files with 833 additions and 348 deletions
@@ -0,0 +1,101 @@
+-- FaceByPocket.lua by Egaltech s.r.l. 2022/05/82
+-- Gestione svuotatura di feature con una faccia
+
+-- Tabella per definizione modulo
+local FaceByPocket = {}
+
+-- Include
+require( 'EgtBase')
+local BL = require( 'BeamLib')
+
+EgtOutLog( ' FaceByPocket started', 1)
+
+-- Dati
+local BD = require( 'BeamData')
+local ML = require( 'MachiningLib')
+
+---------------------------------------------------------------------
+local function ApplyPocket( Proc, nSurfId, nFacet, sPocketing, nInd, dMaxElev, vtN)
+
+   -- inserisco la lavorazione di svuotatura
+   local sName = 'Pock_' .. ( EgtGetName( Proc.Id) or tostring( Proc.Id)) .. '_' .. nInd
+   local nMchFId = EgtAddMachining( sName, sPocketing)
+   if not nMchFId then
+      local sErr = 'Error adding machining ' .. sName .. '-' .. sPocketing
+      return false, sErr
+   end
+   -- aggiungo geometria
+   EgtSetMachiningGeometry( {{ nSurfId, nFacet}})
+   -- imposto uso faccia
+   EgtSetMachiningParam( MCH_MP.FACEUSE, MCH_MILL_FU.ORTHO_CONT)
+   if dMaxElev > 0.1 then
+      -- imposto elevazione
+      local sNotes = 'MaxElev=' .. EgtNumToString( dMaxElev, 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( vtN: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
+
+---------------------------------------------------------------------
+function FaceByPocket.Make( Proc, nSurfId, nFacet, sPocketing, nPartId, b3Solid)
+   local bOk = true
+   local sErr
+   -- recupero gruppo per geometria addizionale
+   local nAddGrpId = BL.GetAddGroup( nPartId)
+   if not nAddGrpId then
+      local sErr = 'Error : missing AddGroup'
+      EgtOutLog( sErr)
+      return false, sErr
+   end
+   -- recupero i dati dell'utensile
+   local dStep = 30
+   local dMaxDepth = 100
+   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
+   -- dati della faccia
+   local ptC, vtN = EgtSurfTmFacetCenter( nSurfId, nFacet, GDB_ID.ROOT)
+   local dElev = BL.GetFaceElevation( nSurfId, nFacet, nPartId)
+   -- determino numero e valore degli step di lavorazione
+   local nSurfStep = ceil( dElev / dMaxDepth)
+   local dSurfStep = dElev / nSurfStep
+   -- copio superfice al passo superfice e vi applico la lavorazione
+   for i = nSurfStep, 2, -1 do
+      local ptOn = ptC + ( dSurfStep * ( i - 1)) * vtN
+      local nAddIdTmp = EgtSurfTmPlaneInBBox( nAddGrpId, ptOn, 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, nAddIdTmp, 0, sPocketing, i, dSurfStep, vtN)
+         if not bOk then
+            return false, sErr
+         end
+      end
+   end
+   -- faccio ultima superfice
+   bOk, sErr = ApplyPocket( Proc, nSurfId, nFacet, sPocketing, 1, EgtIf( nSurfStep > 1, dSurfStep, 0), vtN)
+   if not bOk then
+      return false, sErr
+   end
+   return true
+end
+
+return FaceByPocket