- in ProcessDrill, per le forature passanti fatte da un solo lato, eventuale inversione foro in base al lato di lavoro e al lato testa dell'utensile scelto (BD.GetSetupInfo)

2.7b2

BatchProcess.lua

@@ -122,13 +122,25 @@ end
 -- Funzione per aggiornare dati ausiliari
 local function UpdateAuxData( sAuxFile)
    local bModif = false
+   local BtlInfoId = EgtGetFirstNameInGroup( GDB_ID.ROOT, 'BtlInfo') or GDB_ID.NULL
    -- Se definito LOAD90, aggiorno
    local sLoad90 = EgtGetStringFromIni( 'AuxData', 'LOAD90', '', sAuxFile) 
    if sLoad90 ~= '' then
-      local BtlInfoId = EgtGetFirstNameInGroup( GDB_ID.ROOT, 'BtlInfo') or GDB_ID.NULL
       EgtSetInfo( BtlInfoId, 'LOAD90', sLoad90)
       bModif = true
    end
+   -- Se definito PROJID, aggiorno
+   local sProjId = EgtGetStringFromIni( 'AuxData', 'PROJID', '', sAuxFile)
+   if sProjId ~= '' then
+      EgtSetInfo( BtlInfoId, 'PROJECTNUMBER', sProjId)
+      bModif = true
+   end
+   -- Se definito PRODID, aggiorno
+   local sProdId = EgtGetStringFromIni( 'AuxData', 'PRODID', '', sAuxFile)
+   if sProdId ~= '' then
+      EgtSetInfo( BtlInfoId, 'PRODID', sProdId)
+      bModif = true
+   end
    return bModif
 end
 

LuaLibs/BeamExec.lua

@@ -1826,7 +1826,10 @@ local function VerifyDrillMirrored( Proc, vProc, b3Raw)
       sDrilling, sType, dMaxDepth = ML.FindDrilling( dDiam, 0, true, false, true)
       dMachiningDepth = dMaxDepth or dMachiningDepth
    end
-   if not sDrilling or ( sType ~= 'Drill' and sType ~= 'Pocket') or not EgtMdbSetCurrMachining( sDrilling) then
+   if not sDrilling
+      or ( sType ~= 'Drill' and ( sType ~= 'Pocket'or ( Proc.Fcs ~= 0 and Proc.Fce ~= 0)))
+      or not EgtMdbSetCurrMachining( sDrilling) then
+
       return
    end
    local dDrillingStep = EgtMdbGetCurrMachiningParam( MCH_MP.STEP)

LuaLibs/ProcessCut.lua

