Cambio punto di partenza del tenone

2025-03-19 08:21:52 +01:00
parent 6f215f9849
commit 76e00c211e
2 changed files with 70 additions and 5 deletions
@@ -564,6 +564,56 @@ function BeamLib.FindEdgeBestOrientedAsDirection( Edges, vtDirection)
   return BestEdge
 end

+-------------------------------------------------------------------------------------------------------------
+-- nNearSide : 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
+   local vtN = EgtCurveExtrusion( nCrvId, GDB_ID.ROOT)
+   -- coefficienti per riportare la distanza nel piano di lavoro
+   local dCoeffY = 0
+   if abs( vtN:getY()) < 0.999 then dCoeffY= 1 / ( sqrt( 1 - vtN:getY() * vtN:getY())) end
+   local dCoeffZ = 0
+   if abs( vtN:getZ()) < 0.999 then dCoeffZ = 1 / ( sqrt( 1 - vtN:getZ() * vtN:getZ())) end
+   -- 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 dSopt = GEO.INFINITO
+   local dUi, dUf = EgtCurveDomain( nCrvId)
+   for dU = dUi, dUf, 0.5 do
+      local ptP = EgtUP( nCrvId, dU, GDB_ID.ROOT)
+      local vtDp = EgtUV( nCrvId, dU, -1, GDB_ID.ROOT)
+      local vtDs = EgtUV( nCrvId, dU, 1, GDB_ID.ROOT)
+      local bTg = ( vtDp and vtDs and vtDp * vtDs > 0.96)
+      if ptP and bTg then
+         local vtMin = ptP - b3Raw:getMin()
+         local vtMax = ptP - b3Raw:getMax()
+         local dD = abs( vtMin:getY()) * dCoeffY
+         dD = min( abs( vtMax:getY()) * dCoeffY, dD)
+         dD = min( abs( vtMin:getZ()) * dCoeffZ, dD)
+         dD = min( abs( vtMax:getZ()) * dCoeffZ, dD)
+         local dS
+         if 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
+            dSopt = dS
+         end
+      end
+   end
+   if abs( dUopt - dUi) > GEO.EPS_ZERO and abs( dUopt - dUf) > GEO.EPS_ZERO then
+      -- TODO. Non utilizzare la funzione EgtChangeClosedCurveStart perchè cambia proprietà della geometria.
+      -- dopo aver trovato l'entità di partenza, calcolare l'offset da aggiungere alla lavorazione per poter cominciare da questa entità (senza modifica della geometria)
+      EgtChangeClosedCurveStart( nCrvId, dUopt)
+   end
+   return true
+end
+
 ---------------------------------------------------------------------
 -- Merge sorting - algoritmo di sorting stabile, ossia che mantiene l'ordine relativo se gli elementi sono equivalenti
 -- TODO vedere come riordinare (tutto in tabella MergeSort??)