DataBeam 2.5c1 :

- in FreeContour corretta gestione Mark (crash per box non definiti).

Compile.bat

@@ -1,5 +1,5 @@
 
-REM Compilazione degli script Beam Egaltech                         2023.01.11
+REM Compilazione degli script Beam Egaltech                         2023.02.27
 REM Per togliere info di debug aggiungere flag -s prima del nome del file di input
 
 REM Compilazione 32 e 64 bit
@@ -50,3 +50,4 @@ REM Compilazione 32 e 64 bit
 \EgtProg\Dll32\luac54 -o bin\Process.lua                               Process.lua
 \EgtProg\Dll32\luac54 -o bin\Rotate.lua                                Rotate.lua
 \EgtProg\Dll32\luac54 -o bin\Swap.lua                                  Swap.lua
+\EgtProg\Dll32\luac54 -o bin\Version.lua                               Version.lua

LuaLibs/BeamExec.lua

@@ -42,6 +42,8 @@
 -- 2023/01/31 Implementata gestione mortase in doppio.
 -- 2023/01/31 Nelle lavorazioni in doppio aggiunta la minima distanza tra le feature.
 -- 2023/02/17 Ora le forature che intersecano le mortase sono sempre fatte prima della mortasa stessa.
+-- 2023/02/17 Nelle tasche in doppio, la distanza minima ammessa tra le feature è stata portata a 50.
+-- 2023/02/20 Ora le mortase a coda di rondine laterali sono sempre fatte prima dei tagli longitudinali. 
 
 -- Tabella per definizione modulo
 local BeamExec = {}
@@ -704,6 +706,16 @@ local function OrderFeatures( vProc, b3Raw)
          B2.Box:getCenter():getX() > B1.Box:getMin():getX() and B2.Box:getCenter():getX() < B1.Box:getMax():getX() then
          return false
       end
+      -- se prima è coda di rondine e secondo taglio longitudinale, la coda di rondine va sempre prima
+      if DtMortise.SideIdentify(B1) and ( LongCut.Identify(B2) or Long2Cut.Identify(B2)) and
+         OverlapsXY( B1.Box, B2.Box) then
+         return true
+      end
+      -- se primo è taglio longitudinale e seconda è coda di rondine, il taglio longitudinale va sempre dopo
+      if ( LongCut.Identify(B1) or Long2Cut.Identify(B1)) and DtMortise.SideIdentify(B2) and
+         OverlapsXY( B1.Box, B2.Box) then
+         return false
+      end
       -- se entrambi tenoni e si intersecano, metto prima tenone vero e poi base tenone
       if ( Tenon.Identify( B1) or DtTenon.Identify( B1)) and ( Tenon.Identify( B2) or DtTenon.Identify( B2)) and
          B1.Box:getMin():getX() < B2.Box:getMax():getX() + 100 * GEO.EPS_SMALL and B2.Box:getMin():getX() < B1.Box:getMax():getX() + 100 * GEO.EPS_SMALL then
@@ -1416,7 +1428,7 @@ local function CheckMirrorPocket( Proc, ProcMirror, b3Raw, AuxId)
    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 = 60
+   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

LuaLibs/ProcessCut.lua

