DataBeam :

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

LuaLibs/ProcessDtMortise.lua

@@ -1,4 +1,4 @@
--- ProcessDtMortise.lua by Egaltech s.r.l. 2020/04/20
+-- ProcessDtMortise.lua by Egaltech s.r.l. 2020/04/27
 -- Gestione calcolo mortase a coda di rondice per Travi
 
 -- Tabella per definizione modulo
@@ -119,6 +119,7 @@ function ProcessDtMortise.Make( Proc, nPhase, nRawId, nPartId)
    local dToolDiam = 100
    local dMaxMat = 30
    local dSideAng = 0
+   local bCW = true
    if EgtMdbSetCurrMachining( sMilling) then
       local sTuuid = EgtMdbGetCurrMachiningParam( MCH_MP.TUUID)
       if EgtTdbSetCurrTool( EgtTdbGetToolFromUUID( sTuuid) or '') then
@@ -126,6 +127,8 @@ function ProcessDtMortise.Make( Proc, nPhase, nRawId, nPartId)
          dToolDiam = max( dToolDiam, 10)
          dMaxMat = EgtTdbGetCurrToolParam( MCH_TP.MAXMAT) or dMaxMat
          dSideAng = EgtTdbGetCurrToolParam( MCH_TP.SIDEANG) or dSideAng
+         local dSpeed = EgtMdbGetCurrMachiningParam( MCH_MP.SPEED) or 0
+         bCW = ( dSpeed >= 0)
       end
    end
    -- verifico se raggio troppo piccolo per l'utensile
@@ -213,6 +216,9 @@ function ProcessDtMortise.Make( Proc, nPhase, nRawId, nPartId)
             EgtSetMachiningParam( MCH_MP.DEPTH, dAltMort)
             -- setto offset radiale con aggiunto un ulteriore allargamento di 1mm
             EgtSetMachiningParam( MCH_MP.OFFSR, dToolRadDelta - 1)
+            -- 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))
             -- dichiaro non si generano sfridi per VMill
             local sUserNotes = 'MaxElev='.. EgtNumToString( dAltMort, 1) .. '; VMRS=0;'
             EgtSetMachiningParam( MCH_MP.USERNOTES, sUserNotes)
@@ -255,11 +261,14 @@ function ProcessDtMortise.Make( Proc, nPhase, nRawId, nPartId)
          EgtOutLog( sErr)
          return false, sErr
       end
+      -- aggiungo geometria
+      EgtSetMachiningGeometry( {{ AuxId, -1}})
       -- imposto offset
       local dOffs = ( i - 1) * dStep
       EgtSetMachiningParam( MCH_MP.OFFSR, dOffs)
-      -- aggiungo geometria
-      EgtSetMachiningGeometry( {{ AuxId, -1}})
+      -- 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))
       -- dichiaro non si generano sfridi per VMill
       local sUserNotes = 'MaxElev='.. EgtNumToString( dMaxMat - 0.1, 1) .. '; VMRS=0;'
       EgtSetMachiningParam( MCH_MP.USERNOTES, sUserNotes)