- in LapJoint correzioni varie

2.6k3

Compile.bat

@@ -4,6 +4,7 @@ REM Per togliere info di debug aggiungere flag -s prima del nome del file di inp
 
 REM Compilazione 32 e 64 bit
 
+\EgtProg\Dll32\luac54 -o bin\LuaLibs\Squaring.lua                   -s LuaLibs\Squaring.lua
 \EgtProg\Dll32\luac54 -o bin\LuaLibs\WallExec.lua                   -s LuaLibs\WallExec.lua
 \EgtProg\Dll32\luac54 -o bin\LuaLibs\WallLib.lua                    -s LuaLibs\WallLib.lua
 \EgtProg\Dll32\luac54 -o bin\LuaLibs\WMachiningLib.lua              -s LuaLibs\WMachiningLib.lua

LuaLibs/WProcessLapJoint.lua

@@ -2015,6 +2015,10 @@ local function MakeSideGrooveByMill( Proc, nFacet, nRawId, b3Raw, sCustomMach, d
          local nStep = ceil( ( dThick - dMaxMat) / dStep)
          dStep = max( ( dThick - dMaxMat) / max( nStep, 1), 0)
          local dMaxElev = max( ( nStep + 1) * dStep - GEO.EPS_SMALL, 0)
+         -- tasca aperta sopra non necessita di MaxElev
+         if Proc.Fct == 2 and Proc.AffectedFaces.Top then
+            dMaxElev = nil
+         end
          if nSinglePass and nSinglePass > 0 then
             dStep = 0
             if nSinglePass == 1 then
@@ -2028,7 +2032,9 @@ local function MakeSideGrooveByMill( Proc, nFacet, nRawId, b3Raw, sCustomMach, d
          -- leggo eventuali note esistenti della lavorazione
          local sUserNotes = EgtGetMachiningParam( MCH_MP.USERNOTES)
          -- aggiungo alle note massima elevazione
-         sUserNotes = EgtSetValInNotes( sUserNotes, 'MaxElev', EgtNumToString( dMaxElev, 3))
+         if dMaxElev then
+            sUserNotes = EgtSetValInNotes( sUserNotes, 'MaxElev', EgtNumToString( dMaxElev, 3))
+         end
          -- se lavorazione in doppio aggiungo le rispettive note
          if Proc.Double and Proc.Double == 2 then
             sUserNotes = EgtSetValInNotes( sUserNotes, 'DOUBLE', Proc.Double)
@@ -2102,15 +2108,9 @@ local function MakeSideGrooveByMill( Proc, nFacet, nRawId, b3Raw, sCustomMach, d
             -- setto allungamenti iniziali e finali
             EgtSetMachiningParam( MCH_MP.STARTADDLEN, dExtraLongIni)
             EgtSetMachiningParam( MCH_MP.ENDADDLEN, dExtraLongEnd)
-            -- se ho passate orizzontali riduco l'eventuale allungamento settato dall'utente
-            local dLiPerp = EgtGetMachiningParam( MCH_MP.LIPERP)
-            local dLoPerp = EgtGetMachiningParam( MCH_MP.LOPERP)
-            if dLiPerp > 0 then
-               dLiPerp = dLiPerp - dRadialOffset
-            end
-            if dLoPerp > 0 then
-               dLoPerp = dLoPerp - dRadialOffset
-            end
+            -- tutte le passate partono dalla stessa distanza
+            local dLiPerp = dElev + WD.CUT_SIC - dRadialOffset
+            local dLoPerp = dElev + WD.CUT_SIC - dRadialOffset
             EgtSetMachiningParam( MCH_MP.LIPERP, dLiPerp)
             EgtSetMachiningParam( MCH_MP.LOPERP, dLoPerp)
             -- se richiesto, setto la nota per spostare la lavorazione alla fine
@@ -2886,13 +2886,15 @@ local function MakeMoreFaces( Proc, nRawId, b3Raw)
          -- se ho abilitata lavorazione di fresa di fianco
          if Proc.Fct >= 3 and sMillOnSide and nUseMillOnSide >= 1 and not bIsSmallSlot then
             -- cerco nei parametri utensili la nota di affondamento di fianco SIDEDEPTH
-            local dMaxDepthOnSide = 0
+            local dMaxDepthOnSide = 999
             local dMillDiam = 0
+            local dMillDiamTh = EgtTdbGetCurrToolThDiam() or 60
             if EgtMdbSetCurrMachining( sMillOnSide) then
                local sTuuid = EgtMdbGetCurrMachiningParam( MCH_MP.TUUID)
                if EgtTdbSetCurrTool( EgtTdbGetToolFromUUID( sTuuid) or '') then
                   dMillDiam = EgtTdbGetCurrToolParam( MCH_TP.DIAM) or dMillDiam
-                  dMaxDepthOnSide = EgtTdbGetCurrToolValInNotes( MCH_TP.USERNOTES, 'SIDEDEPTH', 'd') or dMaxDepthOnSide
+                  dMillDiamTh = EgtTdbGetCurrToolThDiam() or dMillDiamTh
+                  dMaxDepthOnSide = min( EgtTdbGetCurrToolValInNotes( MCH_TP.USERNOTES, 'SIDEDEPTH', 'd') or dMaxDepthOnSide, 0.5 * ( dMillDiam - dMillDiamTh))
                end
             end
             local bMakeFirstGroove
@@ -2981,7 +2983,7 @@ local function MakeMoreFaces( Proc, nRawId, b3Raw)
       else
          local sErr = 'Side milling not possible'
          EgtOutLog( sErr)
-         return true, sErr
+         return false, sErr
       end
    -- fessura verticale
    elseif Proc.Stype == 3 then

NestProcess.lua

@@ -1629,7 +1629,7 @@ local function AddParts(RawParts, vPartsDoneManually)
       if bOnEdge or bOnAngle then 
          local nBoxLayerId = EgtGetFirstNameInGroup( nPartId, "Box")
          local nBoxId = EgtGetFirstNameInGroup( nBoxLayerId, "Box")
-         local b3Part = EgtGetBBoxGlob(nBoxId, GDB_BB.STANDARD)  
+         local b3Part = EgtGetBBoxGlob(nBoxId, GDB_BB.STANDARD)
          
          -- punto di riferimento sul pezzo
          local ptRef 
@@ -1807,40 +1807,39 @@ if bNestingOk then
                end
             end
             
-         -- aggiungo pezzi nestati a mano
-         nPartCount = 0 
-         for nInd = 1, #vDoneManually do
-            if vDoneManually[nInd].SheetId == nId then
-               vDoneManually[nInd].Done = 1 
-               for nInd2 = 1, #(vDoneManually[nInd].Parts) do
-                  nPartCount = nPartCount + 1
-                  local nPartDuploId = EgtDuploNew( vDoneManually[nInd].Parts[nInd2].Id)  
-                  
-                  -- aggiungo le curve corrispondenti alle aree di lavorazione del pezzo 
-                  local sToolOutlines = EgtGetInfo( vDoneManually[nInd].Parts[nInd2].Id, "ToolOutlines", 's')
-                  if sToolOutlines then 
-                     -- recupero o creo il gruppo per gli outlines
-                     local nToolOutlinesGrp = EgtGetFirstNameInGroup( nPartDuploId, "ToolOutlines")
-                     if not nToolOutlinesGrp then
-                        nToolOutlinesGrp = EgtGroup( nPartDuploId)
-                        EgtSetName( nToolOutlinesGrp, "ToolOutlines")
-                        EgtSetStatus( nToolOutlinesGrp, GDB_ST.ON)
-                     end
-                  
-                     for str in string.gmatch(sToolOutlines, "([^"..",".."]+)") do 
-                        EgtCopyGlob( tonumber(str), nToolOutlinesGrp)
+            -- aggiungo pezzi nestati a mano
+            nPartCount = 0 
+            for nInd = 1, #vDoneManually do
+               if vDoneManually[nInd].SheetId == nId then
+                  vDoneManually[nInd].Done = 1 
+                  for nInd2 = 1, #(vDoneManually[nInd].Parts) do
+                     nPartCount = nPartCount + 1
+                     local nPartDuploId = EgtDuploNew( vDoneManually[nInd].Parts[nInd2].Id)  
+                     
+                     -- aggiungo le curve corrispondenti alle aree di lavorazione del pezzo 
+                     local sToolOutlines = EgtGetInfo( vDoneManually[nInd].Parts[nInd2].Id, "ToolOutlines", 's')
+                     if sToolOutlines then 
+                        -- recupero o creo il gruppo per gli outlines
+                        local nToolOutlinesGrp = EgtGetFirstNameInGroup( nPartDuploId, "ToolOutlines")
+                        if not nToolOutlinesGrp then
+                           nToolOutlinesGrp = EgtGroup( nPartDuploId)
+                           EgtSetName( nToolOutlinesGrp, "ToolOutlines")
+                           EgtSetStatus( nToolOutlinesGrp, GDB_ST.ON)
+                        end
+                     
+                        for str in string.gmatch(sToolOutlines, "([^"..",".."]+)") do 
+                           EgtCopyGlob( tonumber(str), nToolOutlinesGrp)
+                        end
                      end
+                     
+                     -- applico flip, rotazione e traslazione pezzo e box da nesting
+                     EgtSetInfo( nMachGroup, "PART" .. nPartCount, nPartDuploId .. "," .. EgtNumToString( vDoneManually[nInd].Parts[nInd2].posX, 3) .. "," .. EgtNumToString( vDoneManually[nInd].Parts[nInd2].posY, 3) .. "," .. 0 .."," .. 0)
+                     EgtSetInfo( nPartDuploId, "POSX", vDoneManually[nInd].Parts[nInd2].posX)
+                     EgtSetInfo( nPartDuploId, "POSY", vDoneManually[nInd].Parts[nInd2].posY)
                   end
-                  
-                  -- applico flip, rotazione e traslazione pezzo e box da nesting
-                  EgtSetInfo( nMachGroup, "PART" .. nPartCount, nPartDuploId .. "," .. EgtNumToString( vDoneManually[nInd].Parts[nInd2].posX, 3) .. "," .. EgtNumToString( vDoneManually[nInd].Parts[nInd2].posY, 3) .. "," .. 0 .."," .. 0)
-                  EgtSetInfo( nPartDuploId, "POSX", vDoneManually[nInd].Parts[nInd2].posX)
-                  EgtSetInfo( nPartDuploId, "POSY", vDoneManually[nInd].Parts[nInd2].posY)
                end
             end
          end
-         
-      end
       
       -- altrimenti pezzo 
       else

UpdateLog.txt

@@ -1,5 +1,16 @@
            ==== Wall Update Log ====
 
+Versione 2.6k3 (27/11/2024)
+- Modif : migliorato calcolo approccio e retrazione in Sidemill/Sidegroove
+
+Versione 2.6k2 (19/11/2024)
+- Modif : in Nesting riportata allo stato precedente la tolleranza posizionamento pannelli sul bordo
+
+Versione 2.6k1 (14/11/2024)
+- Added : aggiunta squadratura master panel
+- Modif : L010 si inseriscono con lama anche se il percorso è breve
+- Fixed : in Nesting corretto errore in posizionamento pannelli che devono stare necessariamente sul bordo della tavola
+
 Versione 2.6j2 (04/11/2024)
 - Modif : Modificato limite dimensione tasca per utilizzo lama come SideGroove
 

Version.lua

@@ -2,5 +2,5 @@
 -- Gestione della versione di Wall
 
 NAME = 'Wall'
-VERSION = '2.6j2'
-MIN_EXE = '2.6h1'
+VERSION = '2.6k3'
+MIN_EXE = '2.6k1'