- in ProcessDrill, per le forature passanti fatte da un solo lato, eventuale inversione foro in base al lato di lavoro e al lato testa dell'utensile scelto (BD.GetSetupInfo)

2025-02-18 17:44:13 +01:00
parent a7df54d8d2
commit c82a27ebae
2 changed files with 24 additions and 0 deletions
@@ -482,6 +482,27 @@ function ProcessDrill.Make( Proc, nPhase, nRawId, nPartId)
      EgtOutLog( sErr)
      return false, sErr
   end
+   -- eventuale inversione foro in base al lato di lavoro e al lato testa dell'utensile scelto
+   -- se non già richiesta inversione e foro quasi orizzontale (15deg) passante
+   if not bToInvert and Proc.Flg == 1 and bOpen and abs( vtExtr:getZ()) < 0.259 and abs( vtExtr:getY()) > 0.966 then
+      if BD.GetSetupInfo then
+         if EgtMdbSetCurrMachining( sDrilling or '') then
+            local sTuuid = EgtMdbGetCurrMachiningParam( MCH_MP.TUUID)
+            local sHead = ''
+            if EgtTdbSetCurrTool( EgtTdbGetToolFromUUID( sTuuid or '') or '') then
+               sHead = EgtTdbGetCurrToolParam( MCH_TP.HEAD)
+            end
+            local SetupInfo = BD.GetSetupInfo( sHead)
+            -- lato testa e lato di lavoro devono corrispondere
+            if ( ( SetupInfo.bIsFrontHead == true) and vtExtr:getY() > 10 * GEO.EPS_SMALL)
+               or ( ( SetupInfo.bIsBackHead == false) and vtExtr:getY() < - 10 * GEO.EPS_SMALL) then
+               ptCen = ptCen - vtExtr * dLen
+               vtExtr = - vtExtr
+               bToInvert = true
+            end
+         end
+      end
+   end
   -- Determino la faccia di inizio del foro e dati correlati 
   local nFac, CosB, vFaces = GetHoleStartData( ptCen, vtExtr, b3Solid)
   -- Calcolo acciorciamento affondamento utile per evitare collisione portautensile con faccia