In FbS, per TURN, se taglio con bilinea che forma un angolo ottuso, invece di fare retrazione (in alcuni casi non completa il taglio) si segue bilinea per il tratto che manca per completare taglio e poi si esce perpendicolarmente.

update log
- in lavorazione tipo BHSideMIll migliorati allungamenti in caso di feature obliqua
2025-02-25 08:54:16 +01:00 · 2025-02-24 15:28:22 +01:00 · 2025-02-24 14:18:15 +01:00 · 2025-02-20 09:43:11 +01:00
4 changed files with 41 additions and 13 deletions
@@ -407,7 +407,7 @@ function DiceCut.GetDice( nParent, BBoxRawPart, ptCPlanes, vtNPlanes, bGetOrtoPl
   local dNzLimDwnUp = BL.GetNzLimDownUp( BBoxRawPart)

   -- se non c'è testa da sotto e normali senza componenti in Y con faccia quasi verticale e trave non alta, uso per offset i limiti dei tagli di testa e coda
-   if not BD.DOWN_HEAD and abs( vtNPlanes:getY()) < 0.1 and vtNPlanes:getZ() < 0.7071 and ( not vtNBond or abs( vtNBond:getY()) < 0.1) and BBoxRawPart:getDimZ() < BD.MIN_DIM_HBEAM then
+   if not BD.TURN and not BD.DOWN_HEAD and abs( vtNPlanes:getY()) < 0.1 and vtNPlanes:getZ() < 0.7071 and ( not vtNBond or abs( vtNBond:getY()) < 0.1) and BBoxRawPart:getDimZ() < BD.MIN_DIM_HBEAM then
      OffsetO = dOrthoMaxDim or BD.MAX_DIM_HTCUT
   end

@@ -373,6 +373,7 @@ function FacesBySaw.MakeOne( nSurfId, nFacet, sCutting, dSawDiam, Par5, dVzLimDw
   local dLenLi = sqrt( dLiTang * dLiTang + dLiPerp * dLiPerp)
   local dLenLo = sqrt( dLoTang * dLoTang + dLoPerp * dLoPerp)
   local dLiCompLength = 0
+   local dLoCompLength = 0
   -- attacco tangente
   local dLi2Tang = 0
   local dLi2Perp = 0
@@ -394,6 +395,7 @@ function FacesBySaw.MakeOne( nSurfId, nFacet, sCutting, dSawDiam, Par5, dVzLimDw
   end
   local dLenLi2 = abs( dLi2Tang)
   local dLenLo2 = abs( dLo2Tang)
+   local dBiLineaAddLength = 0

   -- se il lato non lavorato della bilinea è aperto, setto entrata/uscita con la stessa direzione
   if bIsBiLinea then
@@ -422,8 +424,9 @@ function FacesBySaw.MakeOne( nSurfId, nFacet, sCutting, dSawDiam, Par5, dVzLimDw
         local dDistPointToCenter = sqrt( dDistPtTang * dDistPtTang + dDistToCenter * dDistToCenter)
         -- se distanza al punto è maggiore del raggio lama, significa che non ho già lavorato, quindi calcolo uscita opportunamente
         if dDistPointToCenter > 0.5 * dSawDiam then
+            dBiLineaAddLength = dDistPointToCenter - ( 0.5 * dSawDiam)
            dLoTang = -dAllEnd * dCosAlpha
-            dLoPerp = dDist2 * dSinAlpha 
+            dLoPerp = dDist2 * dSinAlpha
         end
      end
   end
@@ -455,11 +458,23 @@ function FacesBySaw.MakeOne( nSurfId, nFacet, sCutting, dSawDiam, Par5, dVzLimDw
            -- dLoPerp rimane invariato
         end
      elseif BD.TURN then
-         bLioTang = 2
-         local dMove = dist( ptP1, ptP2)
         dLiTang, dLiPerp = dLi2Tang, dLi2Perp
-         dLoTang = -( dLiTang - dAccStart - dAccEnd + dMove)
-         dLoPerp = BD.COLL_SIC
+         -- se angolo bilinea ottuso si segue bilinea per un tratto per tagliare completamente cubetto a forma di rombo
+         if dCosAngleL1L2 > 0.707 and bIsBiLinea then
+            -- calcolo uscita per prolungare solo della parte mancante per completare il taglio
+            if dBiLineaAddLength > 0 then
+               dLoTang = dLoTang * ( dBiLineaAddLength + BD.COLL_SIC) / 100
+               dLoPerp = dLoPerp * ( dBiLineaAddLength + BD.COLL_SIC) / 100
+            end
+            -- aggiungo componente perpendicolare a percorso per ritornare dal punto di ingresso, altrimenti l'uscita viene allungata fino dall'altra parte del grezzo
+            dLoCompLength = 100
+         -- se angolo bilinea oltre 45°, faccio movimento in retrazione
+         else
+            bLioTang = 2
+            local dMove = dist( ptP1, ptP2)
+            dLoTang = -( dLiTang - dAccStart - dAccEnd + dMove)
+            dLoPerp = BD.COLL_SIC
+         end
      else
         bLioTang = true
         dLiTang, dLiPerp, dLoTang, dLoPerp, dLiCompLength = dLi2Tang, dLi2Perp, dLo2Tang, dLo2Perp, dLi2CompLength
@@ -551,6 +566,7 @@ function FacesBySaw.MakeOne( nSurfId, nFacet, sCutting, dSawDiam, Par5, dVzLimDw
   if BD.TURN and bLioTang == 2 then EgtSetMachiningParam( MCH_MP.LEADOUTTYPE, MCH_MILL_LO.PERP_TG) end
   EgtSetMachiningParam( MCH_MP.LOTANG, dLoTang)
   EgtSetMachiningParam( MCH_MP.LOPERP, dLoPerp)
+   EgtSetMachiningParam( MCH_MP.LOCOMPLEN, dLoCompLength)
   -- imposto allungamenti iniziale e finale
   EgtSetMachiningParam( MCH_MP.STARTADDLEN, dAllStart - dAccStart)
   EgtSetMachiningParam( MCH_MP.ENDADDLEN, dAllEnd - dAccEnd)
@@ -414,7 +414,7 @@ local function VerifyPocket( Proc, dDiam, dDepth, dMaxTotLen, sMchFindMaster, bP
 end

 ---------------------------------------------------------------------
-local function VerifyBHSideMill( Proc, bIsU, bIsL, bSinglePart, bPrevBhSideMill)
+local function VerifyBHSideMill( Proc, bIsU, bIsL, bSinglePart, bPrevBhSideMill, b3Raw)

   -- se non feature BlockHausHalfLap e non abilitato parametro Q per lavorarlo di fianco e non macchina BH esco
   local nUseSideTool = EgtGetInfo( Proc.Id, Q_SIDE_ROUGH_TOOL, 'i') or 0
@@ -444,9 +444,13 @@ local function VerifyBHSideMill( Proc, bIsU, bIsL, bSinglePart, bPrevBhSideMill)

   -- le facce devono contenere X e quelle di chiusura devono essere perpendicolari a X
   local bStopY, bStopZ
+   if not Proc.TopologyLongName then
+      Topology.Classify( Proc, b3Raw)
+   end
   for i = 1, Proc.Fct do
      local vtN = EgtSurfTmFacetNormVersor( Proc.Id, i-1, GDB_ID.ROOT)
-      if abs( vtN:getX()) > 0.001 and abs( vtN:getX()) < 0.999962 then 
+      -- permessa U passante non parallela agli assi principali
+      if abs( vtN:getX()) > 0.001 and abs( vtN:getX()) < 0.999962 and Proc.TopologyLongName ~= "Groove-Through-RightAngles-NotParallel-3" then
         return false
      end
      if abs( vtN:getY()) > 0.866 then bStopY = true end
@@ -776,7 +780,7 @@ function ProcessLapJoint.IsTailFeature( Proc, b3Raw)
   -- in base al tipo di feature attribuisco il significato dei parametri Q
   AssignQIdent( Proc)
   -- se può essere fatto con utensile tipo lama
-   local bUseBHSideMill, bHead, bHeadDir = VerifyBHSideMill( Proc)
+   local bUseBHSideMill, bHead, bHeadDir = VerifyBHSideMill( Proc, nil, nil, nil, nil, b3Raw)
   if bUseBHSideMill then
      Proc.HeadDir = bHeadDir
   end
@@ -836,7 +840,7 @@ function ProcessLapJoint.Classify( Proc, b3Raw)
   -- se 2 facce
   elseif Proc.Fct == 2 then
      -- se può essere fatto con utensile tipo lama
-      local bUseBHSideMill = VerifyBHSideMill( Proc)
+      local bUseBHSideMill = VerifyBHSideMill( Proc, nil, nil, nil, nil, b3Raw)
      if bUseBHSideMill then
         return true, false
      end
@@ -916,7 +920,7 @@ function ProcessLapJoint.Classify( Proc, b3Raw)
         local rfFac, dH, dV = EgtSurfTmFacetMinAreaRectangle( Proc.Id, nFacInd, GDB_ID.ROOT)
         local vtN = EgtSurfTmFacetNormVersor( Proc.Id, nFacInd, GDB_ID.ROOT)
         -- se può essere fatto con utensile tipo lama
-         local bUseBHSideMill, _, _, _, _, dTDiam = VerifyBHSideMill( Proc)
+         local bUseBHSideMill, _, _, _, _, dTDiam = VerifyBHSideMill( Proc, nil, nil, nil, nil, b3Raw)
         if bUseBHSideMill then
            if vtN:getZ() > -0.5 or b3Raw:getDimZ() - Proc.Box:getDimZ() < ( BD.MAX_DIST_BH_FROM_BOTTOM or 395) - dTDiam / 2 then
               return true, false
@@ -5946,7 +5950,7 @@ local function MakeMoreFaces( Proc, nPhase, nRawId, nPartId, dOvmHead, bSinglePa
      local bIsRabbetAlongXTowardsBottom = ( Proc.TopologyLongName == 'Rabbet-Through-RightAngles-Parallel-2' and ( Proc.AffectedFaces.Front or Proc.AffectedFaces.Back) and Proc.AffectedFaces.Bottom and Proc.AffectedFaces.Left and Proc.AffectedFaces.Right)
      local bForceSideMill = ( Proc.AffectedFaces.Front or Proc.AffectedFaces.Back) and ( bIsRabbetAlongXTowardsBottom or ( ( EgtGetInfo( Proc.Id, Q_SIDE_ROUGH_TOOL, 'i') == 2 or ( EgtGetInfo( Proc.Id, Q_SIDE_ROUGH_TOOL, 'i') == 3 and vtN:getZ() < 0.985)) and ( ( Proc.Fct == 4 and ( Proc.AffectedFaces.Front or Proc.AffectedFaces.Back)) or Proc.Fct == 3 or Proc.Fct == 2)))
      -- se fattibile con fresa BH di fianco e spessore utensile inferiore alla larghezza faccia
-      local bMakeBySideMill, bHead, bHeadDir, sMilling, dMaxMat, dToolDiam = VerifyBHSideMill( Proc, bIsU, bIsL, bSinglePart, bPrevBhSideMill)
+      local bMakeBySideMill, bHead, bHeadDir, sMilling, dMaxMat, dToolDiam = VerifyBHSideMill( Proc, bIsU, bIsL, bSinglePart, bPrevBhSideMill, b3Raw)
      if bPrevBhSideMill == nil then
         bPrevBhSideMill = bMakeBySideMill
      end
@@ -6001,6 +6005,12 @@ local function MakeMoreFaces( Proc, nPhase, nRawId, nPartId, dOvmHead, bSinglePa
               EgtSetMachiningParam( MCH_MP.LITANG, 0)
               EgtSetMachiningParam( MCH_MP.LIPERP, dFacElev + BD.CUT_SIC)
               EgtSetMachiningParam( MCH_MP.LEADOUTTYPE, MCH_MILL_LO.AS_LI)
+               local vtN2 = EgtSurfTmFacetNormVersor( Proc.Id, EgtIf( nFacInd == 0, 1, 0), GDB_ID.ROOT)
+               if vtN2 then
+                  local AddLen = sqrt( dV^2 * ( ( 1 / abs( vtN2:getX())^2) - 1)) + BD.CUT_SIC
+                  EgtSetMachiningParam( MCH_MP.STARTADDLEN, AddLen)
+                  EgtSetMachiningParam( MCH_MP.ENDADDLEN, AddLen)
+               end
            else
               EgtSetMachiningParam( MCH_MP.STARTADDLEN, 0)
               EgtSetMachiningParam( MCH_MP.LITANG, dToolDiam / 2 + BD.CUT_SIC)
@@ -7483,7 +7493,7 @@ function ProcessLapJoint.Make( Proc, nPhase, nRawId, nPartId, dOvmHead)
            -- determino l'angolo tra le facce
            local bAdj, _, _, dAng = EgtSurfTmFacetsContact( Proc.Id, 0, 1, GDB_ID.ROOT)
            -- se con BH
-            if VerifyBHSideMill( Proc) then
+            if VerifyBHSideMill( Proc, nil, nil, nil, nil, b3Raw) then
               return MakeMoreFaces( Proc, nPhase, nRawId, nPartId, dOvmHead, true)
            -- se ortogonali e non forzata lama, con fresa
            elseif not bUseBlade then
@@ -2,6 +2,8 @@

 Versione 2.7xx ()
 - Modif : in forature passanti orizzontali fatte da un solo lato, si inverte il lato di lavoro in base all'utensile scelto
+- Modif : in LapJoint in lavorazione tipo BH permessa U passante non parallela agli assi principali
+- Fixed : in macchine tipo Turn piccoli miglioramenti ai tagli di lama

 Versione 2.7b2 (05/02/2025)
 - Modif : si consentono DrillPocket in doppio solo se foro non passante
Author	SHA1	Message	Date
andrea.villa	40912bb7b7	In FbS, per TURN, se taglio con bilinea che forma un angolo ottuso, invece di fare retrazione (in alcuni casi non completa il taglio) si segue bilinea per il tratto che manca per completare taglio e poi si esce perpendicolarmente.	2025-02-25 08:54:16 +01:00
luca.mazzoleni	7d6903d181	update log	2025-02-24 15:28:22 +01:00
luca.mazzoleni	43cf75d400	- in lavorazione tipo BHSideMIll migliorati allungamenti in caso di feature obliqua	2025-02-24 14:18:15 +01:00
luca.mazzoleni	2fa3ea24a5	- in DiceCut piccola correzione per Turn - in LapJoint in lavorazione tipo BH permessa U passante non parallela agli assi principali	2025-02-20 09:43:11 +01:00