@@ -405,8 +405,8 @@ local function MakeFromTop( sCutting, Proc, nPhase, nRawId, nPartId, dOvmHead, b
             EgtSetInfo( vCuts[i][j], 'TASKID', Proc.TaskId)
             if ( i % 2) == 1 then
                local vtO = EgtSurfTmFacetNormVersor( vCuts[i][j], 0, GDB_ID.ROOT)
-               if ( vtN:getY() > 0.707 and vtO:getY() < -0.05) or
-                  ( vtN:getY() < -0.707 and vtO:getY() > 0.05) then
+               if ( vtN:getY() > 0.766 and vtO:getY() < -0.05) or
+                  ( vtN:getY() < -0.766 and vtO:getY() > 0.05) then
                   EgtInvertSurf( vCuts[i][j])
                   bOrthInv = true
                end

LuaLibs/ProcessFreeContour.lua

@@ -1,4 +1,4 @@
--- ProcessFreeContour.lua by Egaltech s.r.l. 2022/11/03
+-- ProcessFreeContour.lua by Egaltech s.r.l. 2023/03/03
 -- Gestione calcolo profilo libero per Travi
 -- 2022/08/23 Aggiunta la funzione MakeByMark per la gestione del caso P13=10
 -- 2022/09/21 In MakeByMill aggiunto messaggio per elevazione non raggiunta.
@@ -6,7 +6,7 @@
 -- 2022/11/09 Aggiunta la gestione della chiamata della FreeContour da parte della SimpleScarf.
 -- 2022/11/24 In MakeByMill aggiunta la lavorazione sopra/sotto nel caso di testa sotto
 --            In MakeByMill se BeamData forza lettura codolo da Q questo viene sempre fatto indipendentemente dalle dimensioni della feature
-
+-- 2023/03/03 Corretta MakeByMark ( non definiti b3Raw e b3Aux ).
 
 -- Tabella per definizione modulo
 local ProcessFreeContour = {}
@@ -782,7 +782,9 @@ local function MakeByPocket( Proc, nPhase, nRawId, nPartId, dOvmHead)
 end
 
 ---------------------------------------------------------------------
-local function MakeByMark( Proc, nRawId, b3Raw, nPartId)
+local function MakeByMark( Proc, nRawId, nPartId)
+   -- ingombro del grezzo
+   local b3Raw = EgtGetRawPartBBox( nRawId)
    -- ingombro del pezzo
    local Ls = EgtGetFirstNameInGroup( nPartId, 'Box')
    local b3Solid = EgtGetBBoxGlob( Ls or GDB_ID.NULL, GDB_BB.STANDARD)
@@ -802,6 +804,7 @@ local function MakeByMark( Proc, nRawId, b3Raw, nPartId)
    -- recupero i dati della curva e del profilo
    local dDepth = abs( EgtCurveThickness( AuxId))
    local vtExtr = EgtCurveExtrusion( AuxId, GDB_RT.GLOB)
+   local b3Aux = EgtGetBBoxGlob( AuxId, GDB_BB.STANDARD)
    local bToolInv = ( vtExtr:getZ() < -0.1 and b3Aux:getDimZ() > b3Raw:getDimZ() - 5)
    -- verifico che la marcatura non sia orientata verso il basso (-5 deg)
    if vtExtr:getZ() < - 0.1 and not BD.DOWN_HEAD and not BD.TURN then
@@ -870,7 +873,7 @@ function ProcessFreeContour.Make( Proc, nPhase, nRawId, nPartId, dOvmHead)
       local nCntType = EgtGetInfo( Proc.Id, 'CNT_TYPE', 'i') or 0
       -- se marcatura
       if nCntType == 10 then
-         return MakeByMark( Proc, nRawId, b3Raw, nPartId)
+         return MakeByMark( Proc, nRawId, nPartId)
       -- se fresatura
       else
          return MakeByMill( Proc, nPhase, nRawId, nPartId, dOvmHead)

LuaLibs/ProcessLapJoint.lua

@@ -62,7 +62,8 @@
 -- 2023/01/19 In MakeMoreFaces -> MakeBySideMill aggiunto controllo che lo step finale non superi lo spessore utensile.
 -- 2023/01/24 In MakeByPocket gestito caso il caso in cui veniva applicata una fresatura con percorso vuoto. Ora viene rimossa e la tasca viene fatta con lama.
 -- 2023/02/06 Alla MakeDrillOnCorner aggiunto controllo distanza di sicurezza minima.
--- 2023/02/16 Piccola correziona alla scelta utensile di svuotatura.
+-- 2023/02/16 Piccola correzione alla scelta utensile di svuotatura.
+-- 2023/02/21 Piccola correzione alla MakeByPocket.
 
 -- Tabella per definizione modulo
 local ProcessLapJoint = {}
@@ -3503,22 +3504,21 @@ local function MakeByPockets( Proc, nPhase, nRawId, nPartId, nChamfer, dDepthCha
          local bMakeContour = false
          local sMilling
          if dFacElev < dMinFaceElevForPocket and ( bIsU or bIsL) and ( Proc.Fct == 2 or Proc.Fct == 3) and abs( vtN:getZ()) > 0.996 then
-            bMakeContour = true
             -- recupero la lavorazione di contornatura
             sMilling = ML.FindMilling( 'Prof', nil, nil, nil, nil, not bMillDown, bMillDown)
             if not sMilling then
                local sMyWarn = 'Warning : Prof not found in library'
                EgtOutLog( sMyWarn)
-               return true, sMyWarn
             end
             -- recupero i dati dell'utensile
             dDiamTool = 50
             dMaxDepth = 0
-            if EgtMdbSetCurrMachining( sMilling) then
+            if sMilling and EgtMdbSetCurrMachining( sMilling) then
                local sTuuid = EgtMdbGetCurrMachiningParam( MCH_MP.TUUID)
                if EgtTdbSetCurrTool( EgtTdbGetToolFromUUID( sTuuid) or '') then
                   dDiamTool = EgtTdbGetCurrToolParam( MCH_TP.DIAM) or dMillDiam
                   dMaxDepth = EgtTdbGetCurrToolMaxDepth() or dToolMaxDepth
+                  bMakeContour = true
                end
             end
          end

LuaLibs/ProcessLongCut.lua

@@ -20,6 +20,8 @@
 -- 2023/01/27 In MakeSideFace il prolungamento di uscita è ora fissato a 10 mm.
 -- 2023/01/27 In caso di lavorazione aggiuntiva con fresa a catena il taglio con lama da sotto viene effettuato a step.
 -- 2023/02/15 Migliorato verso di avanzamento della lama.
+-- 2023/02/21 Verso di avanzamento della lama migliorato anche con lama LC.
+-- 2023/02/22 Nuova gestione del verso di avanzamento ottimale che contempla tutti i casi.
 
 -- Tabella per definizione modulo
 local ProcessLongCut = {}
@@ -848,10 +850,9 @@ 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 i == 1 or i == nC - 1), MCH_SCC.ADIR_XP, MCH_SCC.ADIR_XM)
+         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
             local nStep = 1
             if k == 2 then nStep = nStepDownBlade end
