DataBeam :

- migliorata scelta punto di attacco lavorazione tenoni (meglio gestita testa sopra/sotto)
- corretta scelta lavorazione tenoni per macchine con testa da sotto
- corretta scelta lavorazione BH per feature BH (ora si tiene conto anche dell'affondamento).

LuaLibs/ProcessTenon.lua

@@ -1,7 +1,8 @@
--- ProcessTenon.lua by Egaltech s.r.l. 2022/02/15
+-- ProcessTenon.lua by Egaltech s.r.l. 2022/05/18
 -- 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.
+-- 2022/05/18 Migliorata gestione attacco.
 
 -- Tabella per definizione modulo
 local ProcessTenon = {}
@@ -160,8 +161,6 @@ function ProcessTenon.Make( Proc, nPhase, nRawId, nPartId, dOvmHead)
    -- abilitazione lavorazione da sotto
    local bMillUp = ( BD.DOWN_HEAD and vtExtr:getZ() > -0.259)
    local bMillDown = ( BD.DOWN_HEAD and vtExtr:getZ() < 0.1)
-   -- porto inizio curva il più possibile sul bordo
-   BL.PutStartNearestToEdge( AuxId, b3Solid, bMillDown and not bShortPart)
    -- se vero tenone inclinato o non esattamente alle estremità, necessario taglio di lama sulla testa
    if  Proc.Prc ~= 52 and
        ( not AreSameOrOppositeVectorApprox( vtN, X_AX()) or
@@ -234,7 +233,10 @@ function ProcessTenon.Make( Proc, nPhase, nRawId, nPartId, dOvmHead)
    end
    -- recupero la lavorazione
    local sMillType = 'Tenon'
-   local sMilling = ML.FindMilling( sMillType, dTenH, nil, nil, nil, bMillUp, bMillDown) or ML.FindMilling( sMillType, nil, nil, nil, bMillUp, bMillDown)
+   local sMilling, _, _, bH2 = ML.FindMilling( sMillType, dTenH, nil, nil, nil, bMillUp, bMillDown)
+   if not sMilling then
+      sMilling, _, _, bH2 = ML.FindMilling( sMillType, nil, nil, nil, nil, bMillUp, bMillDown)
+   end
    if not sMilling then
       local sErr = 'Error : milling not found in library'
       EgtOutLog( sErr)
@@ -253,6 +255,9 @@ function ProcessTenon.Make( Proc, nPhase, nRawId, nPartId, dOvmHead)
          bCW = ( dSpeed >= 0)
       end
    end
+   -- porto inizio curva il più possibile sul bordo
+   local bMyShortPart = ( bShortPart and abs( vtN:getX()) < 0.999)
+   BL.PutStartNearestToEdge( AuxId, b3Solid, bH2 ~= bMyShortPart)
    -- se elevazione superiore a massimo affondamento della fresa, riduco opportunamente
    local sWarn
    local dDepth = 0