Merge commit '93fe741f8439bf0abf51c0ab2e086e07fc77a58d'

- aggiunti nuovi parametri alla chiamata della funzione GetChainSawStartAngs da WallData della macchina.

BatchProcess.lua

@@ -280,6 +280,11 @@ if bToProcess then
    -- Ne recupero la posizione
    for i = 1, #vWall do
       local PosX = EgtGetInfo( vWall[i].Id, 'POSX', 'd')
+      local PosZ = EgtGetInfo( vWall[i].Id, 'POSZ', 'd')
+      if bProj and WD.DEFAULT_RAW_NO_EXTRA_WIDTH and #vWall == 1 then
+         PosX = 0
+         PosZ = 0
+      end
       vWall[i].PosX = PosX + min( dExtraL, 1200)
       if WD.USE_POSY then
          local PosY = EgtGetInfo( vWall[i].Id, 'POSY', 'd')
@@ -287,7 +292,6 @@ if bToProcess then
       else
          vWall[i].PosY = 0
       end
-      local PosZ = EgtGetInfo( vWall[i].Id, 'POSZ', 'd')
       vWall[i].PosZ = PosZ + dExtraW / 2
    end
 
@@ -368,6 +372,12 @@ if bToProcess then
       PostErrView( WALL.ERR, WALL.MSG)
       return
    end
+
+   -- se impostato flag apposito, in vista il grezzo è uguale al pezzo
+   if bProj and WD.DEFAULT_RAW_NO_EXTRA_WIDTH and #vWall == 1 then
+      dRawL = vWall[1].Box:getDimX()
+      dRawW = vWall[1].Box:getDimY()
+   end
    
    -- Verifico dimensioni massime grezzo
    if dRawL > WD.MAX_LENGTH + 10 * GEO.EPS_SMALL or dRawW > WD.MAX_WIDTH + 10 * GEO.EPS_SMALL or dRawH > WD.MAX_HEIGHT + 10 * GEO.EPS_SMALL then
@@ -501,7 +511,7 @@ else
    -- Passo in modalità lavora
    EgtSetCurrMachGroup( EgtGetLastMachGroup())
    -- Se necessario eseguo aggiornamento con ricalcolo delle lavorazioni
-   if bToRecalc then
+   if bToRecalc or WALL.FLAG == 3 or WALL.FLAG == 4 then
       EgtOutLog( ' +++ Recalculating all dispositions and machinings >>>')
       EgtImportSetup()
       EgtApplyAllMachinings()
@@ -565,7 +575,8 @@ if  ( WALL.FLAG == 0 and ( bToProcess or bToRecalc)) or WALL.FLAG == 3 or WALL.F
 end
 
 -- *** Genero programma CN *** ( se richiesto)
-if WALL.FLAG == 0 or WALL.FLAG == 4 then
+local bIsGenerationEnabled = ( EgtVerifyKeyOption( 110) == false)
+if bIsGenerationEnabled and ( WALL.FLAG == 0 or WALL.FLAG == 4) then
    EgtOutLog( ' +++ Generating NC part program >>>')
    local sInfo = 'EgtCAM5' .. EgtIf( EgtIs64bit(), ' 64bit', '')
    if EgtGetExeVersion then

BatchProcessNew.lua

@@ -549,7 +549,7 @@ else
    -- Passo in modalità lavora
    EgtSetCurrMachGroup( EgtGetLastMachGroup())
    -- Se necessario eseguo aggiornamento con setup corrente e ricalcolo delle lavorazioni
-   if bToRecalc then
+   if bToRecalc or WALL.FLAG == 3 or WALL.FLAG == 4  then
       EgtOutLog( ' +++ Recalculating all dispositions and machinings >>>')
       EgtImportSetup()
       EgtApplyAllMachinings()
@@ -613,7 +613,7 @@ if  ( WALL.FLAG == 0 and ( bToProcess or bToRecalc)) or WALL.FLAG == 3 or WALL.F
 end
 
 -- *** Genero programma CN *** ( se richiesto)
