DataBeam :

- piccole modifiche per PF1250.

LuaLibs/ProcessTenon.lua

@@ -1,4 +1,4 @@
--- ProcessTenon.lua by Egaltech s.r.l. 2020/11/06
+-- ProcessTenon.lua by Egaltech s.r.l. 2020/12/17
 -- Gestione calcolo tenone per Travi
 
 -- Tabella per definizione modulo
@@ -170,8 +170,9 @@ function ProcessTenon.Make( Proc, nPhase, nRawId, nPartId, dOvmHead)
          EgtSetName( AddId, 'AddCut_' .. tostring( Proc.Id))
          EgtSetInfo( AddId, 'TASKID', Proc.TaskId)
          -- 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')
+         if b3Solid:getDimX() < BD.LEN_SHORT_PART and vtExtr:getX() < 0 and abs( vtExtr:getX()) < 0.985 then
+            local sPockType = EgtIf( vtExtr:getZ() < 0.1 and BD.DOWN_HEAD, 'OpenPocket_H2', 'OpenPocket')
+            local sPocketing = ML.FindPocketing( sPockType)
             local dMaxDepth = 100
             local dStep = 30
             local nSurfStep
@@ -222,7 +223,8 @@ function ProcessTenon.Make( Proc, nPhase, nRawId, nPartId, dOvmHead)
       end
    end
    -- recupero la lavorazione
-   local sMilling = ML.FindMilling( 'Tenon', dTenH) or ML.FindMilling( 'Tenon')
+   local sMillType = EgtIf( vtExtr:getZ() < 0.1 and BD.DOWN_HEAD, 'Tenon_H2', 'Tenon')
+   local sMilling = ML.FindMilling( sMillType, dTenH) or ML.FindMilling( sMillType)
    if not sMilling then
       local sErr = 'Error on process ' .. tostring( Proc.Id) .. ' milling not found in library'
       EgtOutLog( sErr)
@@ -301,13 +303,16 @@ function ProcessTenon.Make( Proc, nPhase, nRawId, nPartId, dOvmHead)
       if Proc.Head then
          local dOffs = b3Raw:getMax():getX() - dOvmHead - Proc.Box:getMin():getX()
          if abs( vtN:getY()) < 0.1 and vtN:getZ() > 0.5 then
-            dOffs = dOffs / 2
+            dOffs = 0.5 * dOffs
+         end
+         if b3Solid:getDimX() < BD.LEN_SHORT_PART and b3Raw:getDimZ() < BD.VICE_MINH and abs( vtN:getZ()) > 0.575 then
+            dOffs = 0.2 * dOffs
          end
          BL.UpdateHCING( nRawId, dOffs)
       elseif Proc.Tail then
          local dOffs = Proc.Box:getMax():getX() - b3Solid:getMin():getX()
          if abs( vtN:getY()) < 0.1 and vtN:getZ() > 0.5 then
-            dOffs = dOffs / 2
+            dOffs = 0.5 * dOffs
          end
          BL.UpdateTCING( nRawId, dOffs)
       end