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/BeamLib.lua

@@ -1,4 +1,4 @@
--- BeamLib.lua by Egaltech s.r.l. 2022/07/12
+-- BeamLib.lua by Egaltech s.r.l. 2023/01/20
 -- Libreria globale per Travi
 -- 2020/07/28 Corretto calcolo attacchi e uscite di lame per non uscire dalla faccia sotto.
 -- 2020/08/18 Aggiunto a GetNearestParalOpposite e GetNearestOrthoOpposite parametro opzionale vtNorm.
@@ -18,6 +18,7 @@
 -- 2022/07/26 Alla funzione FindFaceBestOrientedAsAxis aggiunta la possibilità di escludere una faccia dalla ricerca
 -- 2022/09/01 Aggiunte le funzioni GetTunnelDimension, CalcCollisionSafety, SetOpenSide, precedentemente in ProcessLapJoint.
 -- 2023/01/10 In GetFaceWithMostAdj aggiunta verifica che la feature abbia almeno una faccia aperta.
+-- 2023/01/20 Modificata PutStartNearestToEdge per gestire lato preferito come Y+, Y-, z*, Z-.
 
 -- Tabella per definizione modulo
 local BeamLib = {}
@@ -195,7 +196,8 @@ function BeamLib.PutStartOnLonger( nCrvId)
 end
 
 -------------------------------------------------------------------------------------------------------------
-function BeamLib.PutStartNearestToEdge( nCrvId, b3Raw, dMaxDist, bDown)
+-- nNearSide : 2=Y+, -2=Y-, 3=Z+, -3=Z- 
+function BeamLib.PutStartNearestToEdge( nCrvId, b3Raw, dMaxDist, nNearSide)
    -- verifico che la curva sia chiusa
    if not EgtCurveIsClosed( nCrvId) then return false end
    -- recupero il versore normale al piano di lavoro o estrusione
@@ -208,7 +210,7 @@ function BeamLib.PutStartNearestToEdge( nCrvId, b3Raw, dMaxDist, bDown)
    -- cerco l'estremo più vicino al box e lo imposto come inizio (se da sotto escludo Zmax e viceversa)
    local dUopt = 0
    local dDopt = GEO.INFINITO
-   local dZopt = GEO.INFINITO
+   local dSopt = GEO.INFINITO
    local dUi, dUf = EgtCurveDomain( nCrvId)
    for dU = dUi, dUf, 0.5 do
       local ptP = EgtUP( nCrvId, dU, GDB_ID.ROOT)
@@ -222,11 +224,20 @@ function BeamLib.PutStartNearestToEdge( nCrvId, b3Raw, dMaxDist, bDown)
          dD = min( abs( vtMax:getY()) * dCoeffY, dD)
          dD = min( abs( vtMin:getZ()) * dCoeffZ, dD)
          dD = min( abs( vtMax:getZ()) * dCoeffZ, dD)
-         local dZ = abs( EgtIf( bDown, vtMin:getZ(), vtMax:getZ())) * dCoeffZ
-         if dD < dMaxDist and dZ < dZopt + GEO.EPS_SMALL then
+         local dS
+         if nNearSide == -2 then
+            dS = abs( vtMin:getY() * dCoeffY)
+         elseif nNearSide == 2 then
+            dS = abs( vtMax:getY() * dCoeffY)
+         elseif nNearSide == -3 then
+            dS = abs( vtMin:getZ() * dCoeffZ)
+         else  --nNearSide == 3
+            dS = abs( vtMax:getZ() * dCoeffZ)
+         end
+         if dD < dMaxDist and dS < dSopt + GEO.EPS_SMALL then
             dUopt = dU
             dDopt = dD
-            dZopt = dZ
+            dSopt = dS
          end
       end
    end