- in lavorazione tipo BHSideMIll migliorati allungamenti in caso di feature obliqua

- in LapJoint in lavorazione tipo BH permessa U passante non parallela agli assi principali

BatchProcess.lua

@@ -132,7 +132,7 @@ local function UpdateAuxData( sAuxFile)
    -- Se definito PROJID, aggiorno
    local sProjId = EgtGetStringFromIni( 'AuxData', 'PROJID', '', sAuxFile)
    if sProjId ~= '' then
-      EgtSetInfo( BtlInfoId, 'PROJECT', sProjId)
+      EgtSetInfo( BtlInfoId, 'PROJECTNUMBER', sProjId)
       bModif = true
    end
    -- Se definito PRODID, aggiorno

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/DiceCut.lua

@@ -407,7 +407,7 @@ function DiceCut.GetDice( nParent, BBoxRawPart, ptCPlanes, vtNPlanes, bGetOrtoPl
    local dNzLimDwnUp = BL.GetNzLimDownUp( BBoxRawPart)
 
    -- se non c'è testa da sotto e normali senza componenti in Y con faccia quasi verticale e trave non alta, uso per offset i limiti dei tagli di testa e coda
-   if not BD.DOWN_HEAD and abs( vtNPlanes:getY()) < 0.1 and vtNPlanes:getZ() < 0.7071 and ( not vtNBond or abs( vtNBond:getY()) < 0.1) and BBoxRawPart:getDimZ() < BD.MIN_DIM_HBEAM then
+   if not BD.TURN and not BD.DOWN_HEAD and abs( vtNPlanes:getY()) < 0.1 and vtNPlanes:getZ() < 0.7071 and ( not vtNBond or abs( vtNBond:getY()) < 0.1) and BBoxRawPart:getDimZ() < BD.MIN_DIM_HBEAM then
       OffsetO = dOrthoMaxDim or BD.MAX_DIM_HTCUT
    end
 

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/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/ProcessLapJoint.lua

@@ -414,7 +414,7 @@ local function VerifyPocket( Proc, dDiam, dDepth, dMaxTotLen, sMchFindMaster, bP
 end
 
 ---------------------------------------------------------------------
-local function VerifyBHSideMill( Proc, bIsU, bIsL, bSinglePart, bPrevBhSideMill)
+local function VerifyBHSideMill( Proc, bIsU, bIsL, bSinglePart, bPrevBhSideMill, b3Raw)
 
    -- se non feature BlockHausHalfLap e non abilitato parametro Q per lavorarlo di fianco e non macchina BH esco
    local nUseSideTool = EgtGetInfo( Proc.Id, Q_SIDE_ROUGH_TOOL, 'i') or 0
@@ -444,9 +444,13 @@ local function VerifyBHSideMill( Proc, bIsU, bIsL, bSinglePart, bPrevBhSideMill)
 
    -- le facce devono contenere X e quelle di chiusura devono essere perpendicolari a X
    local bStopY, bStopZ
+   if not Proc.TopologyLongName then
+      Topology.Classify( Proc, b3Raw)
+   end
    for i = 1, Proc.Fct do
       local vtN = EgtSurfTmFacetNormVersor( Proc.Id, i-1, GDB_ID.ROOT)
-      if abs( vtN:getX()) > 0.001 and abs( vtN:getX()) < 0.999962 then 
+      -- permessa U passante non parallela agli assi principali
+      if abs( vtN:getX()) > 0.001 and abs( vtN:getX()) < 0.999962 and Proc.TopologyLongName ~= "Groove-Through-RightAngles-NotParallel-3" then
          return false
       end
       if abs( vtN:getY()) > 0.866 then bStopY = true end
@@ -776,7 +780,7 @@ function ProcessLapJoint.IsTailFeature( Proc, b3Raw)
    -- in base al tipo di feature attribuisco il significato dei parametri Q
    AssignQIdent( Proc)
    -- se può essere fatto con utensile tipo lama
-   local bUseBHSideMill, bHead, bHeadDir = VerifyBHSideMill( Proc)
+   local bUseBHSideMill, bHead, bHeadDir = VerifyBHSideMill( Proc, nil, nil, nil, nil, b3Raw)
    if bUseBHSideMill then
       Proc.HeadDir = bHeadDir
    end
@@ -836,7 +840,7 @@ function ProcessLapJoint.Classify( Proc, b3Raw)
    -- se 2 facce
    elseif Proc.Fct == 2 then
       -- se può essere fatto con utensile tipo lama
-      local bUseBHSideMill = VerifyBHSideMill( Proc)
+      local bUseBHSideMill = VerifyBHSideMill( Proc, nil, nil, nil, nil, b3Raw)
       if bUseBHSideMill then
          return true, false
       end
@@ -916,7 +920,7 @@ function ProcessLapJoint.Classify( Proc, b3Raw)
          local rfFac, dH, dV = EgtSurfTmFacetMinAreaRectangle( Proc.Id, nFacInd, GDB_ID.ROOT)
          local vtN = EgtSurfTmFacetNormVersor( Proc.Id, nFacInd, GDB_ID.ROOT)
          -- se può essere fatto con utensile tipo lama
-         local bUseBHSideMill, _, _, _, _, dTDiam = VerifyBHSideMill( Proc)
+         local bUseBHSideMill, _, _, _, _, dTDiam = VerifyBHSideMill( Proc, nil, nil, nil, nil, b3Raw)
          if bUseBHSideMill then
             if vtN:getZ() > -0.5 or b3Raw:getDimZ() - Proc.Box:getDimZ() < ( BD.MAX_DIST_BH_FROM_BOTTOM or 395) - dTDiam / 2 then
                return true, false
@@ -5946,7 +5950,7 @@ local function MakeMoreFaces( Proc, nPhase, nRawId, nPartId, dOvmHead, bSinglePa
       local bIsRabbetAlongXTowardsBottom = ( Proc.TopologyLongName == 'Rabbet-Through-RightAngles-Parallel-2' and ( Proc.AffectedFaces.Front or Proc.AffectedFaces.Back) and Proc.AffectedFaces.Bottom and Proc.AffectedFaces.Left and Proc.AffectedFaces.Right)
       local bForceSideMill = ( Proc.AffectedFaces.Front or Proc.AffectedFaces.Back) and ( bIsRabbetAlongXTowardsBottom or ( ( EgtGetInfo( Proc.Id, Q_SIDE_ROUGH_TOOL, 'i') == 2 or ( EgtGetInfo( Proc.Id, Q_SIDE_ROUGH_TOOL, 'i') == 3 and vtN:getZ() < 0.985)) and ( ( Proc.Fct == 4 and ( Proc.AffectedFaces.Front or Proc.AffectedFaces.Back)) or Proc.Fct == 3 or Proc.Fct == 2)))
       -- se fattibile con fresa BH di fianco e spessore utensile inferiore alla larghezza faccia
-      local bMakeBySideMill, bHead, bHeadDir, sMilling, dMaxMat, dToolDiam = VerifyBHSideMill( Proc, bIsU, bIsL, bSinglePart, bPrevBhSideMill)
+      local bMakeBySideMill, bHead, bHeadDir, sMilling, dMaxMat, dToolDiam = VerifyBHSideMill( Proc, bIsU, bIsL, bSinglePart, bPrevBhSideMill, b3Raw)
       if bPrevBhSideMill == nil then
          bPrevBhSideMill = bMakeBySideMill
       end
@@ -6001,6 +6005,12 @@ local function MakeMoreFaces( Proc, nPhase, nRawId, nPartId, dOvmHead, bSinglePa
                EgtSetMachiningParam( MCH_MP.LITANG, 0)
                EgtSetMachiningParam( MCH_MP.LIPERP, dFacElev + BD.CUT_SIC)
                EgtSetMachiningParam( MCH_MP.LEADOUTTYPE, MCH_MILL_LO.AS_LI)
+               local vtN2 = EgtSurfTmFacetNormVersor( Proc.Id, EgtIf( nFacInd == 0, 1, 0), GDB_ID.ROOT)
+               if vtN2 then
+                  local AddLen = sqrt( dV^2 * ( ( 1 / abs( vtN2:getX())^2) - 1)) + BD.CUT_SIC
+                  EgtSetMachiningParam( MCH_MP.STARTADDLEN, AddLen)
+                  EgtSetMachiningParam( MCH_MP.ENDADDLEN, AddLen)
+               end
             else
                EgtSetMachiningParam( MCH_MP.STARTADDLEN, 0)
                EgtSetMachiningParam( MCH_MP.LITANG, dToolDiam / 2 + BD.CUT_SIC)
@@ -7483,7 +7493,7 @@ function ProcessLapJoint.Make( Proc, nPhase, nRawId, nPartId, dOvmHead)
             -- determino l'angolo tra le facce
             local bAdj, _, _, dAng = EgtSurfTmFacetsContact( Proc.Id, 0, 1, GDB_ID.ROOT)
             -- se con BH
-            if VerifyBHSideMill( Proc) then
+            if VerifyBHSideMill( Proc, nil, nil, nil, nil, b3Raw) then
                return MakeMoreFaces( Proc, nPhase, nRawId, nPartId, dOvmHead, true)
             -- se ortogonali e non forzata lama, con fresa
             elseif not bUseBlade then

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,5 +1,20 @@
            ==== 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
+- MOdif : in LapJoint in lavorazione tipo BH permessa U passante non parallela agli assi principali
+
+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

Version.lua

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