DataBeam :

- aggiunta gestione smussi in DoubleCut.

LuaLibs/ProcessDoubleCut.lua

@@ -1,4 +1,4 @@
--- ProcessDoubleCut.lua by Egaltech s.r.l. 2020/04/20
+-- ProcessDoubleCut.lua by Egaltech s.r.l. 2020/06/10
 -- Gestione calcolo doppi tagli di lama per Travi
 
 -- Tabella per definizione modulo
@@ -44,6 +44,93 @@ function ProcessDoubleCut.Classify( Proc)
    return true, false
 end
 
+---------------------------------------------------------------------
+-- lavorazione smussi
+local function MakeChamfer( Proc, nPhase, nRawId, nPartId, dOvmHead)
+   -- verifico che lo smusso sia richiesto
+   local dDepth = EgtGetInfo( Proc.Id, 'Q06', 'd') or 0
+   if dDepth < 0.1 then return true end
+   -- ingombro del grezzo
+   local b3Raw = EgtGetRawPartBBox( nRawId)
+   -- recupero e verifico l'entità curva associata
+   local AuxId = EgtGetInfo( Proc.Id, 'AUXID', 'i')
+   if AuxId then AuxId = AuxId + Proc.Id end
+   if not AuxId then return true end
+   if ( EgtGetType( AuxId) & GDB_FY.GEO_CURVE) == 0 then
+      local sErr = 'Error : missing profile geometry'
+      EgtOutLog( sErr)
+      return false, sErr
+   end
+   -- recupero i dati della curva e del profilo
+   local dWidth = abs( EgtCurveThickness( AuxId))
+   local vtExtr = EgtCurveExtrusion( AuxId, GDB_RT.GLOB)
+   -- eseguo lo smusso solo se direzione orizzontale (non propago la segnalazione a TS3)
+   if abs( vtExtr:getZ()) > 0.1 then
+      local sWarn = 'Warning : skipped not horizontal chamfer'
+      EgtOutLog( sWarn)
+      return true
+   end
+   -- eseguo lo smusso solo se feature larga come la trave
+   if dWidth < b3Raw:getDimY() - 1 then
+      local sWarn = 'Warning : skipped chamfer (feature smaller than beam)'
+      EgtOutLog( sWarn)
+      return true, sWarn
+   end
+   local dExtra = 2
+   -- recupero la lavorazione
+   local sMilling = ML.FindMilling( 'Mark')
+   if not sMilling then
+      local sErr = 'Error : milling not found in library'
+      EgtOutLog( sErr)
+      return false, sErr
+   end
+   -- Inserisco la lavorazione del lato standard
+   local sName1 = 'SJN_' .. ( EgtGetName( Proc.Id) or tostring( Proc.Id))
+   local nMch1Id = EgtAddMachining( sName1, sMilling)
+   if not nMch1Id then
+      local sErr = 'Error adding machining ' .. sName1 .. '-' .. sMilling
+      EgtOutLog( sErr)
+      return false, sErr
+   end
+   -- aggiungo geometria
+   EgtSetMachiningGeometry( {{ AuxId, -1}})
+   -- assegno affondamento e offset radiale
+   EgtSetMachiningParam( MCH_MP.DEPTH, dDepth + dExtra)
+   EgtSetMachiningParam( MCH_MP.OFFSR, dExtra)
+   -- assegno lato di lavoro
+   EgtSetMachiningParam( MCH_MP.WORKSIDE, MCH_MILL_WS.RIGHT)
+   -- eseguo
+   if not EgtApplyMachining( true, false) then
+      local _, sErr = EgtGetLastMachMgrError()
+      EgtSetOperationMode( nMchId, false)
+      return false, sErr
+   end
+   -- Inserisco la lavorazione del lato opposto
+   local sName2 = 'SJN_' .. ( EgtGetName( Proc.Id) or tostring( Proc.Id))
+   local nMch2Id = EgtAddMachining( sName2, sMilling)
+   if not nMch2Id then
+      local sErr = 'Error adding machining ' .. sName2 .. '-' .. sMilling
+      EgtOutLog( sErr)
+      return false, sErr
+   end
+   -- aggiungo geometria
+   EgtSetMachiningGeometry( {{ AuxId, -1}})
+   -- inverto direzione utensile
+   EgtSetMachiningParam( MCH_MP.TOOLINVERT, true)
+   -- assegno affondamento e offset radiale
+   EgtSetMachiningParam( MCH_MP.DEPTH, dDepth + dExtra)
+   EgtSetMachiningParam( MCH_MP.OFFSR, dExtra)
+   -- assegno lato di lavoro
+   EgtSetMachiningParam( MCH_MP.WORKSIDE, MCH_MILL_WS.LEFT)
+   -- eseguo
+   if not EgtApplyMachining( true, false) then
+      local _, sErr = EgtGetLastMachMgrError()
+      EgtSetOperationMode( nMchId, false)
+      return false, sErr
+   end
+   return true
+end
+
 ---------------------------------------------------------------------
 -- Applicazione della lavorazione
 function ProcessDoubleCut.Make( Proc, nPhase, nRawId, nPartId, dOvmHead)
