DataBeam :

- modifiche alle lavorazioni per gestione macchina TURN
- in tagli con lama aggiunta possibilità di ritorno all'inizio con macchina TURN.

LuaLibs/ProcessDtMortise.lua

@@ -1,4 +1,4 @@
--- ProcessDtMortise.lua by Egaltech s.r.l. 2022/06/01
+-- ProcessDtMortise.lua by Egaltech s.r.l. 2022/06/07
 -- 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.
@@ -60,6 +60,10 @@ end
 ---------------------------------------------------------------------
 -- Classificazione della feature
 function ProcessDtMortise.Classify( Proc)
+   -- se PF con testa da sotto o TURN, ammessa qualunque orientazione
+   if ( BD.C_SIMM and BD.DOWN_HEAD) or BD.TURN then
+      return true
+   end
    -- recupero i dati della curva di contorno della faccia di fondo
    local AuxId = EgtGetInfo( Proc.Id, 'AUXID', 'i')
    if not AuxId then return false end
@@ -158,7 +162,7 @@ function ProcessDtMortise.Make( Proc, nPhase, nRawId, nPartId, dCurrOvmH)
    local ptBC = EgtGP( AuxId, GDB_RT.GLOB)
    -- verifico che la mortasa non sia orientata verso il basso (-5 deg) o che ci sia una testa da sotto o un rinvio angolare
    local bFaceDown = ( vtExtr:getZ() < -0.1)
-   if bFaceDown and not BD.DOWN_HEAD and not BD.ANG_TRASM then
+   if bFaceDown and not BD.DOWN_HEAD and not BD.TURN and not BD.ANG_TRASM then
       local sErr = 'Machining from bottom impossible : Error on DtMortise ' .. tostring( Proc.Id)
       EgtOutLog( sErr)
       return false, sErr
@@ -167,6 +171,9 @@ function ProcessDtMortise.Make( Proc, nPhase, nRawId, nPartId, dCurrOvmH)
    local rfDtMrt, dLenMrt, dWidthMrt = EgtSurfTmFacetMinAreaRectangle( Proc.Id, 0, GDB_RT.GLOB) 
    local b3DtMrt = EgtGetBBoxRef( Proc.Id, GDB_BB.STANDARD, rfDtMrt)
    local dAltMort = b3DtMrt:getDimZ()
+   -- ne determino l'asse (valido se non pocket)
+   local vtAx = EgtEV( AuxId, GDB_RT.GLOB) - EgtSV( AuxId, GDB_RT.GLOB)
+   vtAx:normalize()
    -- verifico se di tipo pocket
    local bPocket = ( EgtGetInfo( Proc.Id, 'P05', 'i') == 1)
    if bPocket then bMakeAntiSplitPath = false end
@@ -312,6 +319,15 @@ function ProcessDtMortise.Make( Proc, nPhase, nRawId, nPartId, dCurrOvmH)
          return false, sErr
       end
    end
+   -- eventuale calcolo SCC
+   local nSCC
+   if BD.TURN and not bPocket then
+      if abs( vtAx:getY()) > abs( vtAx:getZ()) then
+         nSCC = EgtIf( vtAx:getY() > 0, MCH_SCC.ADIR_YP, MCH_SCC.ADIR_YM)
+      else
+         nSCC = EgtIf( vtAx:getZ() > 0, MCH_SCC.ADIR_ZP, MCH_SCC.ADIR_ZM)
+      end
+   end
    -- 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
@@ -384,6 +400,10 @@ function ProcessDtMortise.Make( Proc, nPhase, nRawId, nPartId, dCurrOvmH)
             -- sistemo il lato e la direzione di lavoro
             EgtSetMachiningParam( MCH_MP.WORKSIDE, EgtIf( bCW, MCH_MILL_WS.LEFT, MCH_MILL_WS.RIGHT))
             EgtSetMachiningParam( MCH_MP.INVERT, EgtIf( bCW, false, true))
+            -- se necessario, imposto SCC
+            if nSCC then 
+               EgtSetMachiningParam( MCH_MP.SCC, nSCC)
+            end
             -- dichiaro non si generano sfridi per VMill
             local sUserNotes = 'MaxElev='.. EgtNumToString( dAltMort, 1) .. '; VMRS=0;'
             EgtSetMachiningParam( MCH_MP.USERNOTES, sUserNotes)
@@ -406,8 +426,6 @@ function ProcessDtMortise.Make( Proc, nPhase, nRawId, nPartId, dCurrOvmH)
    end
    -- verifico se necessarie più passate (distanza all'imbocco ortogonale all'asse)
    local vtDiff = EgtEP( AuxId, GDB_RT.GLOB) - EgtSP( AuxId, GDB_RT.GLOB)
-   local vtAx = EgtEV( AuxId, GDB_RT.GLOB) - EgtSV( AuxId, GDB_RT.GLOB)
-   vtAx:normalize()
    local vtOrtDiff = vtDiff - vtDiff * vtAx * vtAx
    local dDist = min( vtOrtDiff:len(), dWidthMrt)
    -- calcolo le passate
@@ -458,6 +476,10 @@ function ProcessDtMortise.Make( Proc, nPhase, nRawId, nPartId, dCurrOvmH)
             end
          end
       end
+      -- se necessario, imposto SCC
+      if nSCC then 
+         EgtSetMachiningParam( MCH_MP.SCC, nSCC)
+      end
       -- dichiaro non si generano sfridi per VMill
       local sUserNotes = 'MaxElev='.. EgtNumToString( dMaxMat - 0.1, 1) .. '; VMRS=0;'
       EgtSetMachiningParam( MCH_MP.USERNOTES, sUserNotes)