-local bIsGenerationEnabled = ( EgtGetNumberFromIni( 'Mach', 'NoPartProgram', 0, EgtGetIniFile()) == 0)
+local bIsGenerationEnabled = ( EgtVerifyKeyOption( 110) == false)
 if bIsGenerationEnabled and ( WALL.FLAG == 0 or WALL.FLAG == 4) then
    EgtOutLog( ' +++ Generating NC part program >>>')
    local sInfo = 'EgtCAM5' .. EgtIf( EgtIs64bit(), ' 64bit', '')

LuaLibs/WProcessDrill.lua

@@ -324,32 +324,41 @@ function WPD.Make( Proc, nRawId, b3Raw)
    local bAngledContourDrill = false
    local nAngledContourDrillId = GDB_ID.NULL
    local dReduceDepth = 0
+   local bUseTabs = false
    -- se trovata svuotatura, verifico se richiesta invece contornatura
    if nType == 'Pocket' then
       -- recupero eventuale flag per fare sola contornatura
       local nContourOnly = ( EgtGetInfo( Proc.Id, sContourOnly, 'i') or 0)
       if nContourOnly == 1 then
-         -- imposto riduzione profondita' per evitare distacco pezzo interno
-         dReduceDepth = 5
-         -- se inclinato e passante
-         if abs( vtExtr:getZ()) >= WD.DRILL_VZ_MIN and abs( vtExtr:getZ()) < 0.999  and Proc.Fcs > 0 and Proc.Fce > 0 then
-            -- gruppo ausiliario per preforo
-            local nAddGrpId = WL.GetAddGroup( Proc.PartId)
-            -- ricavo contorno inferiore della superficie
-            local nAngledCircleId, nAngledCircleCnt = EgtExtractSurfTmLoops( Proc.Id, nAddGrpId)
-            local dMinZ = 10000
-            local nMinCircleId = GDB_ID.NULL
-            for Circleindex = 1, nAngledCircleCnt do
-               local b3Circle = EgtGetBBoxGlob( nAngledCircleId + Circleindex -1, GDB_BB.EXACT)
-               if b3Circle:getMin():getZ() < dMinZ then
-                  nMinCircleId = nAngledCircleId + Circleindex -1
+         -- se passante
+         if Proc.Fcs > 0 and Proc.Fce > 0 then
+            -- se inclinato
+            if abs( vtExtr:getZ()) >= WD.DRILL_VZ_MIN and abs( vtExtr:getZ()) < 0.999 then
+               -- gruppo ausiliario per preforo
+               local nAddGrpId = WL.GetAddGroup( Proc.PartId)
+               -- ricavo contorno inferiore della superficie
+               local nAngledCircleId, nAngledCircleCnt = EgtExtractSurfTmLoops( Proc.Id, nAddGrpId)
+               local dMinZ = 10000
+               local nMinCircleId = GDB_ID.NULL
+               for Circleindex = 1, nAngledCircleCnt do
+                  local b3Circle = EgtGetBBoxGlob( nAngledCircleId + Circleindex -1, GDB_BB.EXACT)
+                  if b3Circle:getMin():getZ() < dMinZ then
+                     nMinCircleId = nAngledCircleId + Circleindex -1
+                  end
                end
+               -- estrudo
+               EgtModifyCurveExtrusion( nMinCircleId, vtExtr, GDB_RT.GLOB)
+               EgtModifyCurveThickness( nMinCircleId, dLen)
+               bAngledContourDrill = true
+               nAngledContourDrillId = nMinCircleId
+            -- se non inclinato e abbastanza grande uso i tab
+            -- TODO se si risolve il problema dei tabs non funzionanti sotto ai 200 mm rimuovere il check sul diametro
+            elseif dDiam > 100 - 10 * GEO.EPS_SMALL then
+                  bUseTabs = true
+            -- se non inclinato e piccolo non arrivo sul fondo
+            else
+               dReduceDepth = 5
             end