@@ -53,7 +140,7 @@ function ProcessDoubleCut.Make( Proc, nPhase, nRawId, nPartId, dOvmHead)
    local Ls = EgtGetFirstNameInGroup( nPartId, 'Box')
    local b3Solid = EgtGetBBoxGlob( Ls or GDB_ID.NULL, GDB_BB.STANDARD)
    if not b3Solid then
-      local sErr = 'Error on process ' .. tostring( Proc.Id) .. ' part box not found'
+      local sErr = 'Error : part box not found'
       EgtOutLog( sErr)
       return false, sErr
    end
@@ -81,10 +168,13 @@ function ProcessDoubleCut.Make( Proc, nPhase, nRawId, nPartId, dOvmHead)
    local _, dB2, dH2 = EgtSurfTmFacetMinAreaRectangle( Proc.Id, 1)
    local nBigInd = EgtIf( dB1 * dH1 >= dB2 * dH2, 1, 2)
    local nSmaInd = 3 - nBigInd
+   -- inserimento smussi
+   local bOkc, sErrC = MakeChamfer( Proc, nPhase, nRawId, nPartId, dOvmHead)
+   if not bOkc then return bOkc, sErrC end
    -- recupero la lavorazione
    local sCutting = ML.FindCutting( EgtIf( bHead, 'HeadSide', 'TailSide'))
    if not sCutting then
-      local sErr = 'Error on process ' .. tostring( Proc.Id) .. ' cutting not found in library'
+      local sErr = 'Error : cutting not found in library'
       EgtOutLog( sErr)
       return false, sErr
    end
@@ -103,7 +193,7 @@ function ProcessDoubleCut.Make( Proc, nPhase, nRawId, nPartId, dOvmHead)
       -- recupero gruppo per geometria addizionale
       local nAddGrpId = BL.GetAddGroup( nPartId)
       if not nAddGrpId then
-         local sErr = 'Error on process ' .. tostring( Proc.Id) .. ' missing AddGroup'
+         local sErr = 'Error : missing AddGroup'
          EgtOutLog( sErr)
          return false, sErr
       end
@@ -143,7 +233,7 @@ function ProcessDoubleCut.Make( Proc, nPhase, nRawId, nPartId, dOvmHead)
          -- recupero gruppo per geometria addizionale
          local nAddGrpId = BL.GetAddGroup( nPartId)
          if not nAddGrpId then
-            local sErr = 'Error on process ' .. tostring( Proc.Id) .. ' missing AddGroup'
+            local sErr = 'Error : missing AddGroup'
             EgtOutLog( sErr)
             return false, sErr
          end