- in LapJoint correzioni a sega a catena con attacco laterale

2025-06-30 16:13:19 +02:00
parent 85e6c3c86d
commit a996d4beb3
2 changed files with 36 additions and 4 deletions
@@ -899,6 +899,27 @@ function BeamLib.FindFaceBestOrientedAsAxis( Proc, vtAx, fctExclude)
   return nFaceIndMax, ptC, vtN
 end

+---------------------------------------------------------------------
+function BeamLib.GetEdgeToMachineFromVector( nSurfId, nFacet, vtOrtho)
+   local _, EdgesEgt = EgtSurfTmGetFacetOutlineInfo( nSurfId, nFacet, GDB_ID.ROOT)
+
+   local nEdgeIndMax = 0
+   local dMaxComp = - GEO.INFINITO
+   for i = 1, #EdgesEgt do
+      local vtN = EdgesEgt[i].Norm
+      if EdgesEgt[i].Open then
+         vtN = -vtN
+      end
+      local dComp = vtN * vtOrtho
+      if dComp > dMaxComp then
+         nEdgeIndMax = i -1
+         dMaxComp = dComp
+      end
+   end
+
+   return nEdgeIndMax
+end
+
 ---------------------------------------------------------------------
 function BeamLib.GetTunnelDimension( Proc, nPartId)
   -- sono necessarie almeno due facce