BugFix/DoubleCutCollision:

update commenti

LuaLibs/ProcessDoubleCut.lua

@@ -1,5 +1,6 @@
 -- ProcessDoubleCut.lua by Egaltech s.r.l. 2022/07/11
 -- Gestione calcolo doppi tagli di lama per Travi
+-- 2022/08/29 Implementata la fresatura dal lato per tagli problematici per PF
 
 -- Tabella per definizione modulo
 local ProcessDoubleCut = {}
@@ -188,6 +189,366 @@ local function MakeChamfer( Proc, nPhase, nRawId, nPartId, dOvmHead)
    return true
 end
 
+---------------------------------------------------------------------
+local function VerifyPocket( Proc, dDiam, dDepth, dMaxTotLen, sMchFindMaster, bPocketDown)
+   -- tipo di svuotatura
+   local sMchFind = EgtIf( sMchFindMaster and #sMchFindMaster > 0, sMchFindMaster, 'Pocket')
+   -- ricerca della svuotatura
+   local sPocketing
+   if dDepth then
+      sPocketing = ML.FindPocketing( sMchFind, dDiam, dDepth, dMaxTotLen, not bPocketDown, bPocketDown) or
+                   ML.FindPocketing( sMchFind, dDiam, 0.8 * dDepth, dMaxTotLen, not bPocketDown, bPocketDown) or
+                   ML.FindPocketing( sMchFind, dDiam, 0.6 * dDepth, dMaxTotLen, not bPocketDown, bPocketDown) or
+                   ML.FindPocketing( sMchFind, dDiam, 0.4 * dDepth, dMaxTotLen, not bPocketDown, bPocketDown) or
+                   ML.FindPocketing( sMchFind, dDiam, 0, dMaxTotLen)
+   else
+      sPocketing = ML.FindPocketing( sMchFind, dDiam, 0, dMaxTotLen)
+   end
+   if not sPocketing then
+      return false
+   end
+   -- recupero i dati dell'utensile
+   local bUsePocketing = false
+   local dMaxDepth = 0
+   local dToolDiam = 0
+   if EgtMdbSetCurrMachining( sPocketing) then
+      local sTuuid = EgtMdbGetCurrMachiningParam( MCH_MP.TUUID)
+      if EgtTdbSetCurrTool( EgtTdbGetToolFromUUID( sTuuid) or '') then
+         dToolDiam = EgtTdbGetCurrToolParam( MCH_TP.DIAM) or dToolDiam
+         dMaxDepth = EgtTdbGetCurrToolMaxDepth() or dMaxDepth
+      end
+      bUsePocketing = true
+   end
+   return bUsePocketing, sPocketing, dMaxDepth, dToolDiam
+end
+
+---------------------------------------------------------------------
+local function GetTunnelDimension( Proc, nPartId)
+   -- sono necessarie almeno due facce
+   if Proc.Fct < 2 then return 0, 0, 0 end
+   -- recupero l'ingombro della trave
+   local b3Solid = EgtGetBBoxGlob( EgtGetFirstNameInGroup( nPartId, 'Box') or GDB_ID.NULL, GDB_BB.STANDARD)
+   -- recupero centro e normale delle facce
+   local ptC = {}
+   local vtN = {}
+   for i = 1, Proc.Fct do
+      ptC[i], vtN[i] = EgtSurfTmFacetCenter( Proc.Id, i - 1, GDB_ID.ROOT)
+   end
+   -- calcolo l'orientamento del tunnel
+   local vtOrtho
+   local bAdj = EgtSurfTmFacetsContact( Proc.Id, 0, 1)
+   if bAdj then
+      vtOrtho = vtN[1] ^ vtN[2]
+   else
+      if Proc.Fct >= 3 then
+         vtOrtho = vtN[1] ^ vtN[3]
+      else
+         return 0, 0, 0
+      end
+   end
+   -- ottengo il boundingBox e prendo le dimensioni lungo la direzione (Z locale) che rappresenta la profondità della fessura
+   local frFc = Frame3d( ptC[1], vtOrtho) ;
+   local b3BoxLoc = EgtGetBBoxRef( Proc.Id, GDB_BB.STANDARD, frFc)
+   local dDepth = b3BoxLoc:getDimZ()
+   -- recupero gruppo per geometria addizionale
+   local nAddGrpId = BL.GetAddGroup( nPartId)
+   if not nAddGrpId then
+      EgtOutLog( 'Error : missing AddGroup')
+      return 0, 0, 0
+   end
+   -- centro del bounding box locale
+   local ptCen = b3BoxLoc:getCenter()
+   ptCen:toGlob( frFc)
+   -- creo superficie intermedia
+   local nSurfInt = EgtSurfTmPlaneInBBox( nAddGrpId, ptCen, vtOrtho, b3Solid, GDB_ID.ROOT)
+   if not nSurfInt then return 0, 0, 0 end
+   -- ritaglio la superficie con le facce della fessura
+   for i = 1, Proc.Fct do
+      EgtCutSurfTmPlane( nSurfInt, ptC[i], -vtN[i], false, GDB_ID.ROOT)
+   end
+   local frSurfInt, dDimMax, dDimMin = EgtSurfTmFacetMinAreaRectangle( nSurfInt, 0, GDB_ID.ROOT)
+   -- cerco la faccia con larghezza pari a dimensione massima della fessura
+   local nLongIdFace = 0
+   for i = 1, Proc.Fct do
+      if abs( vtN[i] * frSurfInt:getVersX()) < 0.5 then
+         nLongIdFace = i - 1
+         break
+      end
+   end
+   return dDimMin, dDimMax, dDepth, vtOrtho, nLongIdFace, nSurfInt
+end
+
+---------------------------------------------------------------------
+local function SetOpenSide( nPathInt, vtOrtho, b3Solid, nAddGrpId)
+   -- fondo tra loro le curve compatibili
+   EgtMergeCurvesInCurveCompo( nPathInt)
+   local nStartIdEnt, nNumEnt = EgtCurveDomain( nPathInt) 
+   local pLastPIni, pLastPEnd
+   -- faccio una copia della curva e la esplodo
+   if nStartIdEnt then
+      -- ciclo i lati della curva e controllo per ognuno se giace in uno dei piani limite del pezzo: se sì allora il lato è aperto 
+      for i = 1, nNumEnt do
+         local pPini = EgtUP( nPathInt, (i-1), GDB_RT.GLOB) 
+         local pPend = EgtUP( nPathInt, EgtIf( i == nNumEnt, 0, i), GDB_RT.GLOB)
+         if ( abs( pPini:getX() - b3Solid:getMax():getX()) < 10 * GEO.EPS_SMALL and abs( pPend:getX() - b3Solid:getMax():getX()) < 10 * GEO.EPS_SMALL) or
+            ( abs( pPini:getX() - b3Solid:getMin():getX()) < 10 * GEO.EPS_SMALL and abs( pPend:getX() - b3Solid:getMin():getX()) < 10 * GEO.EPS_SMALL) or
+            ( abs( pPini:getY() - b3Solid:getMax():getY()) < 10 * GEO.EPS_SMALL and abs( pPend:getY() - b3Solid:getMax():getY()) < 10 * GEO.EPS_SMALL) or
+            ( abs( pPini:getY() - b3Solid:getMin():getY()) < 10 * GEO.EPS_SMALL and abs( pPend:getY() - b3Solid:getMin():getY()) < 10 * GEO.EPS_SMALL) or
+            ( abs( pPini:getZ() - b3Solid:getMax():getZ()) < 10 * GEO.EPS_SMALL and abs( pPend:getZ() - b3Solid:getMax():getZ()) < 10 * GEO.EPS_SMALL) or
+            ( abs( pPini:getZ() - b3Solid:getMin():getZ()) < 10 * GEO.EPS_SMALL and abs( pPend:getZ() - b3Solid:getMin():getZ()) < 10 * GEO.EPS_SMALL) then
+            -- scrivo nelle proprietà della curva quali sono i lati aperti
+            local sActInfo = EgtGetInfo( nPathInt, 'OPEN', 's') or ''
+            if #sActInfo > 0 then
+               -- se ci sono già altri lati aperti
+               EgtSetInfo( nPathInt, 'OPEN', sActInfo .. ',' .. (i-1))
+            else
+               -- se è l'unico
+               EgtSetInfo( nPathInt, 'OPEN', (i-1))
+            end
+         end
+      end
+   end
+   return false
+end
+
+---------------------------------------------------------------------
+local function CalcCollisionSafety( vtDir)
+   local dCollSic = 10 * BD.COLL_SIC
+   if abs( vtDir:getX()) > 0.999 or abs( vtDir:getY()) > 0.999 or abs( vtDir:getZ()) > 0.999 then
+      dCollSic = 0
+   elseif abs( vtDir:getX()) > 0.996 or abs( vtDir:getY()) > 0.996 or abs( vtDir:getZ()) > 0.996 then
+      dCollSic = 1 * BD.COLL_SIC
+   elseif abs( vtDir:getX()) > 0.89 or abs( vtDir:getY()) > 0.89 or abs( vtDir:getZ()) > 0.89 then
+      dCollSic = 2.5 * BD.COLL_SIC
+   elseif abs( vtDir:getX()) > 0.86 or abs( vtDir:getY()) > 0.86 or abs( vtDir:getZ()) > 0.86 then
+      dCollSic = 4 * BD.COLL_SIC
+   elseif abs( vtDir:getX()) > 0.707 or abs( vtDir:getY()) > 0.707 or abs( vtDir:getZ()) > 0.707 then
+      dCollSic = 5.5 * BD.COLL_SIC
+   end
+   return dCollSic
+end
+
+---------------------------------------------------------------------
+local function MakeBySidePocket( Proc, nPhase, nRawId, nPartId, nAddGrpId, b3Solid)
+   local nFirstMachId
+   local sWarn
+   local sMchFind = 'OpenPocket'
+   local dDimMin, dDimMax, dDepth, vtOrtho, nLundIdFace, nSurfInt
+   local bBadMach = false
+   -- ottengo le dimensioni del tunnel 
+   dDimMin, dDimMax, dDepth, vtOrtho, nLundIdFace, nSurfInt = GetTunnelDimension( Proc, nPartId)
+   -- posso utilizzare utensile con diametro doppio della dimensione minima
+   dDimMin = min( 2 * dDimMin, BD.MAXDIAM_POCK_CORNER)
+   local nPathInt
+   -- verifico se è presente la testa da sotto e se è necessario usarla
+   bMillDown = ( BD.DOWN_HEAD == true and abs( vtOrtho:getZ()) >= 0.707)
+   -- cerco l'utensile di svuotatura per la testa sopra
+   local bMakePocket, sPocketing, dMaxDepth, dDiamTool = VerifyPocket( Proc, dDimMin, dDepth / 2, nil, sMchFind)
+   local bMakePocketDn, sPocketingDn, dMaxDepthDn, dDiamToolDn
+   -- cerco anche l'utensile per la testa sotto, nel caso servisse
+   if bMillDown then
+      bMakePocketDn, sPocketingDn, dMaxDepthDn, dDiamToolDn = VerifyPocket( Proc, dDimMin, dDepth / 2, nil, sMchFind, true)
+      -- se è negativo inverto il versore e la faccia
+      if vtOrtho:getZ() < 0 then 
+         vtOrtho = -vtOrtho
+         EgtInvertSurf( nSurfInt)
+      end
+   end
+   if bMakePocket then
+      -- gestione svuotatura da un solo lato o anche dal lato opposto (se non verticale)
+      -- estraggo il contorno dalla superfice per evitare i problemi con la svuotatura
+      -- e assegno l'estrusione
+      nPathInt = EgtExtractSurfTmLoops( nSurfInt, nAddGrpId)
+      EgtModifyCurveExtrusion( nPathInt, vtOrtho, GDB_RT.GLOB)
+      SetOpenSide( nPathInt, vtOrtho, b3Solid, nAddGrpId)
+      -- variabili per parametri lavorazione
+      local dMachDepth
+      local dElev = 0
+      local bDoubleSide
+      local bOneShot
+      local bComplete = true
+      -- imposto altezza aggiuntiva di elevazione
+      local dCollSic = CalcCollisionSafety( vtOrtho)
+      -- se possibile svuotare completamente da una sola parte
+      if dMaxDepth > ( dDepth + BD.CUT_EXTRA + dCollSic) then
+         dMachDepth = ( dDepth / 2) + BD.CUT_EXTRA
+         dElev = dDepth + BD.CUT_EXTRA
+         bOneShot = true
+      else
+         -- se direzione verso la verticale setto max affondamento possibile ed
+         -- emetto messaggio di warning perché non lavorabile interamente
+         if abs( vtOrtho:getZ()) >= 0.707 and not BD.DOWN_HEAD then
+            dMachDepth = dMaxDepth - ( dDepth / 2) - dCollSic
+            dElev = dMaxDepth
+            sWarn = 'Warning : elevation bigger than max tool depth'
+            EgtOutLog( sWarn)
+            bComplete = false
+         -- altrimenti setto il flag per fare la svuotatura da due parti 
+         else
+            -- se l'altezza utensile riesce a lavorare completamente da due parti
+            if dMaxDepth > ( dDepth / 2) + dCollSic + BD.CUT_EXTRA_MIN then
+               dMachDepth = BD.CUT_EXTRA_MIN
+               dElev = ( dDepth / 2) + BD.CUT_EXTRA_MIN
+            -- altrimenti non si riesce in due passate, limito la profondità e setto l'elevazione 
+            else
+               dMachDepth = dMaxDepth - ( dDepth / 2) - dCollSic
+               dElev = dMaxDepth
+               -- se molto inclinato rispetto alla normale della faccia di riferimento, lavorazione non idonea per probabili collisioni
+               local vtRef = Y_AX()
+               if abs( vtOrtho:getX()) > abs( vtOrtho:getY()) and abs( vtOrtho:getX()) > abs( vtOrtho:getZ()) then
+                  vtRef = X_AX()
+               elseif abs( vtOrtho:getZ()) > abs( vtOrtho:getX()) and abs( vtOrtho:getZ()) > abs( vtOrtho:getY()) then
+                  vtRef = Z_AX()
+               end
+               if abs( vtOrtho * vtRef) < 0.5 then
+                  bBadMach = true
+               end
+            end
+            bDoubleSide = true
+         end
+      end
+      -- inserisco la lavorazione di svuotatura
+      local sName = 'Pock_' .. ( EgtGetName( Proc.Id) or tostring( Proc.Id))
+      local nMchFId = EgtAddMachining( sName, sPocketing)
+      if not nMchFId then
+         local sErr = 'Error adding machining ' .. sName .. '-' .. sPocketing
+         EgtOutLog( sErr)
+         return -1, sErr
+      end
+      -- prendo l'id della prima lavorazione inserita
+      if not nFirstMachId then
+         nFirstMachId = nMchFId
+      end
+      -- aggiungo geometria
+      EgtSetMachiningGeometry( {{ nPathInt, -1}})
+      -- verifico se devo invertire direzione utensile (in caso di direzione verso la verticale)
+      local bInvertMach
+      if vtOrtho:getZ() < BD.NZ_MINA and abs(vtOrtho:getZ()) >= 0.707 and not BD.DOWN_HEAD then
+         EgtSetMachiningParam( MCH_MP.TOOLINVERT, true)
+         bInvertMach = true
+      -- altrimenti se da fare in una sola volta e direzionato verso Y+ lo inverto per lavorarlo davanti
+      elseif not bDoubleSide and vtOrtho:getY() > GEO.EPS_SMALL and not ( -(vtOrtho:getZ()) < BD.NZ_MINA) then
+         EgtSetMachiningParam( MCH_MP.TOOLINVERT, true)
+         bInvertMach = true
+      end
+      -- imposto posizione braccio porta testa
+      local nSCC = MCH_SCC.NONE
+      if not BD.C_SIMM then
+         if AreSameOrOppositeVectorApprox( vtOrtho, Z_AX()) then
+            nSCC = MCH_SCC.ADIR_YM
+         elseif abs( vtOrtho:getX()) < 0.1 then
+            nSCC = EgtIf( BL.IsPartFinalPhase( nPhase), MCH_SCC.ADIR_XM, MCH_SCC.ADIR_XP)
+         elseif vtOrtho:getY() < GEO.EPS_SMALL then
+            nSCC = EgtIf( bInvertMach, MCH_SCC.ADIR_YP, MCH_SCC.ADIR_YM)
+         else
+            nSCC = EgtIf( bInvertMach, MCH_SCC.ADIR_YM, MCH_SCC.ADIR_YP)
+         end
+      end
+      EgtSetMachiningParam( MCH_MP.SCC, nSCC)
+      EgtSetMachiningParam( MCH_MP.SUBTYPE, MCH_POCK_SUB.SPIRALIN)
+      -- inverto il percorso di lavorazione per lavorare sinistro
+      EgtSetMachiningParam( MCH_MP.INVERT, true)
+      -- imposto affondamento
+      EgtSetMachiningParam( MCH_MP.DEPTH, dMachDepth)
+      -- imposto elevazione e dichiaro non si generano sfridi per VMill
+      local sNotes = 'MaxElev=' .. EgtNumToString( dElev, 1) .. ';'
+      sNotes = sNotes .. 'VMRS=0;'
+      EgtSetMachiningParam( MCH_MP.USERNOTES, sNotes)
+      -- eseguo
+      if not ML.ApplyMachining( true, false) then
+         -- provo ad allargare leggermente la tasca
+         EgtSetMachiningParam( MCH_MP.OFFSR, -0.1)
+         if not ML.ApplyMachining( true, false) then
+            local _, sErr = EgtGetLastMachMgrError()
+            EgtSetOperationMode( nMchFId, false)
+            return -1, sErr
+         end
+      end
+      -- se posso applicare la svuotatura sul lato opposto
+      if bDoubleSide then
+         -- se ho la lavorazione da sotto ricalcolo in base a questa lavorazione
+         if bMakePocketDn then
+            -- sPocketing = sPocketingDn
+            -- dMaxDepth = dMaxDepthDn
+            -- dDiamTool = dDiamToolDn
+            -- se l'altezza utensile riesce a lavorare completamente da due parti
+            if dMaxDepthDn > ( dDepth / 2) + dCollSic + BD.CUT_EXTRA_MIN then
+               dMachDepth = BD.CUT_EXTRA_MIN
+               dElev = ( dDepth / 2) + BD.CUT_EXTRA_MIN
+            -- altrimenti non si riesce in due passate, limito la profondità e setto l'elevazione 
+            else
+               dMachDepth = dMaxDepthDn - ( dDepth / 2) - dCollSic
+               dElev = dMaxDepthDn
+               bComplete = false
+               sWarn = 'Warning : elevation bigger than max tool depth'
+               EgtOutLog( sWarn)
+            end
+         else
+            -- se anche lavorando dal lato opposto non riesco a svuotare completamente la fessura 
+            -- setto i parametri affondamento ed emetto warning
+            if dMaxDepth < ( dDepth / 2) + BD.CUT_EXTRA + dCollSic then
+               dMachDepth = dMaxDepth - (dDepth / 2) - dCollSic
+               dElev = dMaxDepth
+               bComplete = false
+               sWarn = 'Warning : elevation bigger than max tool depth'
+               EgtOutLog( sWarn)
+            end
+         end
+         -- inserisco la lavorazione di svuotatura
+         local sName = 'PockOppo_' .. ( EgtGetName( Proc.Id) or tostring( Proc.Id))
+         local nMchFId = EgtAddMachining( sName, EgtIf( bMakePocketDn, sPocketingDn, sPocketing))
+         if not nMchFId then
+            local sErr = 'Error adding machining ' .. sName .. '-' .. EgtIf( bMakePocketDn, sPocketingDn, sPocketing)
+            EgtOutLog( sErr)
+            return -1, sErr
+         end
+         -- prendo l'id della prima lavorazione inserita
+         if not nFirstMachId then
+            nFirstMachId = nMchFId
+         end
+         -- aggiungo geometria
+         EgtSetMachiningGeometry( {{ nPathInt, -1}})
+         -- imposto direzione utensile opposta
+         EgtSetMachiningParam( MCH_MP.TOOLINVERT, true)
+         -- imposto posizione braccio porta testa
+         local nSCC = MCH_SCC.NONE
+         if not BD.C_SIMM then
+            if AreSameVectorApprox( vtOrtho, Z_AX()) then
+               nSCC = MCH_SCC.ADIR_YM
+            elseif abs( vtOrtho:getX()) < 0.1 then
+               nSCC = EgtIf( BL.IsPartFinalPhase( nPhase), MCH_SCC.ADIR_XM, MCH_SCC.ADIR_XP)
+            elseif vtOrtho:getY() < GEO.EPS_SMALL then
+               nSCC = MCH_SCC.ADIR_YP
+            else
+               nSCC = MCH_SCC.ADIR_YM
+            end
+         end
+         EgtSetMachiningParam( MCH_MP.SCC, nSCC)
+         EgtSetMachiningParam( MCH_MP.SUBTYPE, MCH_POCK_SUB.SPIRALIN)
+         -- inverto il percorso di lavorazione per lavorare sinistro
+         EgtSetMachiningParam( MCH_MP.INVERT, true)
+         -- imposo affondamento
+         EgtSetMachiningParam( MCH_MP.DEPTH, dMachDepth)
+         -- imposto elevazione e dichiaro non si generano sfridi per VMill
+         local sNotes = 'MaxElev=' .. EgtNumToString( dElev, 1) .. ';'
+         sNotes = sNotes .. 'VMRS=0;'
+         EgtSetMachiningParam( MCH_MP.USERNOTES, sNotes)
+         -- eseguo
+         if not ML.ApplyMachining( true, false) then
+            -- provo ad allargare leggermente la tasca
+            EgtSetMachiningParam( MCH_MP.OFFSR, -0.1)
+            if not ML.ApplyMachining( true, false) then
+               local _, sErr = EgtGetLastMachMgrError()
+               EgtSetOperationMode( nMchFId, false)
+               return -1, sErr
+            end
+         end
+      end
+      return 1, sWarn, dDimMin, dDimMax, dDepth, vtOrtho, nLundIdFace, dDiamTool, bDoubleSide, nPathInt, nSurfInt, bOneShot, bMillDown, nFirstMachId
+   end
+   return 0, sWarn, dDimMin, dDimMax, dDepth, vtOrtho, nLundIdFace, dDiamTool, bDoubleSide, nPathInt, nSurfInt, bOneShot, bMillDown, nFirstMachId, bOrthoFaces
+end
+
 ---------------------------------------------------------------------
 -- Applicazione della lavorazione
 function ProcessDoubleCut.Make( Proc, nPhase, nRawId, nPartId, dOvmHead)
@@ -273,6 +634,31 @@ function ProcessDoubleCut.Make( Proc, nPhase, nRawId, nPartId, dOvmHead)
       -- eseguo
       local sCutType = EgtIf( bHead, 'HeadSide', 'TailSide')
       local bDownHead = ( BD.DOWN_HEAD and vtNm:getZ() < BD.NZ_MINB)
+      -- per tutte le macchine tranne la Fast, controllo se ci sono tagli troppo inclinati e troppo profondi per la lama
+      -- in tal caso richiamo la lavorazione con fresa dal lato
+      if BD.C_SIMM and not bDownHead then
+         local sCutting = ML.FindCutting( sCutType, nil, bDownHead)
+            if not sCutting then
+            local sErr = 'Error : cutting not found in library'
+            EgtOutLog( sErr)
+            return false, sErr
+         end
+         local dMaxDepth = 0
+         if EgtMdbSetCurrMachining( sCutting) then
+            local sTuuid = EgtMdbGetCurrMachiningParam( MCH_MP.TUUID)
+            if EgtTdbSetCurrTool( EgtTdbGetToolFromUUID( sTuuid) or '') then
+               dMaxDepth = EgtTdbGetCurrToolMaxDepth() or dMaxDepth
+            end
+         end
+         local _, _, dDimV1 = BL.GetFaceHvRefDim( Proc.Id, 0, b3Raw)
+         local _, _, dDimV2 = BL.GetFaceHvRefDim( Proc.Id, 1, b3Raw)
+         local bFace1TooLongForBlade, bFace2TooLongForBlade = ( dDimV1 >= dMaxDepth), ( dDimV2 >= dMaxDepth)
+         local dFace1Ang, dFace2Ang = vtN[1]:getZ(), vtN[2]:getZ()
+         if bFace1TooLongForBlade and dFace1Ang < -0.485 or bFace2TooLongForBlade and dFace2Ang < -0.485 then
+            local bOk, sErr = MakeBySidePocket(  Proc, nPhase, nRawId, nPartId, nAddGrpId, b3Solid)
+            return bOk, sErr
+         end
+      end
       local bOk, sErr = Fbs.MakeTwo( Proc, nPhase, nRawId, nPartId, dOvmHead, sCutType, false, bDownHead)
       if not bOk then return bOk, sErr end
       -- segnalazione ingombro di testa o coda

LuaLibs/ProcessLapJoint.lua

@@ -49,7 +49,6 @@
 -- 2022/06/29 Migliorate lavorazioni con fresatura di lato per L30 se parametro Q03=2. Ora con 4 facce / 3 facce a L può entrare una fresa grande fino al doppio dell'altezza della tasca / doppio della dimensione minima.
 -- 2022/07/05 Modifiche per sega a catena di testa e relativa MaxElev.
 -- 2022/07/12 In MakeByChainOrSaw aggiunto check per feature L20 usata in modo improprio e, nel caso, si passa a una lavorazione tasca.
--- 2022/07/19 Profondamente semplificata la funzione SetOpenSide. Modificata la MakeMoreFaces per cercare sempre OpenPocket in determinate condizioni.
 -- 2022/08/11 Aggiunta lavorazione tunnel splittata con sega a catena per tutte le macchine ad esclusione della Fast.
 
 -- Tabella per definizione modulo
@@ -1326,157 +1325,142 @@ end
 
 ---------------------------------------------------------------------
 local function SetOpenSide( nPathInt, vtOrtho, b3Solid, nAddGrpId, nStartPoint)
+
    -- fondo tra loro le curve compatibili
    EgtMergeCurvesInCurveCompo( nPathInt)
    local nStartIdEnt, nNumEnt = EgtCurveDomain( nPathInt) 
    local pLastPIni, pLastPEnd
+
    -- faccio una copia della curva e la esplodo
    if nStartIdEnt then
-      -- ciclo i lati della curva e controllo per ognuno se giace in uno dei piani limite del pezzo: se sì allora il lato è aperto 
+      -- prendo i punti 
       for i = 1, nNumEnt do
          local pPini = EgtUP( nPathInt, (i-1), GDB_RT.GLOB) 
          local pPend = EgtUP( nPathInt, EgtIf( i == nNumEnt, 0, i), GDB_RT.GLOB)
-         if ( abs( pPini:getX() - b3Solid:getMax():getX()) < 10 * GEO.EPS_SMALL and abs( pPend:getX() - b3Solid:getMax():getX()) < 10 * GEO.EPS_SMALL) or
-            ( abs( pPini:getX() - b3Solid:getMin():getX()) < 10 * GEO.EPS_SMALL and abs( pPend:getX() - b3Solid:getMin():getX()) < 10 * GEO.EPS_SMALL) or
-            ( abs( pPini:getY() - b3Solid:getMax():getY()) < 10 * GEO.EPS_SMALL and abs( pPend:getY() - b3Solid:getMax():getY()) < 10 * GEO.EPS_SMALL) or
-            ( abs( pPini:getY() - b3Solid:getMin():getY()) < 10 * GEO.EPS_SMALL and abs( pPend:getY() - b3Solid:getMin():getY()) < 10 * GEO.EPS_SMALL) or
-            ( abs( pPini:getZ() - b3Solid:getMax():getZ()) < 10 * GEO.EPS_SMALL and abs( pPend:getZ() - b3Solid:getMax():getZ()) < 10 * GEO.EPS_SMALL) or
-            ( abs( pPini:getZ() - b3Solid:getMin():getZ()) < 10 * GEO.EPS_SMALL and abs( pPend:getZ() - b3Solid:getMin():getZ()) < 10 * GEO.EPS_SMALL) then
-            -- scrivo nelle proprietà della curva quali sono i lati aperti
-            local sActInfo = EgtGetInfo( nPathInt, 'OPEN', 's') or ''
-            if #sActInfo > 0 then
-               -- se ci sono già altri lati aperti
-               EgtSetInfo( nPathInt, 'OPEN', sActInfo .. ',' .. (i-1))
-            else
-               -- se è l'unico
-               EgtSetInfo( nPathInt, 'OPEN', (i-1))
+         -- Se normale lungo la Z considero il box in X e Y
+         if abs(vtOrtho:getZ()) > 0.999 then
+            -- se corrisponde a X
+            if ( abs( pPini:getX() - b3Solid:getMax():getX()) < 10 * GEO.EPS_SMALL and abs( pPend:getX() - b3Solid:getMax():getX()) < 10 * GEO.EPS_SMALL) or
+               ( abs( pPini:getX() - b3Solid:getMin():getX()) < 10 * GEO.EPS_SMALL and abs( pPend:getX() - b3Solid:getMin():getX()) < 10 * GEO.EPS_SMALL) then
+               -- setto l'entità open
+               local sActInfo = EgtGetInfo( nPathInt, 'OPEN', 's') or ''
+               if #sActInfo > 0 then
+                  EgtSetInfo( nPathInt, 'OPEN', sActInfo .. ',' .. (i-1))
+               else
+                  EgtSetInfo( nPathInt, 'OPEN', (i-1))
+               end
+               -- prendo i punti per eventuale modifica del punto di inizio percorso
+               pLastPIni = pPini
+               pLastPEnd = pPend
+            -- altrimenti se corrisponde a Y
+            elseif ( abs( pPini:getY() - b3Solid:getMax():getY()) < 10 * GEO.EPS_SMALL and abs( pPend:getY() - b3Solid:getMax():getY()) < 10 * GEO.EPS_SMALL) or
+                   ( abs( pPini:getY() - b3Solid:getMin():getY()) < 10 * GEO.EPS_SMALL and abs( pPend:getY() - b3Solid:getMin():getY()) < 10 * GEO.EPS_SMALL) then
+               -- setto l'entità open
+               local sActInfo = EgtGetInfo( nPathInt, 'OPEN', 's') or ''
+               if #sActInfo > 0 then
+                  EgtSetInfo( nPathInt, 'OPEN', sActInfo .. ',' .. (i-1))
+               else
+                  EgtSetInfo( nPathInt, 'OPEN', (i-1))
+               end
+               -- prendo i punti per eventuale modifica del punto di inizio percorso
+               pLastPIni = pPini
+               pLastPEnd = pPend
+            end
+         -- altrimenti se normale lungo la Y considero il box in X e Z
+         elseif abs(vtOrtho:getZ()) < 0.001 and abs(vtOrtho:getY()) > 0.999 then 
+            -- se corrisponde a X
+            if ( abs( pPini:getX() - b3Solid:getMax():getX()) < 10 * GEO.EPS_SMALL and abs( pPend:getX() - b3Solid:getMax():getX()) < 10 * GEO.EPS_SMALL) or
+               ( abs( pPini:getX() - b3Solid:getMin():getX()) < 10 * GEO.EPS_SMALL and abs( pPend:getX() - b3Solid:getMin():getX()) < 10 * GEO.EPS_SMALL) then
+               -- setto l'entità open
+               local sActInfo = EgtGetInfo( nPathInt, 'OPEN', 's') or ''
+               if #sActInfo > 0 then
+                  EgtSetInfo( nPathInt, 'OPEN', sActInfo .. ',' .. (i-1))
+               else
+                  EgtSetInfo( nPathInt, 'OPEN', (i-1))
+               end
+               -- prendo i punti per eventuale modifica del punto di inizio percorso
+               pLastPIni = pPini
+               pLastPEnd = pPend
+            -- altrimenti se corrisponde a Z
+            elseif ( abs( pPini:getZ() - b3Solid:getMax():getZ()) < 10 * GEO.EPS_SMALL and abs( pPend:getZ() - b3Solid:getMax():getZ()) < 10 * GEO.EPS_SMALL) or
+                   ( abs( pPini:getZ() - b3Solid:getMin():getZ()) < 10 * GEO.EPS_SMALL and abs( pPend:getZ() - b3Solid:getMin():getZ()) < 10 * GEO.EPS_SMALL) then
+               -- setto l'entità open
+               local sActInfo = EgtGetInfo( nPathInt, 'OPEN', 's') or ''
+               if #sActInfo > 0 then
+                  EgtSetInfo( nPathInt, 'OPEN', sActInfo .. ',' .. (i-1))
+               else
+                  EgtSetInfo( nPathInt, 'OPEN', (i-1))
+               end
+               -- prendo i punti per eventuale modifica del punto di inizio percorso
+               pLastPIni = pPini
+               pLastPEnd = pPend
+            end
+         -- caso che non dovrebbe mai capitare ma gestito per completezza
+         -- altrimenti se normale lungo la X considero il box in Y e Z 
+         elseif abs(vtOrtho:getZ()) < 0.001 and abs(vtOrtho:getX()) > 0.999 then 
+            -- se corrisponde a Y
+            if ( abs( pPini:getY() - b3Solid:getMax():getY()) < 10 * GEO.EPS_SMALL and abs( pPend:getY() - b3Solid:getMax():getY()) < 10 * GEO.EPS_SMALL) or
+               ( abs( pPini:getY() - b3Solid:getMin():getY()) < 10 * GEO.EPS_SMALL and abs( pPend:getY() - b3Solid:getMin():getY()) < 10 * GEO.EPS_SMALL) then
+               -- setto l'entità open
+               local sActInfo = EgtGetInfo( nPathInt, 'OPEN', 's') or ''
+               if #sActInfo > 0 then
+                  EgtSetInfo( nPathInt, 'OPEN', sActInfo .. ',' .. (i-1))
+               else
+                  EgtSetInfo( nPathInt, 'OPEN', (i-1))
+               end
+               -- prendo i punti per eventuale modifica del punto di inizio percorso
+               pLastPIni = pPini
+               pLastPEnd = pPend
+            -- altrimenti se corrisponde a Z
+            elseif ( abs( pPini:getZ() - b3Solid:getMax():getZ()) < 10 * GEO.EPS_SMALL and abs( pPend:getZ() - b3Solid:getMax():getZ()) < 10 * GEO.EPS_SMALL) or
+                   ( abs( pPini:getZ() - b3Solid:getMin():getZ()) < 10 * GEO.EPS_SMALL and abs( pPend:getZ() - b3Solid:getMin():getZ()) < 10 * GEO.EPS_SMALL) then
+               -- setto l'entità open
+               local sActInfo = EgtGetInfo( nPathInt, 'OPEN', 's') or ''
+               if #sActInfo > 0 then
+                  EgtSetInfo( nPathInt, 'OPEN', sActInfo .. ',' .. (i-1))
+               else
+                  EgtSetInfo( nPathInt, 'OPEN', (i-1))
+               end
+               -- prendo i punti per eventuale modifica del punto di inizio percorso
+               pLastPIni = pPini
+               pLastPEnd = pPend
+            end
+         -- se asse Z orizzontale verifico se si avvicina piú a Y
+         elseif abs(vtOrtho:getZ()) < 0.001 then 
+            if abs(vtOrtho:getY()) > 0.75 then 
+               -- se corrisponde a Z
+               if ( abs( pPini:getZ() - b3Solid:getMax():getZ()) < 10 * GEO.EPS_SMALL and abs( pPend:getZ() - b3Solid:getMax():getZ()) < 10 * GEO.EPS_SMALL) or
+                  ( abs( pPini:getZ() - b3Solid:getMin():getZ()) < 10 * GEO.EPS_SMALL and abs( pPend:getZ() - b3Solid:getMin():getZ()) < 10 * GEO.EPS_SMALL) then
+                  -- setto l'entità open
+                  local sActInfo = EgtGetInfo( nPathInt, 'OPEN', 's') or ''
+                  if #sActInfo > 0 then
+                     EgtSetInfo( nPathInt, 'OPEN', sActInfo .. ',' .. (i-1))
+                  else
+                     EgtSetInfo( nPathInt, 'OPEN', (i-1))
+                  end
+                  -- prendo i punti per eventuale modifica del punto di inizio percorso
+                  pLastPIni = pPini
+                  pLastPEnd = pPend
+               end
+            end
+         -- se asse Y a 0 (fresa ne davanti ne dietro) verifico se si avvicina piú a Z+
+         elseif abs(vtOrtho:getY()) < 0.001 then 
+            if abs(vtOrtho:getZ()) > 0.75 then 
+               -- se corrisponde a Y
+               if ( abs( pPini:getY() - b3Solid:getMax():getY()) < 10 * GEO.EPS_SMALL and abs( pPend:getY() - b3Solid:getMax():getY()) < 10 * GEO.EPS_SMALL) or
+                  ( abs( pPini:getY() - b3Solid:getMin():getY()) < 10 * GEO.EPS_SMALL and abs( pPend:getY() - b3Solid:getMin():getY()) < 10 * GEO.EPS_SMALL) then
+                  -- setto l'entità open
+                  local sActInfo = EgtGetInfo( nPathInt, 'OPEN', 's') or ''
+                  if #sActInfo > 0 then
+                     EgtSetInfo( nPathInt, 'OPEN', sActInfo .. ',' .. (i-1))
+                  else
+                     EgtSetInfo( nPathInt, 'OPEN', (i-1))
+                  end
+                  -- prendo i punti per eventuale modifica del punto di inizio percorso
+                  pLastPIni = pPini
+                  pLastPEnd = pPend
+               end
             end
--- inizio - 20220719 codice vecchio mantenuto per backup
---         -- Se normale lungo la Z considero il box in X e Y
---         if abs(vtOrtho:getZ()) > 0.999 then
---            -- se corrisponde a X
---            if ( abs( pPini:getX() - b3Solid:getMax():getX()) < 10 * GEO.EPS_SMALL and abs( pPend:getX() - b3Solid:getMax():getX()) < 10 * GEO.EPS_SMALL) or
---               ( abs( pPini:getX() - b3Solid:getMin():getX()) < 10 * GEO.EPS_SMALL and abs( pPend:getX() - b3Solid:getMin():getX()) < 10 * GEO.EPS_SMALL) then
---               -- setto l'entità open
---               local sActInfo = EgtGetInfo( nPathInt, 'OPEN', 's') or ''
---               if #sActInfo > 0 then
---                  EgtSetInfo( nPathInt, 'OPEN', sActInfo .. ',' .. (i-1))
---               else
---                  EgtSetInfo( nPathInt, 'OPEN', (i-1))
---               end
---               -- prendo i punti per eventuale modifica del punto di inizio percorso
---               pLastPIni = pPini
---               pLastPEnd = pPend
---            -- altrimenti se corrisponde a Y
---            elseif ( abs( pPini:getY() - b3Solid:getMax():getY()) < 10 * GEO.EPS_SMALL and abs( pPend:getY() - b3Solid:getMax():getY()) < 10 * GEO.EPS_SMALL) or
---                   ( abs( pPini:getY() - b3Solid:getMin():getY()) < 10 * GEO.EPS_SMALL and abs( pPend:getY() - b3Solid:getMin():getY()) < 10 * GEO.EPS_SMALL) then
---               -- setto l'entità open
---               local sActInfo = EgtGetInfo( nPathInt, 'OPEN', 's') or ''
---               if #sActInfo > 0 then
---                  EgtSetInfo( nPathInt, 'OPEN', sActInfo .. ',' .. (i-1))
---               else
---                  EgtSetInfo( nPathInt, 'OPEN', (i-1))
---               end
---               -- prendo i punti per eventuale modifica del punto di inizio percorso
---               pLastPIni = pPini
---               pLastPEnd = pPend
---            end
---         -- altrimenti se normale lungo la Y considero il box in X e Z
---         elseif abs(vtOrtho:getZ()) < 0.001 and abs(vtOrtho:getY()) > 0.999 then 
---            -- se corrisponde a X
---            if ( abs( pPini:getX() - b3Solid:getMax():getX()) < 10 * GEO.EPS_SMALL and abs( pPend:getX() - b3Solid:getMax():getX()) < 10 * GEO.EPS_SMALL) or
---               ( abs( pPini:getX() - b3Solid:getMin():getX()) < 10 * GEO.EPS_SMALL and abs( pPend:getX() - b3Solid:getMin():getX()) < 10 * GEO.EPS_SMALL) then
---               -- setto l'entità open
---               local sActInfo = EgtGetInfo( nPathInt, 'OPEN', 's') or ''
---               if #sActInfo > 0 then
---                  EgtSetInfo( nPathInt, 'OPEN', sActInfo .. ',' .. (i-1))
---               else
---                  EgtSetInfo( nPathInt, 'OPEN', (i-1))
---               end
---               -- prendo i punti per eventuale modifica del punto di inizio percorso
---               pLastPIni = pPini
---               pLastPEnd = pPend
---            -- altrimenti se corrisponde a Z
---            elseif ( abs( pPini:getZ() - b3Solid:getMax():getZ()) < 10 * GEO.EPS_SMALL and abs( pPend:getZ() - b3Solid:getMax():getZ()) < 10 * GEO.EPS_SMALL) or
---                   ( abs( pPini:getZ() - b3Solid:getMin():getZ()) < 10 * GEO.EPS_SMALL and abs( pPend:getZ() - b3Solid:getMin():getZ()) < 10 * GEO.EPS_SMALL) then
---               -- setto l'entità open
---               local sActInfo = EgtGetInfo( nPathInt, 'OPEN', 's') or ''
---               if #sActInfo > 0 then
---                  EgtSetInfo( nPathInt, 'OPEN', sActInfo .. ',' .. (i-1))
---               else
---                  EgtSetInfo( nPathInt, 'OPEN', (i-1))
---               end
---               -- prendo i punti per eventuale modifica del punto di inizio percorso
---               pLastPIni = pPini
---               pLastPEnd = pPend
---            end
---         -- caso che non dovrebbe mai capitare ma gestito per completezza
---         -- altrimenti se normale lungo la X considero il box in Y e Z 
---         elseif abs(vtOrtho:getZ()) < 0.001 and abs(vtOrtho:getX()) > 0.999 then 
---            -- se corrisponde a Y
---            if ( abs( pPini:getY() - b3Solid:getMax():getY()) < 10 * GEO.EPS_SMALL and abs( pPend:getY() - b3Solid:getMax():getY()) < 10 * GEO.EPS_SMALL) or
---               ( abs( pPini:getY() - b3Solid:getMin():getY()) < 10 * GEO.EPS_SMALL and abs( pPend:getY() - b3Solid:getMin():getY()) < 10 * GEO.EPS_SMALL) then
---               -- setto l'entità open
---               local sActInfo = EgtGetInfo( nPathInt, 'OPEN', 's') or ''
---               if #sActInfo > 0 then
---                  EgtSetInfo( nPathInt, 'OPEN', sActInfo .. ',' .. (i-1))
---               else
---                  EgtSetInfo( nPathInt, 'OPEN', (i-1))
---               end
---               -- prendo i punti per eventuale modifica del punto di inizio percorso
---               pLastPIni = pPini
---               pLastPEnd = pPend
---            -- altrimenti se corrisponde a Z
---            elseif ( abs( pPini:getZ() - b3Solid:getMax():getZ()) < 10 * GEO.EPS_SMALL and abs( pPend:getZ() - b3Solid:getMax():getZ()) < 10 * GEO.EPS_SMALL) or
---                   ( abs( pPini:getZ() - b3Solid:getMin():getZ()) < 10 * GEO.EPS_SMALL and abs( pPend:getZ() - b3Solid:getMin():getZ()) < 10 * GEO.EPS_SMALL) then
---               -- setto l'entità open
---               local sActInfo = EgtGetInfo( nPathInt, 'OPEN', 's') or ''
---               if #sActInfo > 0 then
---                  EgtSetInfo( nPathInt, 'OPEN', sActInfo .. ',' .. (i-1))
---               else
---                  EgtSetInfo( nPathInt, 'OPEN', (i-1))
---               end
---               -- prendo i punti per eventuale modifica del punto di inizio percorso
---               pLastPIni = pPini
---               pLastPEnd = pPend
---            end
---         -- se asse Z orizzontale verifico se si avvicina piú a Y
---         elseif abs(vtOrtho:getZ()) < 0.001 then 
---            if abs(vtOrtho:getY()) > 0.75 then 
---               -- se corrisponde a Z
---               if ( abs( pPini:getZ() - b3Solid:getMax():getZ()) < 10 * GEO.EPS_SMALL and abs( pPend:getZ() - b3Solid:getMax():getZ()) < 10 * GEO.EPS_SMALL) or
---                  ( abs( pPini:getZ() - b3Solid:getMin():getZ()) < 10 * GEO.EPS_SMALL and abs( pPend:getZ() - b3Solid:getMin():getZ()) < 10 * GEO.EPS_SMALL) then
---                  -- setto l'entità open
---                  local sActInfo = EgtGetInfo( nPathInt, 'OPEN', 's') or ''
---                  if #sActInfo > 0 then
---                     EgtSetInfo( nPathInt, 'OPEN', sActInfo .. ',' .. (i-1))
---                  else
---                     EgtSetInfo( nPathInt, 'OPEN', (i-1))
---                  end
---                  -- prendo i punti per eventuale modifica del punto di inizio percorso
---                  pLastPIni = pPini
---                  pLastPEnd = pPend
---               end
---            end
---         -- se asse Y a 0 (fresa ne davanti ne dietro) verifico se si avvicina piú a Z+
---         elseif abs(vtOrtho:getY()) < 0.001 then 
---            if abs(vtOrtho:getZ()) > 0.75 then 
---               -- se corrisponde a Y
---               if ( abs( pPini:getY() - b3Solid:getMax():getY()) < 10 * GEO.EPS_SMALL and abs( pPend:getY() - b3Solid:getMax():getY()) < 10 * GEO.EPS_SMALL) or
---                  ( abs( pPini:getY() - b3Solid:getMin():getY()) < 10 * GEO.EPS_SMALL and abs( pPend:getY() - b3Solid:getMin():getY()) < 10 * GEO.EPS_SMALL) then
---                  -- setto l'entità open
---                  local sActInfo = EgtGetInfo( nPathInt, 'OPEN', 's') or ''
---                  if #sActInfo > 0 then
---                     EgtSetInfo( nPathInt, 'OPEN', sActInfo .. ',' .. (i-1))
---                  else
---                     EgtSetInfo( nPathInt, 'OPEN', (i-1))
---                  end
---                  -- prendo i punti per eventuale modifica del punto di inizio percorso
---                  pLastPIni = pPini
---                  pLastPEnd = pPend
---               end
---            end
--- fine - 20220719 codice vecchio mantenuto per backup
          end
       end
       -- se devo cambiare il punto di partenza
@@ -1485,7 +1469,7 @@ local function SetOpenSide( nPathInt, vtOrtho, b3Solid, nAddGrpId, nStartPoint)
             -- calcolo il punto medio con gli ultimi punti utilizzati
             local ptPs = ( pLastPIni + pLastPEnd) / 2
             EgtChangeClosedCurveStartPoint( nPathInt, ptPs, GDB_RT.GLOB)
-            -- se devo eliminare la parte open, nei casi in cui la funzione caller non faccia in automatico il check
+            -- se devo eliminare la parte open
             if nStartPoint == 2 then
                EgtRemoveCurveCompoCurve( nPathInt, true)
                EgtRemoveCurveCompoCurve( nPathInt, false)
@@ -1494,6 +1478,7 @@ local function SetOpenSide( nPathInt, vtOrtho, b3Solid, nAddGrpId, nStartPoint)
          end
       end
    end
+
    return false
 end
 
@@ -1812,7 +1797,7 @@ local function MakeRoundCleanContour( Proc, nPhase, nRawId, nPartId, b3Raw,
       end
       -- normale alla faccia aggiunta
       vtN1 = Vector3d( vtOrtho)
-      -- imposto i lati aperti e con il parametro 2 li cancello per evitare di lavorarli
+      -- imposto i lati aperti
       SetOpenSide( nFirstId, vtOrtho, b3Solid, nAddGrpId, 2)
    end
 
@@ -4314,7 +4299,6 @@ local function ManageAntiSplintByMill( Proc, nPhase, nRawId, nPartId, b3Raw,
             end
          end
          vtN1 = Vector3d(vtOrtho)
-         -- imposto i lati aperti e con il parametro 2 li cancello per evitare di lavorarli
          local bOkPath = SetOpenSide( nFirstId, vtOrtho, b3Solid, nAddGrpId, 2)
          -- se non ho un percorso chiuso estraggo i percorsi
          if bOkPath then
@@ -5181,8 +5165,7 @@ local function MakeMoreFaces( Proc, nPhase, nRawId, nPartId, dOvmHead, bSinglePa
                      -- o passare subito dalla lavorazione con lama/sega catena
                      if ( bTrySidePocketAtFirst and Proc.Fct == 3 and bIsU) or bForceSideMill then
                         -- lavoro con svuotature (singola o doppia contrapposta)
-                        -- 20220719 -> settate tutte come OpenPocket; prima era Pocket
-                        local sMyMchFind = 'OpenPocket'
+                        local sMyMchFind = EgtIf( bForceSideMill, 'OpenPocket', 'Pocket')
                         local dDiamTool = 100
                         local nPathInt, nSurfInt, bOneShot, nFirstMachId
                         local bIs3Faces = true