@@ -272,7 +272,7 @@ local function MakeFromTop( sCutting, Proc, nPhase, nRawId, nPartId, dOvmHead, b
    local dNzLimDwnUp = BL.GetNzLimDownUp( b3Raw, vtN)
    local bDownCut = ( vtN:getZ() <= dNzLimDwnUp)
    if bFromBottom == nil then
-      bFromBottom = ( vtN:getZ() > 0.25 and b3Solid:getDimX() <  BD.LEN_SHORT_PART and not Proc.AdvTail and vtN:getX() < 0 and abs( vtN:getY()) < 0.259)
+      bFromBottom = ( vtN:getZ() > 0.25 and ( b3Solid:getDimX() <  BD.LEN_SHORT_PART and BL.IsSplittedPartPhase( nPhase)) and not Proc.AdvTail and vtN:getX() < 0 and abs( vtN:getY()) < 0.259)
    end
    local dMinFeatureLengthForLongCut = EgtIf( BD.C_SIMM, 590, 400)
    -- verifico se da considerare taglio lungo ( non da sotto, inclinato non più di 30deg, largo come la trave e abbastanza lungo)

LuaLibs/ProcessDrill.lua

@@ -482,6 +482,27 @@ function ProcessDrill.Make( Proc, nPhase, nRawId, nPartId)
       EgtOutLog( sErr)
       return false, sErr
    end
+   -- eventuale inversione foro in base al lato di lavoro e al lato testa dell'utensile scelto
+   -- se non già richiesta inversione e foro quasi orizzontale (15deg) passante
+   if not bToInvert and Proc.Flg == 1 and bOpen and abs( vtExtr:getZ()) < 0.259 and abs( vtExtr:getY()) > 0.966 then
+      if BD.GetSetupInfo then
+         if EgtMdbSetCurrMachining( sDrilling or '') then
+            local sTuuid = EgtMdbGetCurrMachiningParam( MCH_MP.TUUID)
+            local sHead = ''
+            if EgtTdbSetCurrTool( EgtTdbGetToolFromUUID( sTuuid or '') or '') then
+               sHead = EgtTdbGetCurrToolParam( MCH_TP.HEAD)
+            end
+            local SetupInfo = BD.GetSetupInfo( sHead)
+            -- lato testa e lato di lavoro devono corrispondere
+            if ( ( SetupInfo.bIsFrontHead == true) and vtExtr:getY() > 10 * GEO.EPS_SMALL)
+               or ( ( SetupInfo.bIsBackHead == false) and vtExtr:getY() < - 10 * GEO.EPS_SMALL) then
+               ptCen = ptCen - vtExtr * dLen
+               vtExtr = - vtExtr
+               bToInvert = true
+            end
+         end
+      end
+   end
    -- Determino la faccia di inizio del foro e dati correlati 
    local nFac, CosB, vFaces = GetHoleStartData( ptCen, vtExtr, b3Solid)
    -- Calcolo acciorciamento affondamento utile per evitare collisione portautensile con faccia

LuaLibs/ProcessFreeContour.lua

@@ -33,6 +33,7 @@ local Q_ONLY_CHAMFER = 'Q00' -- i
 local Q_RADIAL_OFFSET = 'Q06' -- d, valido solo per pocket
 local Q_IGNORE_LASER_PROBLEMS = 'Q07'
 local Q_FORCE_CLAMPABLE_AREA = 'Q08'
+local Q_INVERT_LAST_PATH = 'Q09'
 
 ---------------------------------------------------------------------
 -- Riconoscimento della feature
@@ -588,6 +589,8 @@ local function MakeByMill( Proc, nPhase, nRawId, nPartId, dOvmHead)
          end
       end
    end
+   -- eventuale inversione ultimo segmento
+   local bInvertLastPath = ( ( EgtGetInfo( Proc.Id, Q_INVERT_LAST_PATH, 'd') or 0) == 1)
    -- eseguo
    for i = 1, nStep do
       for j = 1, nDouble do
@@ -630,35 +633,66 @@ local function MakeByMill( Proc, nPhase, nRawId, nPartId, dOvmHead)
          -- aggiungo geometria
          EgtSetMachiningGeometry( {{ AuxId, -1}})
          -- eventuale accorciamento di testa
+         local dStartAddLen, dEndAddLen, dWorkSide, bToolInvert, bInvert
          if ( j == 1 and i > 1) or ( j == 2 and i < nStep) then
-            local dStartAddLen = EgtIf( j == 1, - ( i - 1) * dStep, - ( nStep - i) * dStep)
-            EgtSetMachiningParam( MCH_MP.STARTADDLEN, dStartAddLen)
+            dStartAddLen = EgtIf( j == 1, - ( i - 1) * dStep, - ( nStep - i) * dStep)
          else
-            EgtSetMachiningParam( MCH_MP.STARTADDLEN, EgtIf( j == 1, dStartAddSpec, dEndAddSpec))
+            dStartAddLen = EgtIf( j == 1, dStartAddSpec, dEndAddSpec)
          end
          -- eventuale accorciamento di coda
          if ( j == 1 and i < nStep) or ( j == 2 and i > 1) then
-            local dEndAddLen = EgtIf( j == 1, - ( nStep - i) * dStep, - ( i - 1) * dStep)
-            EgtSetMachiningParam( MCH_MP.ENDADDLEN, dEndAddLen)
+            dEndAddLen = EgtIf( j == 1, - ( nStep - i) * dStep, - ( i - 1) * dStep)
          else
-            EgtSetMachiningParam( MCH_MP.ENDADDLEN, EgtIf( j == 1, dEndAddSpec, dStartAddSpec))
+            dEndAddLen = EgtIf( j == 1, dEndAddSpec, dStartAddSpec)
          end
          -- se estrusione da sotto, inverto direzione fresa
          if ( j == 1 and bToolInv) or ( j == 2 and not bToolInv) then
-            EgtSetMachiningParam( MCH_MP.TOOLINVERT, true)
+            bToolInvert = true
+         else
+            bToolInvert = false
          end
          -- se seconda passata, inverto direzione di lavoro
          if j == 2 then
-            EgtSetMachiningParam( MCH_MP.INVERT, true)
+            bInvert = true
+         else
+            bInvert = false
          end
+         
          -- assegno lato di lavoro
          if Proc.Grp == 0 then
-            EgtSetMachiningParam( MCH_MP.WORKSIDE, MCH_MILL_WS.CENTER)
+            dWorkSide = MCH_MILL_WS.CENTER
          elseif ( Proc.Grp == 3 and not bToolInv) or ( Proc.Grp == 4 and bToolInv) or ( Proc.Grp == 1 and bToolInv) or ( Proc.Grp == 2 and bToolInv) then
-            EgtSetMachiningParam( MCH_MP.WORKSIDE, MCH_MILL_WS.LEFT)
+            dWorkSide = MCH_MILL_WS.LEFT
          elseif ( Proc.Grp == 3 and bToolInv) or ( Proc.Grp == 4 and not bToolInv) or ( Proc.Grp == 1 and not bToolInv) or ( Proc.Grp == 2 and not bToolInv) then
-            EgtSetMachiningParam( MCH_MP.WORKSIDE, MCH_MILL_WS.RIGHT)
+            dWorkSide = MCH_MILL_WS.RIGHT
          end
+
+         -- se ultimo step da invertire
+         if i == nStep and bInvertLastPath then
+            -- se profilo orizzontale
+            if abs( vtExtr:getZ()) < 10 * GEO.EPS_SMALL then
+               dStartAddLen, dEndAddLen = dEndAddLen, dStartAddLen
+               bInvert = not( bInvert)
+               bToolInvert = not( bToolInvert)
+            else
+               dStartAddLen, dEndAddLen = dEndAddLen, dStartAddLen
+               bInvert = not( bInvert)
+               if dWorkSide == MCH_MILL_WS.LEFT then
+                  dWorkSide = MCH_MILL_WS.RIGHT
+               elseif dWorkSide == MCH_MILL_WS.RIGHT then
+                  dWorkSide = MCH_MILL_WS.LEFT
+               end
+            end
+         end
+
+         -- setto i valori
+         EgtSetMachiningParam( MCH_MP.STARTADDLEN, dStartAddLen)
+         EgtSetMachiningParam( MCH_MP.ENDADDLEN, dEndAddLen)
+         EgtSetMachiningParam( MCH_MP.TOOLINVERT, bToolInvert)
+         EgtSetMachiningParam( MCH_MP.INVERT, bInvert)
+         EgtSetMachiningParam( MCH_MP.WORKSIDE, dWorkSide)
+
+
          -- posizione braccio porta testa
          local nSCC = MCH_SCC.NONE
          if not BD.C_SIMM then

LuaLibs/ProcessHeadCut.lua

@@ -365,7 +365,15 @@ function ProcessHeadCut.Make( Proc, nPhase, nRawId, nPartId, dOvmHead, bNeedHCut
    -- eventuali informazioni sul tipo di finitura
    local nQ05 = EgtGetInfo( nOriId or GDB_ID.NULL, 'Q05', 'i') or 0
    -- recupero la lavorazione
-   local sCutting = ML.FindCutting( 'HeadSide', nil, nil, nil, 'Longest')
+   -- TODO questa parte andrà cambiata quando si gestiranno i volumi liberi in cui girare da mlse
+   local dMinWidthForBigBlade = 300
+   local dMaxHeightForBigBlade = 300
+   local sCutting
+   if b3Raw:getDimY() > dMinWidthForBigBlade and b3Raw:getDimZ() < dMaxHeightForBigBlade then
+      sCutting = ML.FindCutting( 'HeadSide', nil, nil, nil, 'Longest')
+   else
+      sCutting = ML.FindCutting( 'HeadSide')
+   end
    if not sCutting then
       local sErr = 'Error : cutting not found in library'
       EgtOutLog( sErr)

LuaLibs/ProcessRidgeLap.lua

@@ -50,6 +50,7 @@ end
 -- Applicazione della lavorazione
 function ProcessRidgeLap.Make( Proc, nPhase, nRawId, nPartId, dOvmHead)
    local nForceUseBladeOnNotContinueFace = EgtGetInfo( Proc.Id, 'Q04', 'i') or 0
+   local bUseMill = ( EgtGetInfo( Proc.Id, 'Q05', 'i') or 0) == 1
    -- recupero l'ingombro del grezzo di appartenenza
    local b3Raw = EgtGetRawPartBBox( nRawId)
    -- ingombro del pezzo
@@ -139,6 +140,9 @@ function ProcessRidgeLap.Make( Proc, nPhase, nRawId, nPartId, dOvmHead)
          if BL.IsCutNeeded( CutProc, b3Raw, dOvmHead) then
             local bOk, sErr = Cut.Make( CutProc, nPhase, nRawId, nPartId, dOvmHead, false)
             if not bOk then return bOk, sErr end
+         elseif bUseMill then
+            Proc.bForceMill = true
+            return LapJoint.Make( Proc, nPhase, nRawId, nPartId, dOvmHead)
          elseif nForceUseBladeOnNotContinueFace > 0 then
             EgtSurfTmRemoveFacet( Proc.Id, vFaceOrd[1] - 1)
             Proc.Fct = Proc.Fct - 1

LuaLibs/ProcessScarfJoint.lua

@@ -443,7 +443,7 @@ function ProcessScarfJoint.Make( Proc, nPhase, nRawId, nPartId, dOvmHead, dOvmTa
          if not nGoodFace1 or nGoodFace1 == 0 then
             -- inserisco la lavorazione
             local vtRef2 = EgtIf( abs(vtRef:getZ()) < GEO.EPS_SMALL, Z_AX(), EgtIf( bHead, Y_AX(), -Y_AX()))
-            bOkd, sErrD = Fbs.MakeOne( nFace4, nGoodFace4 - 1, sCutting, dSawDiam, vtRef2, nil, 0, BD.CUT_SIC, 0, 0, 0, nil, b3Raw)
+            bOkd, sErrD = Fbs.MakeOne( nFace4, nGoodFace4 - 1, sCutting, dSawDiam, vtRef2, nil, BD.CUT_EXTRA, BD.CUT_SIC, 0, 0, 0, nil, b3Raw)
             if not bOkd then return bOkd, sErrD end
             -- lavoro la faccia opposta (definita dal parametro P11)
             if vFaceOrd[3] ~= 0 then

LuaLibs/ProcessSplit.lua

@@ -573,7 +573,15 @@ function ProcessSplit.Make( Proc, nPhase, nRawId, nPartId, nOrd, sDownOrSideOrSt
       if not bOkc then return bOkc, sErrC end
    end
    -- recupero la lavorazione
-   local sCutting = ML.FindCutting( 'TailSide', nil, nil, nil, 'Longest')
+   -- TODO questa parte andrà cambiata quando si gestiranno i volumi liberi in cui girare da mlse
+   local dMinWidthForBigBlade = 300
+   local dMaxHeightForBigBlade = 300
+   local sCutting
+   if b3Raw:getDimY() > dMinWidthForBigBlade and b3Raw:getDimZ() < dMaxHeightForBigBlade then
+      sCutting = ML.FindCutting( 'TailSide', nil, nil, nil, 'Longest')
+   else
+      sCutting = ML.FindCutting( 'TailSide')
+   end
    if not sCutting then
       local sErr = 'Error on process ' .. tostring( Proc.Id) .. ' cutting not found in library'
       EgtOutLog( sErr)

UpdateLog.txt

@@ -1,8 +1,27 @@
            ==== Beam Update Log ====
 
+Versione 2.7xx ()
+- Modif : in forature passanti orizzontali fatte da un solo lato, si inverte il lato di lavoro in base all'utensile scelto
+
+Versione 2.7b2 (05/02/2025)
+- Modif : si consentono DrillPocket in doppio solo se foro non passante
+
+Versione 2.7b1 (04/02/2025)
+- Modif : in tagli di testa e coda l'utilizzo delle lame grandi (es: 1000 su 15003TMAX) è limitato ai pezzi più bassi di 300 mm e più larghi di 300 mm
+
+Versione 2.7a2 (23/01/2025)
+- Added : in RidgeLap aggiunta Q05 per usare la fresa tipo LapJoint
+- Fixed : in BatchProcess (Ts7) piccola correzione
+- Fixed : in ScarfJoint, in caso di taglio dal lato, aggiunta estensione oltre il bordo
+
+Versione 2.7a1 (21/01/2025)
+- Added : in FreeContour aggiunta Q09 per inversione ultima lavorazione
+- Modif : in Cut, si taglia dal basso solo se il pezzo piccolo è già staccato dalla barra
+- Modif : in BatchProcess (Ts7) aggiunta scrittura id progetto e produzione in Btm
+
 Versione 2.6l2 (07/01/2025)
 - Added : in LapJoint abiitata SideMillAsBlade anche da sotto e varie migliorie
-- Modif : in LapJoint aggiunta Q_SIDE_ROUGH_TOOL=4 per lavorare con fresa evitando tasche aperte testa/coda
+- Modif : in LapJoint L030 aggiunto Q03=4 per lavorare con fresa evitando tasche aperte testa/coda
 - Modif : in LapJoint modifiche per gestione fresa a disco su aggregato
 - Modif : in fresature con lama o simili aggiunta la possibilità di invertire il senso di percorrenza calcolato in automatico
 - Modif : migliorie all'ordinamento

Version.lua

@@ -2,5 +2,5 @@
 -- Gestione della versione di Beam
 
 NAME = 'Beam'
-VERSION = '2.6l2'
+VERSION = '2.7b2'
 MIN_EXE = '2.6e5'