DataBeam :

- in lavorazione Tenoni modificata scelta lato di attacco per pezzo piccolo su macchine con pinza speciale (pinza 5)
- in lavorazione LapJoint (sottospecie L020) migliorato riconoscimento caso Special3faces
- estesa funzione di libreria PutStartNearestToEdge per gestire lato preferito come Y+, Y-, z*, Z-.

LuaLibs/ProcessTenon.lua

@@ -1,4 +1,4 @@
--- ProcessTenon.lua by Egaltech s.r.l. 2022/12/20
+-- ProcessTenon.lua by Egaltech s.r.l. 2023/01/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.
@@ -8,6 +8,7 @@
 -- 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.
+-- 2023/01/20 Modificata scelta lato di attacco per pezzo piccolo su macchine con pinza speciale (pinza 5).
 
 -- Tabella per definizione modulo
 local ProcessTenon = {}
@@ -271,16 +272,17 @@ function ProcessTenon.Make( Proc, nPhase, nRawId, nPartId, dOvmHead)
    -- massimo numero di passate e coefficiente di sovrapposizione ta passate
    local MAX_PASS = 6
    local OVERLAP_COEFF = 0.7
-   -- porto inizio curva il più possibile sul bordo in alto o in basso
+   -- porto inizio curva il più possibile sul bordo in alto, in basso o di lato a seconda delle necessità
    local dMaxDist = OVERLAP_COEFF * dMillDiam * MAX_PASS
-   local bFromBottom
+   local nNearSide = 3
    local bMyShortPart = ( bShortPart and vtN:getX() < 0 and abs( vtN:getX()) < 0.999 and abs( vtN:getY()) < 0.259)
    if bH2 and bMillDown then
-      bFromBottom = EgtIf( bMyShortPart and vtN:getZ() < -0.018, false, true)
+      nNearSide = EgtIf( bMyShortPart and vtN:getZ() < -0.018, 3, -3)
    else
-      bFromBottom = EgtIf( bMyShortPart and vtN:getZ() > 0.018, true, false)
+      nNearSide = EgtIf( bMyShortPart and vtN:getZ() > 0.018, -3, 3)
    end
-   BL.PutStartNearestToEdge( AuxId, b3Solid, dMaxDist, bFromBottom)
+   if bMyShortPart and BD.CLAMP5 then nNearSide = -2 end
+   BL.PutStartNearestToEdge( AuxId, b3Solid, dMaxDist, nNearSide)
    -- se elevazione superiore a massimo affondamento della fresa, riduco opportunamente
    local sWarn
    local dDepth = 0