@@ -921,33 +922,75 @@ function ProcessLongCut.Make( Proc, nPhase, nRawId, nPartId, bCustUseBlade, nCus
                if ( not bFront and k == 1) or ( bFront and k == 2) then
                   dSal, dEal = dEal, dSal
                end
-    
+               
+               -- settaggio di workside, uso faccia e eventuale inversione
+               -- verifico lama in uso e imposto uso faccia
+               local bIsTopBladeCurrent
+               local nFaceUseCurrent
                if bCanUseBlade and bCanUseUnderBlade then
-                  EgtSetMachiningParam( MCH_MP.INVERT, true)
-                  EgtSetMachiningParam( MCH_MP.WORKSIDE, MCH_MILL_WS.RIGHT)
-                  dSal, dEal = dEal, dSal
-                  -- imposto uso della faccia
-                  EgtSetMachiningParam( MCH_MP.FACEUSE, EgtIf( k == 1, nFaceUse2, nFaceUse))
-               elseif bCanUseBlade and BD.USE_LONGCUT then
-                  EgtSetMachiningParam( MCH_MP.INVERT, true)
-                  EgtSetMachiningParam( MCH_MP.WORKSIDE, MCH_MILL_WS.RIGHT)
-                  dSal, dEal = dEal, dSal
-                  -- imposto uso della faccia
-                  EgtSetMachiningParam( MCH_MP.FACEUSE, EgtIf( k == 1, nFaceUse2, nFaceUse))
-               elseif bCanUseUnderBlade then
-                  if abs(nSide) ~= 2 then
-                     EgtSetMachiningParam( MCH_MP.WORKSIDE, MCH_MILL_WS.LEFT)
+                  if k == 1 then
+                     bIsTopBladeCurrent = true
+                     nFaceUseCurrent = nFaceUse2
+                  else
+                     bIsTopBladeCurrent = false
+                     nFaceUseCurrent = nFaceUse
+                  end
+               elseif bCanUseUnderBlade then
+                  if k == 1 then
+                     bIsTopBladeCurrent = false
+                     nFaceUseCurrent = nFaceUse
+                  else
+                     bIsTopBladeCurrent = false
+                     nFaceUseCurrent = nFaceUse2
                   end
-                  -- imposto uso della faccia
-                  EgtSetMachiningParam( MCH_MP.FACEUSE, EgtIf( k == 1, nFaceUse, nFaceUse2))
                else
-                  EgtSetMachiningParam( MCH_MP.INVERT, false)
-                  EgtSetMachiningParam( MCH_MP.WORKSIDE, MCH_MILL_WS.LEFT)
-                  dSal, dEal = dEal, dSal
-                  -- imposto uso della faccia
-                  EgtSetMachiningParam( MCH_MP.FACEUSE, EgtIf( k == 1, nFaceUse, nFaceUse2))
+                  if k == 1 then
+                     bIsTopBladeCurrent = true
+                     nFaceUseCurrent = nFaceUse
+                  else
+                     bIsTopBladeCurrent = true
+                     nFaceUseCurrent = nFaceUse2
+                  end
                end
 
+               -- recupero alcune informazioni utili dalla lavorazione attuale
+               local bIsCurrentBladeCW
+               local bIsCurrentMachiningInverted
+               if bIsTopBladeCurrent then
+                  EgtMdbSetCurrMachining( sCutting)
+               else
+                  EgtMdbSetCurrMachining( sCuttingDn)
+               end
+               bIsCurrentBladeCW = EgtMdbGetCurrMachiningParam( MCH_MP.SPEED) < 0
+               bIsCurrentMachiningInverted = EgtMdbGetCurrMachiningParam( MCH_MP.INVERT)
+
+               -- imposto la direzione di lavoro per avere scarico del truciolo ottimale
+               local nWorkSide, bInvert
+               if not bIsTopBladeCurrent and abs( nSide) ~= 2 then
+                  if bIsCurrentBladeCW then
+                     nWorkSide = MCH_MILL_WS.LEFT
+                     bInvert = true
+                     dSal, dEal = dEal, dSal
+                  else
+                     nWorkSide = MCH_MILL_WS.RIGHT
+                     bInvert = false
+                  end
+               else
+                  if bIsCurrentBladeCW then
+                     nWorkSide = MCH_MILL_WS.LEFT
+                     bInvert = false
+                  else
+                     nWorkSide = MCH_MILL_WS.RIGHT
+                     bInvert = true
+                     dSal, dEal = dEal, dSal
+                  end
+               end
+
+               -- setto la lavorazione con i valori calcolati
+               EgtSetMachiningParam( MCH_MP.INVERT, bInvert)
+               EgtSetMachiningParam( MCH_MP.WORKSIDE, nWorkSide)
+               EgtSetMachiningParam( MCH_MP.FACEUSE, nFaceUseCurrent)
+               
                EgtSetMachiningParam( MCH_MP.STARTADDLEN, dSal)
                EgtSetMachiningParam( MCH_MP.ENDADDLEN, dEal)
                -- imposto offset radiale

LuaLibs/ProcessLongDoubleCut.lua

@@ -13,6 +13,8 @@
 -- 2023/01/26 Rimossa la pulitura della faccia laterale nel caso in cui la feature abbia almeno una faccia rivolta verso il basso.
 -- 2023/01/27 In MakeSideFace il prolungamento di uscita è ora fissato a 10 mm.
 -- 2023/02/15 Migliorato verso di avanzamento della lama.
+-- 2023/02/21 Verso di avanzamento della lama migliorato anche con lama LC.
+-- 2023/02/22 Nuova gestione del verso di avanzamento ottimale che contempla tutti i casi.
 
 -- Tabella per definizione modulo
 local ProcessLong2Cut = {}
@@ -528,7 +530,7 @@ function ProcessLong2Cut.Make( Proc, nPhase, nRawId, nPartId, bForcedBladeMaster
             -- Posizione braccio portatesta
             local nSCC = MCH_SCC.NONE
             if not BD.C_SIMM then
-               nSCC = EgtIf( ( i == 1 or i == nC - 1), MCH_SCC.ADIR_XP, MCH_SCC.ADIR_XM)
+               nSCC = EgtIf( ( i == 1 or i == nC - 1), MCH_SCC.ADIR_XM, MCH_SCC.ADIR_XP)
             end
             local nCountToShift = 0
             local bChangeBlade
@@ -688,44 +690,87 @@ function ProcessLong2Cut.Make( Proc, nPhase, nRawId, nPartId, bForcedBladeMaster
                   if ( not bFront and k == 1) or ( bFront and k == 2) then
                      dSal, dEal = dEal, dSal
                   end
+                  
+                  -- settaggio di workside, uso faccia e eventuale inversione
+                  -- verifico lama in uso e imposto uso faccia
+                  local bIsTopBladeCurrent
+                  local nFaceUseCurrent
                   if bCanUseBlade and bCanUseUnderBlade then
-                     if bCanUseBlade and nSide == -1 then
-                        EgtSetMachiningParam( MCH_MP.WORKSIDE, MCH_MILL_WS.LEFT)
-                        -- imposto uso della faccia
-                        EgtSetMachiningParam( MCH_MP.FACEUSE, EgtIf( k == 1, nFaceUse2, nFaceUse))
+                     if nSide == -1 then
+                        if k == 1 then
+                           bIsTopBladeCurrent = true
+                           nFaceUseCurrent = nFaceUse2
+                        else
+                           bIsTopBladeCurrent = false
+                           nFaceUseCurrent = nFaceUse
+                        end
                      else
-                        EgtSetMachiningParam( MCH_MP.INVERT, true)
-                        EgtSetMachiningParam( MCH_MP.WORKSIDE, MCH_MILL_WS.RIGHT)
-                        -- imposto uso della faccia
-                        EgtSetMachiningParam( MCH_MP.FACEUSE, EgtIf( k == 1, nFaceUse, nFaceUse2))
+                        if k == 1 then
+                           bIsTopBladeCurrent = false
+                           nFaceUseCurrent = nFaceUse
+                        else
+                           bIsTopBladeCurrent = true
+                           nFaceUseCurrent = nFaceUse2
+                        end
                      end
-                  elseif bCanUseBlade and BD.USE_LONGCUT then
-                     EgtSetMachiningParam( MCH_MP.INVERT, true)
-                     EgtSetMachiningParam( MCH_MP.WORKSIDE, MCH_MILL_WS.RIGHT)
-                     dSal, dEal = dEal, dSal
-                     -- imposto uso della faccia
-                     EgtSetMachiningParam( MCH_MP.FACEUSE, EgtIf( k == 1, nFaceUse, nFaceUse2))
                   elseif bCanUseUnderBlade then
-                     if nSide ~= 0 then
-                        EgtSetMachiningParam( MCH_MP.WORKSIDE, MCH_MILL_WS.LEFT)
-                     end
-                     -- imposto uso della faccia
-                     EgtSetMachiningParam( MCH_MP.FACEUSE, EgtIf( k == 1, nFaceUse, nFaceUse2))
-                  else
-                     if bCanUseBlade and nSide == -1 then
-                        EgtSetMachiningParam( MCH_MP.WORKSIDE, MCH_MILL_WS.LEFT)
+                     if k == 1 then
+                        bIsTopBladeCurrent = false
+                        nFaceUseCurrent = nFaceUse
                      else
-                        EgtSetMachiningParam( MCH_MP.INVERT, false)
-                        EgtSetMachiningParam( MCH_MP.WORKSIDE, MCH_MILL_WS.LEFT)
+                        bIsTopBladeCurrent = false
+                        nFaceUseCurrent = nFaceUse2
+                     end
+                  else
+                     if k == 1 then
+                        bIsTopBladeCurrent = true
+                        nFaceUseCurrent = nFaceUse
+                     else
+                        bIsTopBladeCurrent = true
+                        nFaceUseCurrent = nFaceUse2
+                     end
+                  end
+
+                  -- recupero alcune informazioni utili dalla lavorazione attuale
+                  local bIsCurrentBladeCW
+                  local bIsCurrentMachiningInverted
+                  if bIsTopBladeCurrent then
+                     EgtMdbSetCurrMachining( sCutting)
+                  else
+                     EgtMdbSetCurrMachining( sCuttingDn)
+                  end
+                  bIsCurrentBladeCW = EgtMdbGetCurrMachiningParam( MCH_MP.SPEED) < 0
+                  bIsCurrentMachiningInverted = EgtMdbGetCurrMachiningParam( MCH_MP.INVERT)
+
+                  -- imposto la direzione di lavoro per avere scarico del truciolo ottimale
+                  local nWorkSide, bInvert
+                  if ( not bIsTopBladeCurrent and abs( nSide) ~= 0) or ( bCanUseBlade and bCanUseUnderBlade and nSide == -1) then
+                     if bIsCurrentBladeCW then
+                        nWorkSide = MCH_MILL_WS.LEFT
+                        bInvert = true
+                        dSal, dEal = dEal, dSal
+                     else
+                        nWorkSide = MCH_MILL_WS.RIGHT
+                        bInvert = false
+                     end
+                  else
+                     if bIsCurrentBladeCW then
+                        nWorkSide = MCH_MILL_WS.LEFT
+                        bInvert = false
+                     else
+                        nWorkSide = MCH_MILL_WS.RIGHT
+                        bInvert = true
                         dSal, dEal = dEal, dSal
                      end
-                     -- imposto uso della faccia
-                     EgtSetMachiningParam( MCH_MP.FACEUSE, EgtIf( k == 1, nFaceUse, nFaceUse2))
                   end
 
+                  -- setto la lavorazione con i valori calcolati
+                  EgtSetMachiningParam( MCH_MP.INVERT, bInvert)
+                  EgtSetMachiningParam( MCH_MP.WORKSIDE, nWorkSide)
+                  EgtSetMachiningParam( MCH_MP.FACEUSE, nFaceUseCurrent)
+
                   EgtSetMachiningParam( MCH_MP.STARTADDLEN, dSal)
                   EgtSetMachiningParam( MCH_MP.ENDADDLEN, dEal)
-       
                   -- imposto offset radiale
                   EgtSetMachiningParam( MCH_MP.OFFSR, EgtIf( nSide == -1, -dOffset, dOffset))
                   -- imposto attacco/uscita

Version.lua

@@ -0,0 +1,4 @@
+-- Version.lua by Egaltech s.r.l. 2023/03/03
+-- Gestione della versione di Beam
+
+VERSION = '2.5c1'