-            -- estrudo
-            EgtModifyCurveExtrusion( nMinCircleId, vtExtr, GDB_RT.GLOB)
-            EgtModifyCurveThickness( nMinCircleId, dLen)
-            bAngledContourDrill = true
-            nAngledContourDrillId = nMinCircleId
          end
          sDrilling = WM.FindMilling( 'FreeContour', dLen, nil, nil, nil, nil, true)
          if sDrilling then
@@ -515,6 +524,17 @@ function WPD.Make( Proc, nRawId, b3Raw)
       sUserNotes = EgtSetValInNotes( sUserNotes, 'MirrorAx', Proc.MirrorAx)
    end
    EgtSetMachiningParam( MCH_MP.USERNOTES, sUserNotes)
+   if bUseTabs then
+      local dStep = EgtGetMachiningParam( MCH_MP.STEP)
+      EgtSetMachiningParam( MCH_MP.STEPTYPE, MCH_MILL_ST.ONEWAY)
+      EgtSetMachiningParam( MCH_MP.LEAVETAB, true)
+      EgtSetMachiningParam( MCH_MP.TABHEIGHT, EgtClamp( dStep, 0.15 * dDepth, 0.25 * dDepth ))
+      EgtSetMachiningParam( MCH_MP.TABLEN, EgtClamp( 2 * dDiamT, 0.1 * dDiam, 0.2 * dDiam ))
+      EgtSetMachiningParam( MCH_MP.TABANGLE, 45)
+      EgtSetMachiningParam( MCH_MP.TABDIST, 100)
+      EgtSetMachiningParam( MCH_MP.TABMIN, 3)
+      EgtSetMachiningParam( MCH_MP.TABMAX, 3)
+   end
    -- eseguo
    if not EgtApplyMachining( true, false) then
       local _, sErr = EgtGetLastMachMgrError()

LuaLibs/WProcessFreeContour.lua

