DataBeam :

- su Tenoni aggiunta gestione smusso, migliorata scelta tra sopra e sotto per il punto di inizio e in VerifyOrientation aggiunta trave medio alta
- su SawCut aggiunta gestione testa da sotto
- su Cut allargati i limiti di lunghezza per tagli verticali inclinati di fianco.

LuaLibs/ProcessTenon.lua

@@ -1,4 +1,4 @@
--- ProcessTenon.lua by Egaltech s.r.l. 2022/12/12
+-- ProcessTenon.lua by Egaltech s.r.l. 2022/12/20
 -- 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.
@@ -7,6 +7,7 @@
 -- 2022/09/20 Migliorato il calcolo delle passate laterali; ora considera la reale distanza tra contorno del tenone e estremi della faccia
 -- 2022/11/03 Corretto uso di bH2 (da sotto solo se anche bMillDown vero).
 -- 2022/12/12 Su macchine con rulli pressori e pinze separate si riduce di meno l'ingombro con tenoni inclinati.
+-- 2022/12/20 Aggiunta gestione smusso. Migliorata scelta tra sopra e sotto per il punto di inizio. In VerifyOrientation aggiunta trave medio alta.
 
 -- Tabella per definizione modulo
 local ProcessTenon = {}
@@ -32,8 +33,8 @@ local function VerifyOrientation( Proc, vtN, b3Raw)
    end
    -- se trave molto bassa
    if b3Raw:getDimZ() <= 120 then
-      -- se tenone praticamente in asse, accetto fino a -45 deg
-      if abs( vtN:getY()) < 0.04 then
+      -- se non testa PF e tenone praticamente in asse, accetto fino a -45 deg
+      if not BD.C_SIMM and abs( vtN:getY()) < 0.04 then
          return ( vtN:getZ() >= -0.7072)
       -- altrimenti accetto fino a -30deg
       else
@@ -57,6 +58,15 @@ local function VerifyOrientation( Proc, vtN, b3Raw)
       else
          return ( vtN:getZ() >= -0.174)
       end
+   -- se trave medio alta
+   elseif b3Raw:getDimZ() <= 400 then
+      -- se tenone praticamente in asse, accetto fino a -15 deg
+      if abs( vtN:getY()) < 0.04 then
+         return ( vtN:getZ() >= -0.259)
+      -- altrimenti, accetto fino a -5 deg
+      else
+         return ( vtN:getZ() >= -0.088)
+      end
    -- altrimenti
    else
       -- accetto fino a -5deg
@@ -197,6 +207,43 @@ function ProcessTenon.Make( Proc, nPhase, nRawId, nPartId, dOvmHead)
          end
       end
    end
+   -- se vero tenone e richiesto, eseguo lo smusso
+   if Proc.Prc ~= 52 and EgtGetInfo( Proc.Id, 'P05', 'i') == 1 then
+      -- profondità smusso
+      local dDepth = EgtGetInfo( Proc.Id, 'Q01', 'd') or 0
+      if dDepth > 0.1 then
+         local dExtra = 2
+         -- recupero la lavorazione
+         local sMilling = ML.FindMilling( 'Mark', nil, nil, nil, nil, bMillUp, bMillDown)
+         if not sMilling then
+            local sErr = 'Error : milling (Mark) not found in library'
+            EgtOutLog( sErr)
+            return false, sErr
+         end
+         -- Inserisco la lavorazione
+         local sName1 = 'TenC_' .. ( 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, -dTenH + dDepth + dExtra)
+         EgtSetMachiningParam( MCH_MP.OFFSR, dExtra)
+         EgtSetMachiningParam( MCH_MP.USERNOTES, 'MaxElev=' .. EgtNumToString( dDepth + dExtra, 1) .. ';')
+         -- assegno lato di lavoro
+         EgtSetMachiningParam( MCH_MP.WORKSIDE, MCH_MILL_WS.RIGHT)
+         -- eseguo
+         if not ML.ApplyMachining( true, false) then
+            local _, sErr = EgtGetLastMachMgrError()
+            EgtSetOperationMode( nMchId, false)
+            return false, sErr
+         end
+      end
+   end
    -- recupero la lavorazione
    local sMillType = 'Tenon'
    local sMilling, _, _, bH2 = ML.FindMilling( sMillType, dTenH, nil, nil, nil, bMillUp, bMillDown)
@@ -226,8 +273,14 @@ function ProcessTenon.Make( Proc, nPhase, nRawId, nPartId, dOvmHead)
    local OVERLAP_COEFF = 0.7
    -- porto inizio curva il più possibile sul bordo in alto o in basso
    local dMaxDist = OVERLAP_COEFF * dMillDiam * MAX_PASS
+   local bFromBottom
    local bMyShortPart = ( bShortPart and vtN:getX() < 0 and abs( vtN:getX()) < 0.999 and abs( vtN:getY()) < 0.259)
-   BL.PutStartNearestToEdge( AuxId, b3Solid, dMaxDist, EgtIf( bH2 and bMillDown, not bMyShortPart, bMyShortPart))
+   if bH2 and bMillDown then
+      bFromBottom = EgtIf( bMyShortPart and vtN:getZ() < -0.018, false, true)
+   else
+      bFromBottom = EgtIf( bMyShortPart and vtN:getZ() > 0.018, true, false)
+   end
+   BL.PutStartNearestToEdge( AuxId, b3Solid, dMaxDist, bFromBottom)
    -- se elevazione superiore a massimo affondamento della fresa, riduco opportunamente
    local sWarn
    local dDepth = 0