DataBeam :

- per le lavorazioni in doppio e precedenti no oppure di tipo diverso, forzo risalita a Zmax (per evitare possibili collisioni nel riposizionamento diretto della seconda testa).

.gitignore

@@ -19,3 +19,4 @@
 /bin/*.ini
 /bin/LuaLibs/*.lua
 /bin/Images/*.png
+.vscode/settings.json

BatchProcess.lua

@@ -1,4 +1,4 @@
--- BatchProcess.lua by Egaltech s.r.l. 2022/04/28
+-- BatchProcess.lua by Egaltech s.r.l. 2022/05/10
 -- Gestione calcolo batch disposizione e lavorazioni per Travi
 -- 2019/07/11 Aggiunta gestione stato rotazione di feature per TS3.
 -- 2019/07/16 Aggiunta gestione modalità oltre 10 per impostazione macchina e uscita.
@@ -23,6 +23,8 @@
 -- 2021/06/16 Se disponibile si aggiunge la versione dell'eseguibile alle info del programma CN.
 -- 2021/08/04 Direzione vista simulazione da BD.SIMUL_VIEW_DIR se esiste.
 -- 2022/04/28 In info generazione aggiunta indicazione se 64bit.
+-- 2023/05/03 Tolleranza su sezione portata a 0.1 mm (100 * GEO.EPS_SMALL).
+-- 2022/05/10 Dopo aver fatto rotazioni e inversioni dei pezzi cambio chiave Info relative.
 
 -- Intestazioni
 require( 'EgtBase')
@@ -266,22 +268,26 @@ if bToProcess then
       vBeam[i].PosX = PosX
    end
    
-   -- Eseguo eventuali rotazioni e inversioni testa-coda
+   -- Se non già eseguite, applico eventuali rotazioni e inversioni testa-coda
    for i = 1, #vBeam do
       local b3Solid = vBeam[i].Box
       -- rotazione
-      local dRotAng = EgtGetInfo( vBeam[i].Id, 'ROTATED', 'd')
-      if dRotAng and abs( dRotAng) > GEO.EPS_ANG_SMALL then
+      local dRotAng = EgtGetInfo( vBeam[i].Id, 'ROTATED', 'd') or 0
+      if abs( dRotAng) > GEO.EPS_ANG_SMALL then
          local ptRotCen = b3Solid:getCenter()
          EgtRotate( vBeam[i].Id, ptRotCen, X_AX(), dRotAng, GDB_RT.GLOB)
          b3Solid:rotate( ptRotCen, X_AX(), dRotAng)
       end
+      EgtRemoveInfo( vBeam[i].Id, 'ROTATED')
+      EgtSetInfo( vBeam[i].Id, 'ROTATED_OK', dRotAng)
       -- inversione
       local dInvAng = 180 - ( EgtGetInfo( vBeam[i].Id, 'INVERTED', 'd') or 0)
       if abs( dInvAng) > GEO.EPS_ANG_SMALL then
          local ptInvCen = b3Solid:getCenter()
          EgtRotate( vBeam[i].Id, ptInvCen, Z_AX(), dInvAng, GDB_RT.GLOB)
       end
+      EgtRemoveInfo( vBeam[i].Id, 'INVERTED')
+      EgtSetInfo( vBeam[i].Id, 'INVERTED_OK', 180 - dInvAng)
    end
    
    -- Ne verifico le dimensioni
@@ -291,8 +297,8 @@ if bToProcess then
    for i = 2, #vBeam do
       local dDimW = vBeam[i].Box:getDimY()
       local dDimH = vBeam[i].Box:getDimZ()
-      if ( abs( dDimW - dRawW) > 10 * GEO.EPS_SMALL  or  abs( dDimH - dRawH) > 10 * GEO.EPS_SMALL)  and
-         ( abs( dDimH - dRawW) > 10 * GEO.EPS_SMALL  or  abs( dDimW - dRawH) > 10 * GEO.EPS_SMALL) then
+      if ( abs( dDimW - dRawW) > 100 * GEO.EPS_SMALL  or  abs( dDimH - dRawH) > 100 * GEO.EPS_SMALL)  and
+         ( abs( dDimH - dRawW) > 100 * GEO.EPS_SMALL  or  abs( dDimW - dRawH) > 100 * GEO.EPS_SMALL) then
          table.insert( vBeamErr, i)
       end
    end

LuaLibs/BeamExec.lua

@@ -1395,16 +1395,14 @@ end
 -------------------------------------------------------------------------------------------------------------
 -- Controlla se la feature ProcMirror è la specchiata di Proc, per feature di tipo tasca o simile
 local function CheckMirrorPocket( Proc, ProcMirror, b3Raw, AuxId)
-   
+
    -- recupero i dati geometrici della curva Proc
    local vtExtr = EgtCurveExtrusion( AuxId, GDB_RT.GLOB)
    local ptBC = EgtGP( AuxId, GDB_RT.GLOB)
    local rfDtMrt = EgtSurfTmFacetMinAreaRectangle( Proc.Id, 0, GDB_RT.GLOB) 
    local b3DtMrt = EgtGetBBoxRef( Proc.Id, GDB_BB.STANDARD, rfDtMrt)
    local b3Proc = EgtGetBBoxGlob( Proc.Id, GDB_BB.STANDARD)
-   -- determino l'asse della curva Proc
-   local vtAx = EgtEV( AuxId, GDB_RT.GLOB) - EgtSV( AuxId, GDB_RT.GLOB)
-   
+
    -- recupero e verifico l'entità curva ProcMirror
    local AuxIdMirror = EgtGetInfo( ProcMirror.Id, 'AUXID', 'i')
    if AuxIdMirror then AuxIdMirror = AuxIdMirror + ProcMirror.Id end
@@ -1420,35 +1418,49 @@ local function CheckMirrorPocket( Proc, ProcMirror, b3Raw, AuxId)
    local ptBCMirror = EgtGP( AuxIdMirror, GDB_RT.GLOB)
    local b3DtMrtMirror = EgtGetBBoxRef( ProcMirror.Id, GDB_BB.STANDARD, rfDtMrt)
    local b3ProcMirror = EgtGetBBoxGlob( ProcMirror.Id, GDB_BB.STANDARD)
-   -- determino l'asse della curva ProcMirror
-   local vtAxMirror = EgtEV( AuxIdMirror, GDB_RT.GLOB) - EgtSV( AuxIdMirror, GDB_RT.GLOB)
-   
-   -- verifico se le mortase sono specchiate
-   local bIsMirror = true
+
+   -- verifico se le mortase sono specchiate :
+   -- devono avere estrusioni opposte
+   if not AreOppositeVectorApprox( vtExtr, vtExtrMirror) then
+      return false
+   end
+   -- se di tipo Dt, devono avere l'asse allineato
+   if DtMortise.SideIdentify( Proc) or DtMortise.SideIdentify( ProcMirror) then
+      local vtAx =  EgtEV( AuxId, GDB_RT.GLOB) - EgtSV( AuxId, GDB_RT.GLOB)
+      local vtAxMirror = EgtEV( AuxIdMirror, GDB_RT.GLOB) - EgtSV( AuxIdMirror, GDB_RT.GLOB)
+      if not AreSameVectorApprox( vtAx, vtAxMirror) then
+         return false
+      end
+   end
+   -- devono avere il centro allineato, essere equidistanti dalla mezzaria trave e non essere troppo vicine
    local vtDisplacement = ptBC - ptBCMirror
    local ptCenRaw = b3Raw:getCenter()
-   local dYMinDistance = EgtIf( ptBC:getY() > ptBCMirror:getY(), abs( b3ProcMirror:getMax():getY() - b3Proc:getMin():getY()), abs( b3Proc:getMax():getY() - b3ProcMirror:getMin():getY()))
-   local dZMinDistance = EgtIf( ptBC:getZ() > ptBCMirror:getZ(), abs( b3ProcMirror:getMax():getZ() - b3Proc:getMin():getZ()), abs( b3Proc:getMax():getZ() - b3ProcMirror:getMin():getZ()))
    local dMinimumDistanceMirroredFeatures = 50
-   -- controllo che il centro delle due mortase sia allineato, che queste siano equidistanti dalla mezzeria della trave
-   -- e che queste non siano troppo vicine
    if AreSameOrOppositeVectorApprox( vtExtr, Y_AX()) then
-      bIsMirror = abs( vtDisplacement:getX()) < 500 * GEO.EPS_SMALL and abs( vtDisplacement:getZ()) < 500 * GEO.EPS_SMALL and 
-                  ( abs( ptBC:getY() - ptCenRaw:getY()) - abs( ptBCMirror:getY() - ptCenRaw:getY())) < 500 * GEO.EPS_SMALL and
-                  dYMinDistance - dMinimumDistanceMirroredFeatures > 10 * GEO.EPS_SMALL
+      local dYMinDistance = max( b3Proc:getMin():getY(), b3ProcMirror:getMin():getY()) - min( b3Proc:getMax():getY(), b3ProcMirror:getMax():getY())
+      if not ( abs( vtDisplacement:getX()) < 500 * GEO.EPS_SMALL and abs( vtDisplacement:getZ()) < 500 * GEO.EPS_SMALL and 
+               ( abs( ptBC:getY() - ptCenRaw:getY()) - abs( ptBCMirror:getY() - ptCenRaw:getY())) < 500 * GEO.EPS_SMALL and
+               dYMinDistance > dMinimumDistanceMirroredFeatures + 10 * GEO.EPS_SMALL) then
+         return false
+      end
    elseif AreSameOrOppositeVectorApprox( vtExtr, Z_AX()) then
-      bIsMirror = abs( vtDisplacement:getX()) < 500 * GEO.EPS_SMALL and abs( vtDisplacement:getY()) < 500 * GEO.EPS_SMALL and 
-                  ( abs( ptBC:getZ() - ptCenRaw:getZ()) - abs( ptBCMirror:getZ() - ptCenRaw:getZ())) < 500 * GEO.EPS_SMALL and
-                  dZMinDistance - dMinimumDistanceMirroredFeatures > 10 * GEO.EPS_SMALL
+      local dZMinDistance = max( b3Proc:getMin():getZ(), b3ProcMirror:getMin():getZ()) - min( b3Proc:getMax():getZ(), b3ProcMirror:getMax():getZ())
+      if not ( abs( vtDisplacement:getX()) < 500 * GEO.EPS_SMALL and abs( vtDisplacement:getY()) < 500 * GEO.EPS_SMALL and 
+               ( abs( ptBC:getZ() - ptCenRaw:getZ()) - abs( ptBCMirror:getZ() - ptCenRaw:getZ())) < 500 * GEO.EPS_SMALL and
+               dZMinDistance > dMinimumDistanceMirroredFeatures + 10 * GEO.EPS_SMALL) then
+         return false
+      end
+   else
+      return false
+   end
+   -- devono avere box con le stesse dimensioni
+   if not ( abs( b3DtMrt:getDimX() - b3DtMrtMirror:getDimX()) < 500 * GEO.EPS_SMALL and 
+            abs( b3DtMrt:getDimY() - b3DtMrtMirror:getDimY()) < 500 * GEO.EPS_SMALL and 
+            abs( b3DtMrt:getDimZ() - b3DtMrtMirror:getDimZ()) < 500 * GEO.EPS_SMALL) then
+      return false
    end
-   -- controllo che le dimensioni dei due box siano le stesse
-   bIsMirror = bIsMirror and abs( b3DtMrt:getDimX() - b3DtMrtMirror:getDimX()) < 500 * GEO.EPS_SMALL and 
-               abs( b3DtMrt:getDimY() - b3DtMrtMirror:getDimY()) < 500 * GEO.EPS_SMALL and 
-               abs( b3DtMrt:getDimZ() - b3DtMrtMirror:getDimZ()) < 500 * GEO.EPS_SMALL
-   -- controllo che l'asse delle due mortase sia allineato
-   bIsMirror = bIsMirror and AreSameVectorApprox( vtAx, vtAxMirror)
 
-   return bIsMirror
+   return true
 end
 
 -------------------------------------------------------------------------------------------------------------
@@ -1833,11 +1845,15 @@ function BeamExec.ProcessFeatures()
             nRId = EgtGetNextRawPart( nRId)
          end
          EgtSetInfo( nDispId, 'ROT', -2)
+         -- flag feature precedente in doppio
+         local nPrevDouble = 0
          -- inserisco le lavorazioni da lavorare ribaltate
          for i = 1, #vProc do
             -- creo la lavorazione
             local Proc = vProc[i]
             if Proc.Flg ~= 0 and Proc.Down then
+               Proc.PrevDouble = nPrevDouble
+               nPrevDouble = Proc.Double
                local bOk, sMsg, nNewPhase = AddFeatureMachining( Proc, nPhase, nRawId, nPartId, dCurrOvmH, bNeedHCut, b3Raw, nOrd, sDownOrSideOrStd, nil, nil, dCurrOvmT)
                if not bOk then
                   nTotErr = nTotErr + 1
@@ -1905,12 +1921,16 @@ function BeamExec.ProcessFeatures()
             nRId = EgtGetNextRawPart( nRId)
          end
          EgtSetInfo( nDispId, 'ROT', -1)
+         -- flag feature precedente in doppio
+         local nPrevDouble = 0
          -- inserisco le lavorazioni da lavorare ruotate
          local nSideMchOk = 0
          for i = 1, #vProc do
             -- creo la lavorazione
             local Proc = vProc[i]
             if Proc.Flg ~= 0 and Proc.Side then
+               Proc.PrevDouble = nPrevDouble
+               nPrevDouble = Proc.Double
                local bOk, sMsg, nNewPhase = AddFeatureMachining( Proc, nPhase, nRawId, nPartId, dCurrOvmH, false, b3Raw, nOrd, sDownOrSideOrStd, bPreMove, vtMove, dCurrOvmT)
                if not bOk then
                   nTotErr = nTotErr + 1
@@ -1967,11 +1987,15 @@ function BeamExec.ProcessFeatures()
          EgtSetInfo( nDispId, 'ORD', nOrd)
       end
       sDownOrSideOrStd = 'STD'
+      -- flag feature precedente in doppio
+      local nPrevDouble = 0
       -- inserisco le lavorazioni non ribaltate della trave
       for i = 1, #vProc do
          -- creo la lavorazione
          local Proc = vProc[i]
          if Proc.Flg ~= 0 and ( not ( Proc.Down or Proc.Side) or BD.DOWN_HEAD or BD.TURN) then
+            Proc.PrevDouble = nPrevDouble
+            nPrevDouble = Proc.Double
             local bOk, sMsg, nNewPhase = AddFeatureMachining( Proc, nPhase, nRawId, nPartId, dCurrOvmH, false, b3Raw, nOrd, sDownOrSideOrStd, nil, nil, dCurrOvmT)
             if not bOk then
                nTotErr = nTotErr + 1

LuaLibs/FacesBySaw.lua

@@ -14,6 +14,7 @@
 -- 2022/06/29 DS In MakeTwo modificato controllo facce dirette verso il basso.
 -- 2022/09/08 In MakeOne aggiunto argomento bForceInvert per poter forzare l'inversione del percorso.
 -- 2023/02/13 Migliorata la direzione di lavoro della lama in modo da essere tendenzialmente opposta all'avanzamento.
+-- 2023/04/20 Alcune modifiche per gestire tagli con faceuse parallelo
 
 -- Tabella per definizione modulo
 local FacesBySaw = {}
@@ -30,7 +31,7 @@ local BD = require( 'BeamData')
 local ML = require( 'MachiningLib')
 
 ---------------------------------------------------------------------
-function FacesBySaw.MakeOne( nSurfId, nFacet, sCutting, dSawDiam, Par5, dVzLimDwnUp, dCutExtra, dCutSic, dCutOffset, dAccStart, dAccEnd, sNotes, b3Raw, bForceInvert)
+function FacesBySaw.MakeOne( nSurfId, nFacet, sCutting, dSawDiam, Par5, dVzLimDwnUp, dCutExtra, dCutSic, dCutOffset, dAccStart, dAccEnd, sNotes, b3Raw, bForceInvert, nForceWorkSide, nForceSCC)
    -- dati della faccia
    local ptC, vtN = EgtSurfTmFacetCenter( nSurfId, nFacet, GDB_ID.ROOT)
    -- risolvo parametro ambiguo
@@ -109,7 +110,17 @@ function FacesBySaw.MakeOne( nSurfId, nFacet, sCutting, dSawDiam, Par5, dVzLimDw
    local nFaceUse = nOrthoOpposite
    if bDownUp then nFaceUse = BL.GetOrtupOpposite( nOrthoOpposite) end
    local bWsRight = ( bInvert ~= bDownUp)
-   local nWorkSide = EgtIf( bWsRight, MCH_MILL_WS.RIGHT, MCH_MILL_WS.LEFT)
+   local nWorkSide = nForceWorkSide
+   if nWorkSide then
+      -- se il workside viene forzato, setto bWsRight di conseguenza
+      if nWorkSide == MCH_MILL_WS.LEFT then
+         bWsRight = false
+      else
+         bWsRight = true
+      end
+   else
+      nWorkSide = EgtIf( bWsRight, MCH_MILL_WS.RIGHT, MCH_MILL_WS.LEFT)
+   end
    -- Versore di riferimento
    local vtRef = Vector3d( vtTg)
    vtRef:rotate( vtN, EgtIf( bInvert, -90, 90))
@@ -136,14 +147,26 @@ function FacesBySaw.MakeOne( nSurfId, nFacet, sCutting, dSawDiam, Par5, dVzLimDw
    -- parametri di attacco/uscita
    local b3Box = BBox3d( b3Raw)
    b3Box:expand( dCutSic)
-   local ptP1act = ptP1 + vtN * dCutOffset
-   local ptP2act = ptP2 + vtN * dCutOffset
+   local dCutDeltaN, dCutDeltaX = dCutOffset, dCutExtra
+   -- per lavorazioni parallele, nel calcolo dei lead in e out gli offset vanno invertiti
+   if (
+      nFaceUse == MCH_MILL_FU.PARAL_DOWN or
+      nFaceUse == MCH_MILL_FU.PARAL_TOP or
+      nFaceUse == MCH_MILL_FU.PARAL_FRONT or
+      nFaceUse == MCH_MILL_FU.PARAL_BACK or
+      nFaceUse == MCH_MILL_FU.PARAL_LEFT or
+      nFaceUse == MCH_MILL_FU.PARAL_RIGHT
+   ) then
+      dCutDeltaN, dCutDeltaX = dCutDeltaX, dCutDeltaN
+   end
+   local ptP1act = ptP1 + vtN * dCutDeltaN
+   local ptP2act = ptP2 + vtN * dCutDeltaN
    -- attacco perpendicolare
-   local dLiTang, dLiPerp, dLoTang, dLoPerp, vtLio = FacesBySaw.CalcLeadInOutPerpGeom( ptP1act, ptP2act, vtV1, vtV2, vtN, dSawDiam/2, vtRef, dCutExtra, b3Box)
+   local dLiTang, dLiPerp, dLoTang, dLoPerp, vtLio = FacesBySaw.CalcLeadInOutPerpGeom( ptP1act, ptP2act, vtV1, vtV2, vtN, dSawDiam/2, vtRef, dCutDeltaX, b3Box)
    local dLenLi = sqrt( dLiTang * dLiTang + dLiPerp * dLiPerp)
    local dLenLo = sqrt( dLoTang * dLoTang + dLoPerp * dLoPerp)
    -- attacco tangente
-   local dLi2Tang, dLi2Perp, dLo2Tang, dLo2Perp = FacesBySaw.CalcLeadInOutTangGeom( ptP1act, ptP2act, vtN, dSawDiam/2, vtRef, dCutExtra, b3Box)
+   local dLi2Tang, dLi2Perp, dLo2Tang, dLo2Perp = FacesBySaw.CalcLeadInOutTangGeom( ptP1act, ptP2act, vtN, dSawDiam/2, vtRef, dCutDeltaX, b3Box)
    local dLenLi2 = abs( dLi2Tang)
    local dLenLo2 = abs( dLo2Tang)
    -- scelgo l'attacco più conveniente (se non taglio praticamente longitudinale)
@@ -165,33 +188,36 @@ function FacesBySaw.MakeOne( nSurfId, nFacet, sCutting, dSawDiam, Par5, dVzLimDw
    end
    -- posizione braccio
    EgtOutLog( 'vtN=' .. tostring( vtN) .. ' vtRef=' .. tostring( vtRef) .. ' vtOut=' .. tostring( vtOut) .. ' vtAux=' .. tostring( vtAux), 3)
-   local nSCC = MCH_SCC.NONE
-   if not BD.TURN then
-      if abs( vtAux:getX()) > abs( vtAux:getY()) - GEO.EPS_SMALL then
-         nSCC = EgtIf( ( vtAux:getX() > -GEO.EPS_SMALL), MCH_SCC.ADIR_XP, MCH_SCC.ADIR_XM)
-      else
-         nSCC = EgtIf( ( vtAux:getY() > -GEO.EPS_SMALL), MCH_SCC.ADIR_YP, MCH_SCC.ADIR_YM)
-      end
-   else
-      if bTurnTang then
-         local vtTest = EgtIf( bInvert, vtTg, -vtTg)
-         if abs( vtTest:getY()) > abs( vtTest:getZ()) then
-            nSCC = EgtIf( vtTest:getY() > 0, MCH_SCC.ADIR_YP, MCH_SCC.ADIR_YM)
+   local nSCC = nForceSCC
+   if nSCC == nil then
+      nSCC = MCH_SCC.NONE
+      if not BD.TURN then
+         if abs( vtAux:getX()) > abs( vtAux:getY()) - GEO.EPS_SMALL then
+            nSCC = EgtIf( ( vtAux:getX() > -GEO.EPS_SMALL), MCH_SCC.ADIR_XP, MCH_SCC.ADIR_XM)
          else
-            nSCC = EgtIf( vtTest:getZ() > 0, MCH_SCC.ADIR_ZP, MCH_SCC.ADIR_ZM)
+            nSCC = EgtIf( ( vtAux:getY() > -GEO.EPS_SMALL), MCH_SCC.ADIR_YP, MCH_SCC.ADIR_YM)
          end
       else
-         local vtTest = vtOut   -- vtLio
-         if abs( vtN:getY()) < 0.174 and abs( vtN:getZ()) < 0.174 then
+         if bTurnTang then
+            local vtTest = EgtIf( bInvert, vtTg, -vtTg)
             if abs( vtTest:getY()) > abs( vtTest:getZ()) then
                nSCC = EgtIf( vtTest:getY() > 0, MCH_SCC.ADIR_YP, MCH_SCC.ADIR_YM)
             else
                nSCC = EgtIf( vtTest:getZ() > 0, MCH_SCC.ADIR_ZP, MCH_SCC.ADIR_ZM)
             end
-         elseif abs( vtN:getZ()) < 0.174 then
-            nSCC = EgtIf( vtTest:getZ() > -0.017, MCH_SCC.ADIR_ZP, MCH_SCC.ADIR_ZM)
          else
-            nSCC = EgtIf( vtTest:getY() > 0, MCH_SCC.ADIR_YP, MCH_SCC.ADIR_YM)
+            local vtTest = vtOut   -- vtLio
+            if abs( vtN:getY()) < 0.174 and abs( vtN:getZ()) < 0.174 then
+               if abs( vtTest:getY()) > abs( vtTest:getZ()) then
+                  nSCC = EgtIf( vtTest:getY() > 0, MCH_SCC.ADIR_YP, MCH_SCC.ADIR_YM)
+               else
+                  nSCC = EgtIf( vtTest:getZ() > 0, MCH_SCC.ADIR_ZP, MCH_SCC.ADIR_ZM)
+               end
+            elseif abs( vtN:getZ()) < 0.174 then
+               nSCC = EgtIf( vtTest:getZ() > -0.017, MCH_SCC.ADIR_ZP, MCH_SCC.ADIR_ZM)
+            else
+               nSCC = EgtIf( vtTest:getY() > 0, MCH_SCC.ADIR_YP, MCH_SCC.ADIR_YM)
+            end
          end
       end
    end

LuaLibs/ProcessDrill.lua

@@ -1,4 +1,4 @@
--- ProcessDrill.lua by Egaltech s.r.l. 2022/11/30
+-- ProcessDrill.lua by Egaltech s.r.l. 2023/05/11
 -- Gestione calcolo forature per Travi
 -- 2021/04/14 DS Corretta gestione Invert con testa da sotto. Migliorato calcolo ingombro portautensile.
 -- 2021/05/03 DS Su macchina con testa da sotto aggiunta possibilità di fare fori verticali metà sopra e l'altra sotto.
@@ -16,6 +16,7 @@
 -- 2022/10/25 Nella funzione Split aggiunto il controllo che le facce di ingresso e uscita siano differenti (potrebbe succedere per fori molto corti). Modifica importatore in futuro.
 -- 2022/11/23 Aggiunta la gestione dei fori con angolo < 30 gradi, per i quali si usa la testa della macchina per accorciare l'utile di lavoro.
 -- 2022/12/28 Implementata gestione forature in doppio
+-- 2023/05/11 Se lavorazione in doppio e precedente no oppure di tipo diverso, forzo risalita a Zmax.
 
 -- Tabella per definizione modulo
 local ProcessDrill = {}
@@ -494,6 +495,9 @@ function ProcessDrill.Make( Proc, nPhase, nRawId, nPartId)
    -- se lavorazione in doppio
    if Proc.Double and Proc.Double > 0 then
       sUserNotes = EgtSetValInNotes( sUserNotes, 'DOUBLE', Proc.Double)
+      if Proc.Double ~= Proc.PrevDouble then
+         sUserNotes = EgtSetValInNotes( sUserNotes, 'StartZmax', 2)
+      end
    end
    EgtSetMachiningParam( MCH_MP.USERNOTES, sUserNotes)
    -- eseguo

LuaLibs/ProcessDtMortise.lua

@@ -1,4 +1,4 @@
--- ProcessDtMortise.lua by Egaltech s.r.l. 2023/03/28
+-- ProcessDtMortise.lua by Egaltech s.r.l. 2023/05/11
 -- Gestione calcolo mortase a coda di rondine per Travi
 -- 2021/04/08 Aggiunto controllo massimo materiale lavorabile dalla fresa.
 -- 2021/04/08 Miglioria scelta lavorazione in presenza di testa da sotto.
@@ -11,6 +11,7 @@
 -- 2022/12/28 Aggiunta gestione lavorazione in doppio.
 -- 2023/03/06 Aggiunta forzatura ingresso fuori dal grezzo con pocket.
 -- 2023/03/28 Corretto calcolo larghezza mortasa quando più larga che lunga.
+-- 2023/05/11 Se lavorazione in doppio e precedente no oppure di tipo diverso, forzo risalita a Zmax.
 
 -- Tabella per definizione modulo
 local ProcessDtMortise = {}
@@ -289,7 +290,7 @@ function ProcessDtMortise.Make( Proc, nPhase, nRawId, nPartId, dCurrOvmH)
       EgtOutLog( sErr)
       return false, sErr
    end
-   -- se con tasca, la lavoro
+   -- se con tasca, la lavoro (mai in doppio)
    if bPocket then
       -- recupero il contorno della tasca (seconda curva ausiliaria)
       local sVal = EgtGetInfo( Proc.Id, 'AUXID')
@@ -350,6 +351,8 @@ function ProcessDtMortise.Make( Proc, nPhase, nRawId, nPartId, dCurrOvmH)
          nSCC = EgtIf( vtAx:getZ() > 0, MCH_SCC.ADIR_ZP, MCH_SCC.ADIR_ZM)
       end
    end
+   -- flag di mirror precedente aggiornabile localmente
+   local nMyPrevDouble = Proc.PrevDouble
    -- se parametro interno abilitato e il percorso non è chiuso, aggiungo percorso e lavorazione antischeggia
    if bMakeAntiSplitPath and not EgtCurveIsClosed( AuxId) then
       -- recupero gruppo per geometria addizionale
@@ -431,6 +434,10 @@ function ProcessDtMortise.Make( Proc, nPhase, nRawId, nPartId, dCurrOvmH)
             -- se lavorazione in doppio
             if Proc.Double and Proc.Double > 0 then
                sUserNotes = EgtSetValInNotes( sUserNotes, 'DOUBLE', Proc.Double)
+               if Proc.Double ~= nMyPrevDouble then
+                  nMyPrevDouble = Proc.Double
+                  sUserNotes = EgtSetValInNotes( sUserNotes, 'StartZmax', 2)
+               end
             end
             EgtSetMachiningParam( MCH_MP.USERNOTES, sUserNotes)
             -- eseguo
@@ -516,6 +523,10 @@ function ProcessDtMortise.Make( Proc, nPhase, nRawId, nPartId, dCurrOvmH)
       -- se lavorazione in doppio
       if Proc.Double and Proc.Double > 0 then
          sUserNotes = EgtSetValInNotes( sUserNotes, 'DOUBLE', Proc.Double)
+         if Proc.Double ~= nMyPrevDouble then
+            nMyPrevDouble = Proc.Double
+            sUserNotes = EgtSetValInNotes( sUserNotes, 'StartZmax', 2)
+         end
       end
       EgtSetMachiningParam( MCH_MP.USERNOTES, sUserNotes)
       -- eseguo

LuaLibs/ProcessHeadCut.lua

@@ -6,6 +6,7 @@
 -- 2022/09/08 Migliorato verso di lavorazione in caso di DoubleCut
 -- 2022/11/02 Corretti accorciamenti per DoubleCut
 -- 2022/11/10 Corrette finiture lama per BigSection con trave alta
+-- 2023/04/20 Per travi alte aggiunti tagli orizzontali per ridurre le dimensioni degli scarti
 
 -- Tabella per definizione modulo
 local ProcessHeadCut = {}
@@ -119,7 +120,7 @@ local function MakeChamfer( nOriId, Proc, nPhase, nRawId, nPartId, dOvmHead)
    -- eseguo
    if not ML.ApplyMachining( true, false) then
       local _, sErr = EgtGetLastMachMgrError()
-      EgtSetOperationMode( nMchId, false)
+      EgtSetOperationMode( nMch1Id, false)
       return false, sErr
    end
    -- Inserisco la lavorazione del lato opposto
@@ -142,7 +143,7 @@ local function MakeChamfer( nOriId, Proc, nPhase, nRawId, nPartId, dOvmHead)
    -- eseguo
    if not ML.ApplyMachining( true, false) then
       local _, sErr = EgtGetLastMachMgrError()
-      EgtSetOperationMode( nMchId, false)
+      EgtSetOperationMode( nMch1Id, false)
       return false, sErr
    end
    return true, nil
@@ -205,7 +206,7 @@ function ProcessHeadCut.Make( Proc, nPhase, nRawId, nPartId, dOvmHead, bNeedHCut
    -- se non obbligatorio e coincide con inizio grezzo, non va fatto
    if not bNeedHCut  and  AreSameVectorApprox( vtN, X_AX())  and  abs( ptC:getX() - b3Raw:getMax():getX()) < 10 * GEO.EPS_SMALL then
       return true
-   end 
+   end
    -- determino se più tagli con offset
    local nCuts = max( ceil( dOvmHead / ( BD.MAX_LEN_SCRAP_START or BD.MAX_LEN_SCRAP)), 1)
    local dOffsL = dOvmHead / nCuts
@@ -269,6 +270,40 @@ function ProcessHeadCut.Make( Proc, nPhase, nRawId, nPartId, dOvmHead, bNeedHCut
             dAccStart = sqrt( dSawRad * dSawRad - dKL * dKL)
          end
       end
+
+      -- per travi alte faccio faccio dei tagli orizzontali aggiuntivi
+      local _, _, dimV = BL.GetFaceHvRefDim( Proc.Id, 0, b3Raw)
+      local dMinOvmHeadForHorizontalCuts = 10.123
+      local bAreHorizontalCutsNeeded = ( dimV > BD.MAX_LEN_DICE) and not bBigSectionCut and ( dOvmHead > dMinOvmHeadForHorizontalCuts - 10 * GEO.EPS_SMALL)
+      if bAreHorizontalCutsNeeded then
+         local nHorizontalCuts = ceil ( dimV / BD.MAX_DIM_DICE) - 1
+         local dHorizontalSliceHeight = dimV / ( nHorizontalCuts + 1)
+         for i = nCuts, 1, -1 do
+            local dCutXOffset = ( i - 1) * dOffsL
+            -- tagli orizzontali
+            for j = nHorizontalCuts, 1, -1 do
+               local nFaceUse = MCH_MILL_FU.PARAL_DOWN
+               local dHorizontalCutOffset = dHorizontalSliceHeight * -j
+               local nForceWorkSide = MCH_MILL_WS.LEFT
+               local bForceInvert = true
+               local nForceSCC = MCH_SCC.ADIR_XP
+               local bOk, sErr = Fbs.MakeOne( Proc.Id, 0 , sCutting, dSawDiam, nFaceUse, nil, -0.1 - dCutXOffset, BD.CUT_SIC, dHorizontalCutOffset, 0, 0, '', b3Raw, bForceInvert, nForceWorkSide, nForceSCC)
+               if not bOk then return bOk, sErr end
+            end
+            -- se necessario taglio verticale doppio, eseguo l'opposto
+            if bDoubleCut then
+               -- gli accorciamenti vanno invertiti per il taglio opposto
+               local dAccStartDoubleCut, dAccEndDoubleCut = dAccEnd, dAccStart
+               local bOk, sErr = Fbs.MakeOne( Proc.Id, 0, sCutting, dSawDiam, MCH_MILL_FU.ORTHO_BACK, nil, dCutExtra, BD.CUT_SIC, dCutXOffset, dAccStartDoubleCut, dAccEndDoubleCut, '', b3Raw, true)
+               if not bOk then return false, sErr end
+            end
+            -- taglio verticale
+            local bOk, sErr = Fbs.MakeOne( Proc.Id, 0, sCutting, dSawDiam, nOrthoOpposite, nil, dCutExtra, BD.CUT_SIC, dCutXOffset, dAccStart, dAccEnd, '', b3Raw)
+            if not bOk then return bOk, sErr end
+         end
+         return true, sWarn
+      end
+
       -- se necessari tagli in doppio, eseguo gli opposti
       if bDoubleCut then
          -- gli accorciamenti vanno invertiti per il taglio opposto

LuaLibs/ProcessLongCut.lua

@@ -1,4 +1,4 @@
--- ProcessLongCut.lua by Egaltech s.r.l. 2023/03/06
+-- ProcessLongCut.lua by Egaltech s.r.l. 2023/05/03
 -- Gestione calcolo taglio longitudinale per Travi
 -- 2021/02/03 Corretto FaceUse con fresa orizzontale su taglio orizzontale.
 -- 2021/05/18 Possibile taglio con lama anche di fianco su macchina con testa da sotto.
@@ -25,6 +25,8 @@
 -- 2023/03/06 Correzione per i casi con lavorazione limitata.
 -- 2023/03/15 Modifica alla lavorazione ulteriore con sega a catena per togliere il codolo e lasciare solo dei punti di supporto.
 -- 2023/03/22 Correzione a SCC lama a seguito di modifiche alle direzioni dei tagli.
+-- 2023/04/17 Gestione unificata SCC tramite funzione apposita GetSCC
+-- 2023/05/03 Corretto SCC in caso di asse utensile allineato con Z.
 
 -- Tabella per definizione modulo
 local ProcessLongCut = {}
@@ -62,6 +64,143 @@ function ProcessLongCut.Classify( Proc)
    return true, false
 end
 
+---------------------------------------------------------------------
+-- Estrazione dell'UUID utensile di una lavorazione
+function GetToolUUID( sMachining)
+   if EgtMdbSetCurrMachining( sMachining) then
+      local sToolUUID = EgtMdbGetCurrMachiningParam( MCH_MP.TUUID)
+      return sToolUUID
+   end
+end
+
+---------------------------------------------------------------------
+-- Calcolo dei versori caratteristici della feature
+function GetProcessSpecificVectors( Proc, nFacet, nFaceUse, bInvert, sMachining)
+   local vtN = EgtSurfTmFacetNormVersor( Proc.Id, nFacet, GDB_ID.ROOT)
+   local vtOrthO = BL.GetVersRef( nFaceUse)
+   local ptP1, ptPm, ptP2, vtV1, vtV2, dLen, dWidth = EgtSurfTmFacetOppositeSide( Proc.Id, nFacet, vtOrthO, GDB_ID.ROOT)
+   local vtTg = ptP2 - ptP1 ;   vtTg:normalize()
+   local dAllStart = 0
+   local dAllEnd = 0
+   -- se bilinea, scarto la parte più allineata con la direzione ortogonale (se deviazione angolare oltre 20 deg o lunghezza minore di dSawDiam/2 * cos( 20/2)) ma maggiore di un minimo
+   if ( ( ptPm - ptP1) - ( ptPm - ptP1) * vtTg * vtTg):len() > 100 * GEO.EPS_SMALL then
+      local vtTg1 = ptPm - ptP1 ;   vtTg1:normalize()
+      local vtTg2 = ptP2 - ptPm ;   vtTg2:normalize()
+      local dDist1 = dist( ptP1, ptPm)
+      local dDist2 = dist( ptP2, ptPm)
+      local dCosMax = 0.951       -- cos( 18°)
+      local dLenMin = 30
+      local dToolDiam = 400
+      if EgtMdbSetCurrMachining( sMachining) then
+         local sTuuid = EgtMdbGetCurrMachiningParam( MCH_MP.TUUID)
+         if EgtTdbSetCurrTool( EgtTdbGetToolFromUUID( sTuuid) or '') then
+            dToolDiam = EgtTdbGetCurrToolParam( MCH_TP.DIAM) or dToolDiam
+         end
+      end
+      local dLenMax = max( 0.5 * dToolDiam * 0.17365 + 1, 2 * dLenMin)
+      --if vtTg1 * vtTg2 < dCosMax or ( dDist1 < dLenMax and dDist1 > dLenMin) or ( dDist2 < dLenMax and dDist2 > dLenMin) then
+      if vtTg1 * vtTg2 < dCosMax then
+         local dOrtho1 = abs( vtTg1 * vtOrthO)
+         local dOrtho2 = abs( vtTg2 * vtOrthO)
+         if dOrtho1 < dOrtho2 or ( abs( dOrtho1 - dOrtho2) < 0.1 and dDist1 > 4 * dDist2) then
+            if dDist1 > dLenMin or dDist1 > 0.5 * dDist2 then
+               ptP2 = Point3d( ptPm)
+               dAllEnd = - dDist2 - 10 * GEO.EPS_SMALL
+            end
+         else
+            if dDist2 > dLenMin or dDist2 > 0.5 * dDist1 then
+               ptP1 = Point3d( ptPm)
+               dAllStart = - dDist1 - 10 * GEO.EPS_SMALL
+            end
+         end
+         vtTg = ptP2 - ptP1 ;   vtTg:normalize()
+      end
+   end
+   local bWsRight = ( bInvert)
+   -- Versore di riferimento
+   local vtRef = Vector3d( vtTg)
+   vtRef:rotate( vtN, 90)
+   -- Versore esterno
+   local vtOut = vtRef - vtRef * vtTg * vtTg ;   vtOut:normalize()
+   -- Versore ausiliario (direzione braccio)
+   local vtAux = Vector3d( vtN:getX(), vtN:getY(), 0) ;   vtAux:normalize()
+   vtAux:rotate( Z_AX(), EgtIf( bWsRight, 90, -90))
+   if vtAux:isSmall() then
+      vtAux = Vector3d( vtOut:getX(), vtOut:getY(), 0) ;   vtAux:normalize()
+   else
+      if abs( vtAux * vtOut) < GEO.EPS_SMALL then
+         if abs( vtTg:getZ()) > 0.5 then
+            if vtAux * vtRef < 0 then
+               vtAux = - vtAux
+            end
+         elseif vtAux * vtTg > 0 then
+            vtAux = - vtAux
+         end
+      elseif vtAux * vtOut < 0 then
+         vtAux = - vtAux
+      end
+   end
+   EgtOutLog( 'vtN=' .. tostring( vtN) .. ' vtRef=' .. tostring( vtRef) .. ' vtOut=' .. tostring( vtOut) .. ' vtAux=' .. tostring( vtAux), 3)
+   return vtAux, vtRef, vtOut, vtTg
+end
+
+---------------------------------------------------------------------
+-- Calcolo posizione braccio
+function ProcessLongCut.GetSCC( Proc, nFacet, sMachining, nFaceUse, bInvert, nCuttingStep, nC, bAreCuttingStepsTowardsHead, bIsTopBlade, bCustUseBlade)
+   local nSCC
+   local vtN = EgtSurfTmFacetNormVersor( Proc.Id, nFacet, GDB_ID.ROOT)
+   local sToolUUID = GetToolUUID( sMachining)
+   local bIsBlade
+   if EgtTdbSetCurrTool( EgtTdbGetToolFromUUID( sToolUUID) or '') then
+      bIsBlade = ( ( EgtTdbGetCurrToolParam( MCH_TP.TYPE) & MCH_TF.SAWBLADE) ~= 0)
+   end
+
+   -- se Turn posiziono la testa per creare il minor ingombro possibile
+   if BD.TURN then
+      if nFaceUse == MCH_MILL_FU.ORTHO_DOWN or ( ( nFaceUse == MCH_MILL_FU.PARAL_FRONT or nFaceUse == MCH_MILL_FU.PARAL_BACK) and vtN:getZ() > -GEO.EPS_SMALL) then
+         nSCC = MCH_SCC.ADIR_ZP
+      elseif nFaceUse == MCH_MILL_FU.ORTHO_TOP or ( nFaceUse == MCH_MILL_FU.PARAL_FRONT or nFaceUse == MCH_MILL_FU.PARAL_BACK) then
+         nSCC = MCH_SCC.ADIR_ZM
+      elseif nFaceUse == MCH_MILL_FU.ORTHO_FRONT or ( ( nFaceUse == MCH_MILL_FU.PARAL_DOWN or nFaceUse == MCH_MILL_FU.PARAL_TOP) and vtN:getY() > -GEO.EPS_SMALL) then
+         nSCC = MCH_SCC.ADIR_YP
+      elseif nFaceUse == MCH_MILL_FU.ORTHO_BACK or ( nFaceUse == MCH_MILL_FU.PARAL_DOWN or nFaceUse == MCH_MILL_FU.PARAL_TOP) then
+         nSCC = MCH_SCC.ADIR_YM
+      end
+   -- se Fast e fresa con asse utensile diretto come Z posiziono l'aggregato in Ym per avere il minore ingombro possibile
+   elseif not BD.C_SIMM and not bIsBlade and AreSameVectorApprox( vtN, Z_AX()) then
+      nSCC = MCH_SCC.ADIR_YM
+   -- se Fast ( escluso caso speciale con taglio non passante e inclinato in X e escluso caso con lama esattamente diretta in Z) posiziono l'aggregato in X per ottimizzare il pinzaggio
+   elseif not BD.C_SIMM and ( not ( bCustUseBlade and abs(vtN:getX()) > 0.001) or not bIsBlade) and not ( bIsBlade and AreSameVectorApprox( vtN, Z_AX())) then
+      if bAreCuttingStepsTowardsHead then
+         nSCC = EgtIf( ( not ( nCuttingStep == 1 or nCuttingStep == nC - 1)), MCH_SCC.ADIR_XP, MCH_SCC.ADIR_XM)
+      else
+         nSCC = EgtIf( ( not ( nCuttingStep == 1 or nCuttingStep == nC - 1)), MCH_SCC.ADIR_XM, MCH_SCC.ADIR_XP)
+      end
+   -- per Fast ( caso speciale con taglio non passante e inclinato in X e caso lama diretta esattamente in Z)
+   elseif not BD.C_SIMM then
+      local vtAux = GetProcessSpecificVectors( Proc, nFacet, nFaceUse, bInvert, sMachining)
+      if bCustUseBlade then
+         nSCC = EgtIf( ( nFaceUse == MCH_MILL_FU.ORTHO_TOP or nFaceUse == MCH_MILL_FU.ORTHO_FRONT) and vtN:getY() > -GEO.EPS_SMALL, MCH_SCC.ADIR_YP, MCH_SCC.ADIR_YM)
+      elseif ( abs( vtAux:getX()) > abs( vtAux:getY()) - GEO.EPS_SMALL) then
+         nSCC = EgtIf( ( vtAux:getX() > -GEO.EPS_SMALL), MCH_SCC.ADIR_XP, MCH_SCC.ADIR_XM)
+      else
+         nSCC = EgtIf( ( vtAux:getY() > -GEO.EPS_SMALL), MCH_SCC.ADIR_YP, MCH_SCC.ADIR_YM)
+      end
+   -- per PF o simili e lama con aggregato lo posiziono per stare il più lontano possibile dalla trave
+   elseif ( bIsBlade and bIsTopBlade) then
+      if abs( vtN:getX()) > 0.001 then
+         local vtAux = GetProcessSpecificVectors( Proc, nFacet, nFaceUse, bInvert, sMachining)
+         nSCC = EgtIf( ( vtAux:getY() > -GEO.EPS_SMALL), MCH_SCC.ADIR_YP, MCH_SCC.ADIR_YM)
+      else
+         nSCC = MCH_SCC.ADIR_XP
+      end
+   -- per PF o simili e lama senza aggregato o fresa non do alcuna preferenza
+   else
+      nSCC = MCH_SCC.NONE
+   end
+   
+   return nSCC
+end
 -----------------------------------------------------------------------------------------------
 local function MakeSideFace( nId, nFac, nSide, sMilling, dToolDiam, bForcedLim, dDistToMachine, bUnderDir)
    if ( not BD.DOWN_HEAD or not BD.TURN) and nSide == -1 then
@@ -763,7 +902,7 @@ function ProcessLongCut.Make( Proc, nPhase, nRawId, nPartId, bCustUseBlade, nCus
          bFinishWithChainSaw = EgtIf ( ( EgtGetInfo( Proc.Id, 'Q05', 'i') or 0) == 1, true, false)
       end
       
-      local nFaceUse 
+      local nFaceUse
       local nFaceUse2
       -- se ho solo lama da sotto
       if bCanUseUnderBlade and not bCanUseBlade then
@@ -835,7 +974,7 @@ function ProcessLongCut.Make( Proc, nPhase, nRawId, nPartId, bCustUseBlade, nCus
          end
          -- eventuale lavorazione della faccia limitante l'inizio
          if not bStartFixed then
-            local vtIni = -X_AX() 
+            local vtIni = -X_AX()
             for j = 1, Proc.Fct - 1 do
                local _, vtN = EgtSurfTmFacetCenter( Proc.Id, j, GDB_ID.ROOT)
                if vtIni * vtN > 0 and nCountMilHead < 2 then
@@ -851,7 +990,7 @@ function ProcessLongCut.Make( Proc, nPhase, nRawId, nPartId, bCustUseBlade, nCus
 
          -- eventuale lavorazione della faccia limitante la fine
          if not bEndFixed then
-            local vtFin = X_AX() 
+            local vtFin = X_AX()
             for j = 1, Proc.Fct - 1 do
                local _, vtN = EgtSurfTmFacetCenter( Proc.Id, j, GDB_ID.ROOT)
                if vtFin * vtN > 0  and nCountMilHead < 2 then
@@ -868,8 +1007,6 @@ function ProcessLongCut.Make( Proc, nPhase, nRawId, nPartId, bCustUseBlade, nCus
 
       -- inserisco tagli di lama
       for i = 1, nC do
-         -- Posizione braccio portatesta
-         local  nSCC = EgtIf( ( BD.C_SIMM or not ( i == 1 or i == nC - 1)), MCH_SCC.ADIR_XP, MCH_SCC.ADIR_XM)
          -- ciclo sulle passate
          local dLioTang = 0
          for k = 1, 2 do
@@ -885,7 +1022,7 @@ function ProcessLongCut.Make( Proc, nPhase, nRawId, nPartId, bCustUseBlade, nCus
                   bAddOpposite = false
                end
                -- faccio in modo di calcolare il valore perpendicolare solo sulla faccia da sotto nel secondo passo o sulla faccia di fianco nel primo passo
-               if nSide == 1 or ( nSide == -1 and k == 1) or ( abs(nSide) == 2 and k == 2) then 
+               if nSide == 1 or ( nSide == -1 and k == 1) or ( abs(nSide) == 2 and k == 2) then
                   bAddOpposite = false
                end
                if bAddOpposite then
@@ -1006,6 +1143,10 @@ function ProcessLongCut.Make( Proc, nPhase, nRawId, nPartId, bCustUseBlade, nCus
                      dSal, dEal = dEal, dSal
                   end
                end
+               -- step sempre positivi
+               local bAreCuttingStepsTowardsHead = true
+               -- calcolo SCC
+               local nSCC = ProcessLongCut.GetSCC( Proc, 0, EgtIf( bIsTopBladeCurrent, sCutting, sCuttingDn), nFaceUseCurrent, bInvert, i, nC, bAreCuttingStepsTowardsHead, bIsTopBladeCurrent, bCustUseBlade)
 
                -- setto la lavorazione con i valori calcolati
                EgtSetMachiningParam( MCH_MP.INVERT, bInvert)
@@ -1022,12 +1163,7 @@ function ProcessLongCut.Make( Proc, nPhase, nRawId, nPartId, bCustUseBlade, nCus
                EgtSetMachiningParam( MCH_MP.LIPERP, dLioPerp)
                EgtSetMachiningParam( MCH_MP.LOTANG, dLioTang)
                EgtSetMachiningParam( MCH_MP.LOPERP, dLioPerp)
-               -- se il flag uso lama custom abilitato (indica che questo script è lanciato dal ProcessCut)
-               -- controllo se componente X versore è maggiore di un valore limite cambio la direzione della forcella
-               if bCustUseBlade and abs(vtN:getX()) > 0.009 + 5 * GEO.EPS_SMALL then
-                  nSCC = EgtIf( ( not bFront and k == 1) or ( bFront and k == 2), MCH_SCC.ADIR_YP, MCH_SCC.ADIR_YM)
-               end
-               -- imposto posizione braccio porta testa per non ingombrare agli estremi
+               -- imposto posizione braccio porta testa
                EgtSetMachiningParam( MCH_MP.SCC, nSCC)
                -- eseguo
                if not ML.ApplyMachining( true, false) then
@@ -1184,17 +1320,6 @@ function ProcessLongCut.Make( Proc, nPhase, nRawId, nPartId, bCustUseBlade, nCus
       local nM = 0
       local nCountMilHead = 0
       for i = 1, nC do
-         -- Posizione braccio portatesta
-         local nSCC
-         if not BD.TURN then
-            if bFront then
-               nSCC = EgtIf( ( BD.C_SIMM or i == 1 or i == nC - 1), MCH_SCC.ADIR_XM, MCH_SCC.ADIR_XP)
-            else
-               nSCC = EgtIf( ( BD.C_SIMM or i == 1 or i == nC - 1), MCH_SCC.ADIR_XP, MCH_SCC.ADIR_XM)
-            end
-         else
-            nSCC = EgtIf( nFaceUse == MCH_MILL_FU.ORTHO_DOWN, MCH_SCC.ADIR_ZP, EgtIf( nFaceUse == MCH_MILL_FU.ORTHO_FRONT, MCH_SCC.ADIR_YP, MCH_SCC.ADIR_YM))
-         end
          -- ciclo sulle passate
          local nO = 1
          local dStep = 0
@@ -1220,25 +1345,41 @@ function ProcessLongCut.Make( Proc, nPhase, nRawId, nPartId, bCustUseBlade, nCus
                   EgtSetMachiningParam( MCH_MP.LIELEV, 0)
                   EgtSetMachiningParam( MCH_MP.LITANG, 0)
                   EgtSetMachiningParam( MCH_MP.LEADINTYPE, MCH_MILL_LI.LINEAR)
-                  EgtSetMachiningParam( MCH_MP.LIPERP, dWidth + BD.CUT_EXTRA + BD.CUT_SIC or 20)
+                  EgtSetMachiningParam( MCH_MP.LIPERP, dWidth + BD.CUT_EXTRA + ( BD.CUT_SIC or 20))
                end
             elseif i == nC and not bEndFixed then
                if nO == 1 or EgtGetMachiningParam( MCH_MP.LOTANG) ~= 0 then
                   EgtSetMachiningParam( MCH_MP.LOELEV, 0)
                   EgtSetMachiningParam( MCH_MP.LOTANG, 0)
                   EgtSetMachiningParam( MCH_MP.LEADOUTTYPE, MCH_MILL_LI.LINEAR)
-                  EgtSetMachiningParam( MCH_MP.LOPERP, dWidth + BD.CUT_EXTRA + BD.CUT_SIC or 20)
+                  EgtSetMachiningParam( MCH_MP.LOPERP, dWidth + BD.CUT_EXTRA + ( BD.CUT_SIC or 20))
                end
             end
             -- aggiungo geometria
             EgtSetMachiningGeometry( {{ Proc.Id, 0}})
+            
+            -- setto workside e eventuale inversione
+            local bInvert
+            if bInvert then
+               EgtSetMachiningParam( MCH_MP.WORKSIDE, MCH_MILL_WS.RIGHT)
+               EgtSetMachiningParam( MCH_MP.INVERT, true)
+            else
+               EgtSetMachiningParam( MCH_MP.WORKSIDE, MCH_MILL_WS.LEFT)
+               EgtSetMachiningParam( MCH_MP.INVERT, false)
+            end
             -- limito opportunamente la lavorazione
             local dSal = EgtIf( i == 1, -dStartDist, - dStartAccDist - ( i - 2) * dC)
-            EgtSetMachiningParam( MCH_MP.STARTADDLEN, dSal)
             local dEal = EgtIf( i == nC, -dEndDist, - dEndAccDist - ( nC - i - 1) * dC)
+            if bInvert then
+               dSal, dEal = dEal, dSal
+            end
+            EgtSetMachiningParam( MCH_MP.STARTADDLEN, dSal)
             EgtSetMachiningParam( MCH_MP.ENDADDLEN, dEal)
             -- imposto offset radiale
             EgtSetMachiningParam( MCH_MP.OFFSR, ( k - 1) * dStep - BD.CUT_EXTRA)
+            -- Posizione braccio portatesta
+            local bAreCuttingStepsTowardsHead = ( nStartSide == 0)
+            local nSCC = ProcessLongCut.GetSCC( Proc, 0, sMilling, nFaceUse, bInvert, i, nC, bAreCuttingStepsTowardsHead, nil, nil)
             -- imposto posizione braccio porta testa per non ingombrare agli estremi
             EgtSetMachiningParam( MCH_MP.SCC, nSCC)
             -- imposto uso della faccia
@@ -1319,8 +1460,8 @@ function ProcessLongCut.Make( Proc, nPhase, nRawId, nPartId, bCustUseBlade, nCus
          sMilling = ML.FindMilling( sMchType)
          sPrefix = 'L2CS_'
          nExtendMach = nUseMillOnSide
-         if nUseMillOnSide == 2 then 
-            bRemoveToolRadius = true 
+         if nUseMillOnSide == 2 then
+            bRemoveToolRadius = true
          end
          -- se testa da sotto
          if nSide ~= 1 and BD.DOWN_HEAD then
@@ -1605,13 +1746,8 @@ function ProcessLongCut.Make( Proc, nPhase, nRawId, nPartId, bCustUseBlade, nCus
          local dSal = EgtIf( nPos == 1, -dEndDist, -dEndAccDist - ( nPos - 2) * dC + dOverLapExtend)
          local dEal = EgtIf( nPos == nC, -dStartDist, -dStartAccDist - ( nC - nPos - 1) * dC + dOverLapExtend)
          -- Posizione braccio portatesta
-         local nSCC
+         --local nSCC
          for k = 1, nPass do
-            if bFront then
-               nSCC = EgtIf( ( BD.C_SIMM or j == 1 or j == nC - 1), MCH_SCC.ADIR_XM, MCH_SCC.ADIR_XP)
-            else
-               nSCC = EgtIf( ( BD.C_SIMM or j == 1 or j == nC - 1), MCH_SCC.ADIR_XP, MCH_SCC.ADIR_XM)
-            end
             -- inserisco le parti di lavorazione
             nM = nM + 1
             local sNameF = EgtIf( vnHead[k] ~= 2, sPrefix, sPrefixDn) .. ( EgtGetName( Proc.Id) or tostring( Proc.Id)) .. '_' .. tostring( nM)
@@ -1623,22 +1759,22 @@ function ProcessLongCut.Make( Proc, nPhase, nRawId, nPartId, bCustUseBlade, nCus
             end
             -- aggiungo geometria
             EgtSetMachiningGeometry( {{ Proc.Id, 0}})
-            -- imposto posizione braccio porta testa per non ingombrare agli estremi
-            EgtSetMachiningParam( MCH_MP.SCC, nSCC)
             -- imposto uso faccia
-            local nUseFace = EgtIf( vnHead[k] ~= 2, MCH_MILL_FU.PARAL_DOWN, MCH_MILL_FU.PARAL_TOP)
-            if AreSameOrOppositeVectorApprox( vtN, Z_AX()) then nUseFace = MCH_MILL_FU.PARAL_BACK end
-            EgtSetMachiningParam( MCH_MP.FACEUSE, nUseFace)
+            local nFaceUse = EgtIf( vnHead[k] ~= 2, MCH_MILL_FU.PARAL_DOWN, MCH_MILL_FU.PARAL_TOP)
+            if AreSameOrOppositeVectorApprox( vtN, Z_AX()) then nFaceUse = MCH_MILL_FU.PARAL_BACK end
+            EgtSetMachiningParam( MCH_MP.FACEUSE, nFaceUse)
             -- imposto lato di lavoro e inversione
+            local bInvert
             if k == 1 then
                EgtSetMachiningParam( MCH_MP.WORKSIDE, MCH_MILL_WS.LEFT)
-               EgtSetMachiningParam( MCH_MP.INVERT, true)
+               bInvert = true
             else
                EgtSetMachiningParam( MCH_MP.WORKSIDE, MCH_MILL_WS.LEFT)
-               EgtSetMachiningParam( MCH_MP.INVERT, false)
                EgtSetMachiningParam( MCH_MP.TOOLINVERT, true)
+               bInvert = false
                dSal, dEal = dEal, dSal
             end
+            EgtSetMachiningParam( MCH_MP.INVERT, bInvert)
             -- limito opportunamente la lavorazione
             EgtSetMachiningParam( MCH_MP.STARTADDLEN, dSal)
             EgtSetMachiningParam( MCH_MP.ENDADDLEN, dEal)
@@ -1647,6 +1783,12 @@ function ProcessLongCut.Make( Proc, nPhase, nRawId, nPartId, bCustUseBlade, nCus
             -- assegno attacco perpendicolare
             EgtSetMachiningParam( MCH_MP.LIPERP, dLioPerp1)
             EgtSetMachiningParam( MCH_MP.LOPERP, dLioPerp1)
+            -- step sempre negativi
+            local bAreCuttingStepsTowardsHead = false
+            -- calcolo SCC
+            local nSCC = ProcessLongCut.GetSCC( Proc, 0, EgtIf( vnHead[k] ~= 2, sMilling, sMillingDn), nFaceUse, bInvert, j, nC, bAreCuttingStepsTowardsHead, nil, nil)
+            -- imposto posizione braccio porta testa
+            EgtSetMachiningParam( MCH_MP.SCC, nSCC)
             -- eseguo
             if not ML.ApplyMachining( true, false) then
                -- se feature orientata su faccia da sotto provo a cambiare l'attacco

LuaLibs/ProcessMortise.lua

@@ -1,4 +1,4 @@
--- ProcessMortise.lua by Egaltech s.r.l. 2022/12/12
+-- ProcessMortise.lua by Egaltech s.r.l. 2023/05/11
 -- Gestione calcolo mortase per Travi
 -- 2021/07/20 Aggiunta gestione rinvio angolare su FAST.
 -- 2021/12/01 Se frontale aggiungo taglio con Grp e Proc di vero taglio (per aggiornare ingombro di testa /coda).
@@ -9,6 +9,7 @@
 -- 2022/12/12 Migliorato controllo necessità CleanCorners.
 -- 2023/01/31 Aggiunta gestione lavorazione in doppio.
 -- 2023/01/31 Creata la funzione ConvertToClosedCurve (parte della ProcessMortise.Make) e spostata in BeamLib.
+-- 2023/05/11 Se lavorazione in doppio e precedente no oppure di tipo diverso, forzo risalita a Zmax.
 
 -- Tabella per definizione modulo
 local ProcessMortise = {}
@@ -506,6 +507,9 @@ function ProcessMortise.Make( Proc, nPhase, nRawId, nPartId, dCurrOvmH)
    -- se lavorazione in doppio
    if Proc.Double and Proc.Double > 0 then
       sUserNotes = EgtSetValInNotes( sUserNotes, 'DOUBLE', Proc.Double)
+      if Proc.Double ~= Proc.PrevDouble then
+         sUserNotes = EgtSetValInNotes( sUserNotes, 'StartZmax', 2)
+      end
    end
    EgtSetMachiningParam( MCH_MP.USERNOTES, sUserNotes)
    -- eseguo

LuaLibs/ProcessSplit.lua

@@ -1,4 +1,4 @@
--- ProcessSplit.lua by Egaltech s.r.l. 2023/04/04
+-- ProcessSplit.lua by Egaltech s.r.l. 2023/05/09
 -- Gestione calcolo tagli di separazione per Travi
 -- 2022/05/31 Aggiunta gestione sezioni alte e larghe con taglio con sega a catena seguito da rifinitura con lama (aggiunta funzione MakeSplitByChainSaw); gestione eventuale creazione nuova fase dall'interno della Make.
 -- 2022/06/10 Per sezioni alte e larghe aggiunta gestione finitura in base a sovramateriale e a parametro Q05 dell' eventuale lavorazione sostituita.
@@ -9,6 +9,8 @@
 -- 2022/11/16 Correzioni per travi larghe
 -- 2022/11/30 Correzione per tagli su grandi sezioni (dopo taglio con sega a catena senza finitura aggiungeva uno split con lama).
 -- 2023/04/04 Modifiche per travi con sezioni molto grandi e materiale inferiore allo spessore lama.
+-- 2023/04/20 Per travi alte aggiunti tagli orizzontali per ridurre le dimensioni degli scarti.
+-- 2023/05/09 Aggiunta richiesta risalita preliminare a Zmax per tagli da sopra su macchine PF e ONE.
 
 -- Tabella per definizione modulo
 local ProcessSplit = {}
@@ -122,7 +124,7 @@ local function MakeChamfer( nOriId, Proc, nPhase, nRawId, nPartId, dOvmHead)
    -- eseguo
    if not ML.ApplyMachining( true, false) then
       local _, sErr = EgtGetLastMachMgrError()
-      EgtSetOperationMode( nMchId, false)
+      EgtSetOperationMode( nMch1Id, false)
       return false, sErr
    end
    -- Inserisco la lavorazione del lato opposto
@@ -145,7 +147,7 @@ local function MakeChamfer( nOriId, Proc, nPhase, nRawId, nPartId, dOvmHead)
    -- eseguo
    if not ML.ApplyMachining( true, false) then
       local _, sErr = EgtGetLastMachMgrError()
-      EgtSetOperationMode( nMchId, false)
+      EgtSetOperationMode( nMch1Id, false)
       return false, sErr
    end
    return true, nil
@@ -299,13 +301,14 @@ function ProcessSplit.Make( Proc, nPhase, nRawId, nPartId, nOrd, sDownOrSideOrSt
    local nNextRawId = EgtGetNextRawPart( nRawId)
    local bSplit = ( nNextRawId  and  ( EgtGetPartInRawPartCount( nNextRawId) > 0  or  EgtGetRawPartBBox( nNextRawId):getDimX() >= BD.MinRaw))
    -- determino se più tagli con offset
+   local dLenEndRaw = dOvmTail
    local nCuts = 1
    local dOffsL = 0
    if not bSplit then
       -- cerco grezzo successivo che sia nella fase
       if nNextRawId  and  EgtVerifyRawPartPhase( nNextRawId, nPhase) then
          local b3NextRaw = EgtGetRawPartBBox( nNextRawId)
-         local dLenEndRaw = ptC:getX() - b3NextRaw:getMin():getX()
+         dLenEndRaw = ptC:getX() - b3NextRaw:getMin():getX()
          nCuts = ceil( dLenEndRaw / BD.MAX_LEN_SCRAP)
          dOffsL = dLenEndRaw / nCuts
          -- aggiorno ingombro del grezzo corrente con quello del successivo
@@ -412,7 +415,7 @@ function ProcessSplit.Make( Proc, nPhase, nRawId, nPartId, nOrd, sDownOrSideOrSt
          if nQ05 == 1 or nQ05 == 0 or ( not bSplit and dMaxElev > dSawThickCheck) then
             -- controllo se è necessario un taglio con dicing o si deve proseguire ai casi standard
             if bSplit or dMaxElev > dSawThickCheck then
-               local bOk, sErr = Cut.Make( Proc, nNewPhase, nRawId, nPartId, dLenEndRaw, nil, false, true, b3Raw, sNotes, dCurrOvmT)
+               local bOk, sErr = Cut.Make( Proc, nNewPhase, nRawId, nPartId, dMaxElev, nil, false, true, b3Raw, sNotes, dCurrOvmT)
                if sNotesFinal then
                   EgtSetMachiningParam( MCH_MP.USERNOTES, sNotesFinal)
                end
@@ -470,6 +473,40 @@ function ProcessSplit.Make( Proc, nPhase, nRawId, nPartId, nOrd, sDownOrSideOrSt
             dAccStart = sqrt( max( dSawRad * dSawRad - dKL * dKL, 0))
          end
       end
+
+      -- per travi alte faccio faccio dei tagli orizzontali aggiuntivi
+      local _, _, dimV = BL.GetFaceHvRefDim( Proc.Id, 0, b3Raw)
+      local dMinTailScrapForHorizontalCuts = 10.123
+      local bAreHorizontalCutsNeeded = ( dimV > BD.MAX_LEN_DICE) and not bBigSectionCut and ( dLenEndRaw > dMinTailScrapForHorizontalCuts - 10 * GEO.EPS_SMALL)
+      if bAreHorizontalCutsNeeded then
+         local nHorizontalCuts = ceil ( dimV / BD.MAX_DIM_DICE) - 1
+         local dHorizontalSliceHeight = dimV / ( nHorizontalCuts + 1)
+         for i = nCuts, 1, -1 do
+            local dCutXOffset = ( i - 1) * dOffsL
+            -- tagli orizzontali
+            for j = nHorizontalCuts, 1, -1 do
+               local nFaceUse = MCH_MILL_FU.PARAL_DOWN
+               local dHorizontalCutOffset = dHorizontalSliceHeight * -j
+               local nForceWorkSide = MCH_MILL_WS.LEFT
+               local bForceInvert = true
+               local nForceSCC = MCH_SCC.ADIR_XM
+               local bOk, sErr = Fbs.MakeOne( Proc.Id, 0 , sCutting, dSawDiam, nFaceUse, nil, -0.1 - dCutXOffset, BD.CUT_SIC, dHorizontalCutOffset, 0, 0, 'Precut;', b3Raw, bForceInvert, nForceWorkSide, nForceSCC)
+               if not bOk then return false, sErr end
+            end
+            -- se necessario taglio verticale doppio, eseguo l'opposto
+            if bDoubleCut then
+               -- gli accorciamenti vanno invertiti per il taglio opposto
+               local dAccStartDoubleCut, dAccEndDoubleCut = dAccEnd, dAccStart
+               local bOk, sErr = Fbs.MakeOne( Proc.Id, 0, sCutting, dSawDiam, MCH_MILL_FU.ORTHO_FRONT, nil, dCutExtra, BD.CUT_SIC, dCutXOffset, dAccStartDoubleCut, dAccEndDoubleCut, 'Precut;', b3Raw, true)
+               if not bOk then return false, sErr end
+            end
+            -- taglio verticale
+            local bOk, sErr = Fbs.MakeOne( Proc.Id, 0, sCutting, dSawDiam, nOrthoOpposite, nil, dCutExtra, BD.CUT_SIC, dCutXOffset, dAccStart, dAccEnd, 'Cut;', b3Raw)
+            if not bOk then return false, sErr end
+         end
+         return true, sWarn, nNewPhase
+      end
+
       -- se necessari tagli in doppio, eseguo gli opposti
       if bDoubleCut then
          -- gli accorciamenti vanno invertiti per il taglio opposto
@@ -490,6 +527,10 @@ function ProcessSplit.Make( Proc, nPhase, nRawId, nPartId, nOrd, sDownOrSideOrSt
          else
             sNotes = EgtIf( i == 1, 'Cut;', 'Precut;')
          end
+         -- se primo taglio da sopra e PF o ONE richiedo risalita preliminare a Zmax
+         if i == nCuts and bHorizCut and BD.C_SIMM and not BD.DOWN_HEAD then
+            sNotes = EgtSetValInNotes( sNotes, 'StartZmax', 2)
+         end
          local bOk, sErr = Fbs.MakeOne( Proc.Id, 0, sCutting, dSawDiam, nOrthoOpposite, nil, dCutExtra, BD.CUT_SIC, dCutOffset, dAccStart, dAccEnd, sNotes, b3Raw)
          if not bOk then return false, sErr end
       end

UpdateLog.txt

@@ -1,5 +1,25 @@
            ==== Beam Update Log ====
 
+Versione 2.5e2 (04/05/2023)
+- Modif : Piccola modifica a SCC per LongCut derivanti da Cut
+
+Versione 2.5e1 (03/05/2023)
+- Modif : in TS3v7 tolleranza su quote sezione portata a 0.1 mm
+- Fixed : Corretto SCC in caso di asse utensile allineato con Z [Ticket #1232]
+
+Versione 2.5d2 (20/04/2023)
+- Added : nei tagli di testa e coda, nel caso di travi alte, aggiunti tagli orizzontali per diminuire la dimensione degli sfridi [Ticket #1175, #1185]
+- Modif : unificata gestione lato testa per tagli longitudinali [Ticket #1167].
+
+Versione 2.5d1 (06/04/23)
+- Added : in svuotatura aggiunta possibilità di impostare una distanza di sicurezza minima su attacco da lato aperto
+- Modif : in split per travi con sezioni molto grandi e materiale inferiore allo spessore lama, miglioramenti volti ad evitare collisioni prevedibili
+- Modif : in taglio con lama piccola miglioria nella scelta della direzione di approccio per pezzi corti
+- Fixed : in LapJoint correzione al calcolo della distanza di collisione nel caso in cui il gambo sia più piccolo dell'utensile [Ticket #1150]
+- Fixed : corretto ordinamento per fori di coda da lasciare in coda
+- Fixed : correzione per gestire la lama principale sulla testa secondaria quando questa non è una testa da sotto [Ticket #1161]
+- Fixed : modifiche a Split per travi con sezioni molto grandi e materiale inferiore allo spessore lama.
+
 Versione 2.5c8 (30/03/23)
 - Modif : nei tenoni (standard e coda di rondine) migliorate e unificate condizioni scelta pretaglio con lama o fresa [Ticket #1131]
 - Modif : le mortase a coda di rondine sono ora anticipate a prima dei tagli longitudinali indipendentemente dalla sovrapposizione in Y

Version.lua

@@ -1,6 +1,6 @@
--- Version.lua by Egaltech s.r.l. 2023/04/05
+-- Version.lua by Egaltech s.r.l. 2023/05/11
 -- Gestione della versione di Beam
 
 NAME = 'Beam'
-VERSION = '2.5d1'
+VERSION = '2.5e3'
 MIN_EXE = '2.5c1'