@@ -1486,9 +1486,11 @@ local function AddMillings( sMilling, vFace, Proc, nRawId, b3Raw, nConeCut, nAdd
          end
          --scrivo nell'operazione il vettore somma delle normali alle superfici che servirà per il doppio
          local vtNSum = Vector3d( 0, 0, 0)
-         for iGeom = 1, #vGeom do
-            local nFace = vGeom[iGeom][2]
-            vtNSum = vtNSum + Proc.Face[ nFace + 1].VtN
+         if Proc.Face and #Proc.Face > 0 then
+            for iGeom = 1, #vGeom do
+               local nFace = vGeom[iGeom][2]
+               vtNSum = vtNSum + Proc.Face[ nFace + 1].VtN
+            end
          end
          EgtSetInfo( nMchId or GDB_ID.NULL, 'NORM_SUM', vtNSum)
          -- eseguo

LuaLibs/WProcessLapJoint.lua

@@ -34,6 +34,7 @@
 --            Miglioramenti sostanziali nella gestione delle tasche.
 -- 2023/11/16 Fresature a salire estese a groove cieche.
 -- 2024/02/20 Piccola correzione ai casi in cui si utilizza il SIDESTEP.
+-- 2024/08/09 In MakeByMill, se fresa Side trovata ma non applicabile, si considera come se non trovata
 
 -- Tabella per definizione modulo
 local WPL = {}
@@ -1218,7 +1219,7 @@ local function MakeByChainSaw( Proc, nFacet, nRawId, b3Raw, dElev, dH, dV)
    local sStartAngs
    if WD.GetChainSawStartAngs then
       local vtN2 = EgtSurfTmFacetNormVersor( Proc.Id, nFacAdj, GDB_ID.ROOT)
-      sStartAngs = WD.GetChainSawStartAngs( vtN2)
+      sStartAngs = WD.GetChainSawStartAngs( vtN2, vtN, ptC)
    end
    -- Lati chiusi
    local bOpenStart = false
@@ -1372,13 +1373,13 @@ local function MakeByMill( Proc, nFacet, nOthFac, nRawId, b3Raw, dSideDist)
    if dMillDiam < dDiam or dMaxDepth < dElev then
       local sErr = 'Error : Side Elevation too big'
       EgtOutLog( sErr)
-      return false, sErr
+      return false, sErr, true
    end
    local dMillExtra = dMillTotLen - dMillLen
    if Proc.Box:getMin():getZ() - dMillExtra < b3Raw:getMin():getZ() - 10 * GEO.EPS_SMALL then
       local sErr = 'Error : Tool collide with table'
       EgtOutLog( sErr)
-      return false, sErr
+      return false, sErr, true
    end
    -- inserisco la lavorazione di contornatura
    local sName = 'Mill_' .. ( EgtGetName( Proc.Id) or tostring( Proc.Id))

LuaLibs/WallExec.lua

@@ -216,8 +216,10 @@ function WallExec.CollectFeatures( PartId, b3Raw)
                   Proc.DistanceToRawPart = WL.GetProcessDistanceToRawPart( Proc, b3Raw)
                   -- recupero informazioni sulle facce della feature
                   Proc.Face = {}
-                  for i = 1, Proc.Fct do
-                     Proc.Face[i] = { Id = i - 1, VtN = EgtSurfTmFacetNormVersor( Proc.Id, i - 1, GDB_ID.ROOT ), Elevation = WL.GetFaceElevation( Proc.Id, i - 1, PartId)}
+                  if Proc.Fct < 50 then
+                     for i = 1, Proc.Fct do
+                        Proc.Face[i] = { Id = i - 1, VtN = EgtSurfTmFacetNormVersor( Proc.Id, i - 1, GDB_ID.ROOT ), Elevation = WL.GetFaceElevation( Proc.Id, i - 1, PartId)}
+                     end
                   end
                end
                if Proc.Box and not Proc.Box:isEmpty() then

UpdateLog.txt

@@ -1,5 +1,21 @@
            ==== Wall Update Log ====
 
+Versione 2.6h2 (28/08/2024)
+- Modif : Aggiunto controllo licenza/chiave per abilitazione generazione PartProgram
+- Fixed : in FreeContour corretto caso in cui si chiedevano informazioni sulla faccia non presenti.
+
+Versione 2.6h1 (20/08/2024)
+- Modif : in LapJoint, se fresa Side trovata ma non applicabile, si considera come se non trovata
+- Modif : in Collect analisi facce limitata a feature che ne hanno meno di 50
+- Modif : aggiunti nuovi parametri alla chiamata della funzione GetChainSawStartAngs da WallData della macchina
+
+Versione 2.6g2 (19/07/2024)
+- Modif : in BatchProcess e BatchProcessNew si forza ricalcolo ogni volta che si è in situazione di CHECK o CHECK + GENERATE
+
+Versione 2.6g1 (17/07/2024)
+- Modif : in ProcessDrill, se foro verticale passante e diametro inferiore a 100 mm, riduzione affondamento di 5 mm sostituito con tab
+- Fixed : correzioni a utilizzo DEFAULT_RAW_NO_EXTRA_WIDTH
+
 Versione 2.6f1 (21/06/2024)
 - Added : in BatchProcess e BatchProcessNew aggiunto DEFAULT_RAW_NO_EXTRA_WIDTH per eliminare il sovramateriale grezzo in vista
 

Version.lua

@@ -1,6 +1,6 @@
--- Version.lua by Egalware s.r.l. 2024/03/24
+-- Version.lua by Egalware s.r.l. 2024/08/20
 -- Gestione della versione di Wall
 
 NAME = 'Wall'
-VERSION = '2.6f1'
-MIN_EXE = '2.6c2'
+VERSION = '2.6h2'
+MIN_EXE = '2.6h1'