DataBeam :

- gestione su tenoni e mortase (normali e DT) di lato e direzione di lavoro secondo il senso di rotazione.

LuaLibs/ProcessMortise.lua

@@ -1,4 +1,4 @@
--- ProcessMortise.lua by Egaltech s.r.l. 2020/03/04
+-- ProcessMortise.lua by Egaltech s.r.l. 2020/04/27
 -- Gestione calcolo mortase per Travi
 
 -- Tabella per definizione modulo
@@ -170,11 +170,14 @@ function ProcessMortise.Make( Proc, nPhase, nRawId, nPartId)
    -- recupero i dati dell'utensile
    local dMillDiam = 20
    local dMaxDepth = 0
+   local bCW = true
    if EgtMdbSetCurrMachining( sPocketing) then
       local sTuuid = EgtMdbGetCurrMachiningParam( MCH_MP.TUUID)
       if EgtTdbSetCurrTool( EgtTdbGetToolFromUUID( sTuuid) or '') then
          dMillDiam = EgtTdbGetCurrToolParam( MCH_TP.DIAM) or dMillDiam
          dMaxDepth = ( EgtTdbGetCurrToolMaxDepth() or dMaxDepth)
+         local dSpeed = EgtMdbGetCurrMachiningParam( MCH_MP.SPEED) or 0
+         bCW = ( dSpeed >= 0)
       end
    end
    -- inserisco la lavorazione di svuotatura
@@ -191,6 +194,8 @@ function ProcessMortise.Make( Proc, nPhase, nRawId, nPartId)
    end
    -- aggiungo geometria
    EgtSetMachiningGeometry( {{ AuxId, -1}})
+   -- sistemo la direzione di lavoro
+   EgtSetMachiningParam( MCH_MP.INVERT, EgtIf( bCW, true, false))
    -- imposto posizione braccio porta testa
    if vtN:getY() < GEO.EPS_SMALL then
       if bRevertSide then
@@ -237,8 +242,7 @@ function ProcessMortise.Make( Proc, nPhase, nRawId, nPartId)
       EgtSetOperationMode( nMchFId, false)
       return false, sErr
    end
-   -- ESPERIMENTO:
-   -- se non c'è il fondo e la lavorazione non ha lavorato tutta la superficie per limite altezza utensile
+   -- Se non c'è il fondo e la lavorazione non ha lavorato tutta la superficie per limite altezza utensile
    -- inserisco una ulteriore lavorazione contraria
    if bOpenBtm and not bForceOneSide and nDepthMin and abs(nDepthMin) > 0 then
       -- inserisco la lavorazione di svuotatura opposta
@@ -255,6 +259,8 @@ function ProcessMortise.Make( Proc, nPhase, nRawId, nPartId)
       EgtModifyCurveExtrusion( AuxId_oppo, - vtExtr, GDB_ID.ROOT)
       -- aggiungo geometria
       EgtSetMachiningGeometry( {{ AuxId_oppo, -1}})
+      -- sistemo la direzione di lavoro
+      EgtSetMachiningParam( MCH_MP.INVERT, EgtIf( bCW, true, false))
       -- imposto posizione braccio porta testa
       if vtN:getY() < GEO.EPS_SMALL then
          EgtSetMachiningParam( MCH_MP.SCC, MCH_SCC.ADIR_YP)
@@ -267,7 +273,6 @@ function ProcessMortise.Make( Proc, nPhase, nRawId, nPartId)
       else -- se sono uguali setto 
          nDepthMin = -( dMorH - BD.CUT_EXTRA)
       end
-
       -- setto profondità
       EgtSetMachiningParam( MCH_MP.DEPTH, -nDepthMin+BD.CUT_EXTRA)
       -- imposto elevazione