- Alcune correzioni minori

- Sistemati commenti
- aggiunta gestione step verticale
2023-06-06 12:54:35 +02:00 · 2023-05-29 18:01:59 +02:00 · 2023-05-26 18:12:53 +02:00 · 2023-05-26 13:03:54 +02:00 · 2023-05-25 15:58:00 +02:00 · 2023-05-24 17:45:28 +02:00
26 changed files with 1252 additions and 1125 deletions
@@ -13,12 +13,10 @@
 /Debug64
 /Release64
 /ipch
-/bin
 /obj
 /.vs
-/32/*.lua
-/32/LuaLibs/*.lua
-/32/Images/*.png
-/64/*.lua
-/64/LuaLibs/*.lua
-/64/Images/*.png
+/bin/*.lua
+/bin/*.ini
+/bin/LuaLibs/*.lua
+/bin/Images/*.png
+.vscode/settings.json
@@ -2,96 +2,67 @@ variables:
 VERS_MAIN: '1.0'
 APP_NAME: 'Wall'
 NEW_REL: ''
- NET_SHARE_R: '\\10.74.82.201\EgwTech'
+ NET_SHARE_X: '\\10.74.82.201\EgwTech'
 NET_SHARE_Z: '\\10.74.82.201\Artifacts'
 NET_USERQ: 'steamw\egalware'

 #Note compilazione LUA:
-# lua53 -o 32\$FileName -s $FileName: -o = output, -s = NON include i debug symbols
+# lua54 -o bin\$FileName -s $FileName: -o = output, -s = NON include i debug symbols

-# helper compilazione LUA a 32 bit
-.LuaCompile32: &LuaCompile32
+# helper compilazione LUA a 32 e 64 bit
+.LuaCompile: &LuaCompile
  - |
-    Set-Alias lua53  C:\Tools\Lua32\luac53
+    Set-Alias lua54  C:\Tools\Lua32\luac54
    echo "Copia file *.ini"
    $FileList = Get-ChildItem("*.ini")
    ForEach ($File in $FileList) {
      $FileName = Split-Path $File -leaf
-      Copy-Item -Path $FileName -Destination 32\$FileName
-      echo "Copy-Item -Path $FileName -Destination 32\$FileName"
+      Copy-Item -Path $FileName -Destination bin\$FileName
+      echo "Copy-Item -Path $FileName -Destination bin\$FileName"
    }
-    echo "Compilazione file *.lua 32bit"
+    echo "Compilazione file *.lua 32/64bit"
    $FileList = Get-ChildItem("*.lua")
    ForEach ($File in $FileList) {
      $FileName = Split-Path $File -leaf
-      lua53 -o 32\$FileName $FileName
-      echo "lua53 -o 32\$FileName $FileName"
+      lua54 -o bin\$FileName $FileName
+      echo "lua54 -o bin\$FileName $FileName"
    }
    $FileList = Get-ChildItem("LuaLibs\*.lua")
    ForEach ($File in $FileList) {
      $FileName = Split-Path $File -leaf
-      lua53 -o 32\LuaLibs\$FileName LuaLibs\$FileName
-      echo "lua53 -o 32\LuaLibs\$FileName LuaLibs\$FileName"
+      lua54 -o bin\LuaLibs\$FileName LuaLibs\$FileName
+      echo "lua54 -o bin\LuaLibs\$FileName LuaLibs\$FileName"
    }

-# helper compilazione LUA a 64 bit
-.LuaCompile64: &LuaCompile64
-  - |
-    Set-Alias lua53  C:\Tools\Lua64\luac53
-    echo "Copia file *.ini"
-    $FileList = Get-ChildItem("*.ini")
-    ForEach ($File in $FileList) {
-      $FileName = Split-Path $File -leaf
-      Copy-Item -Path $FileName -Destination 64\$FileName
-      echo "Copy-Item -Path $FileName -Destination 64\$FileName"
-    }
-    echo "Compilazione file *.lua 64bit"
-    $FileList = Get-ChildItem("*.lua")
-    ForEach ($File in $FileList) {
-      $FileName = Split-Path $File -leaf
-      lua53 -o 64\$FileName $FileName
-      echo "lua53 -o 64\$FileName $FileName"
-    }
-    $FileList = Get-ChildItem("LuaLibs\*.lua")
-    ForEach ($File in $FileList) {
-      $FileName = Split-Path $File -leaf
-      lua53 -o 64\LuaLibs\$FileName LuaLibs\$FileName
-      echo "lua53 -o 64\LuaLibs\$FileName LuaLibs\$FileName"
-    }
-
-#      Copy-Item -Path $FileName -Destination 64\$FileName
-#      echo "Copy-Item -Path $FileName -Destination 64\$FileName"
-# helper copia SORGENTI verso cartella di rete R:\ dei SORGENTI
+# helper copia SORGENTI verso cartella di rete X:\ dei SORGENTI
 .CodeReplicaR: &CodeReplicaR
  - |
-    net use R: /delete
-    net use R: $env:NET_SHARE_R /u:$env:NET_USERQ $ZDRIVE_PASSWD
-    ROBOCOPY . R:\EgtData\$env:APP_NAME /MIR /XF .git* /XD .git
+    net use X: /delete
    SLEEP 2
-    net use R: /delete
+    net use X: $env:NET_SHARE_X /u:$env:NET_USERQ $ZDRIVE_PASSWD
+    ROBOCOPY . X:\EgtData\$env:APP_NAME /MIR /XF .git* /XD .git
+    SLEEP 2
+    net use X: /delete

-
-# helper copia script verso cartella di rete R:\ delle cartelle 32 e 64
+# helper copia script verso cartella di rete X:\ delle cartelle bin
 .ReplicaR: &ReplicaR
  - |
-    net use R: /delete
-    net use R: $env:NET_SHARE_R /u:$env:NET_USERQ $ZDRIVE_PASSWD
-    ROBOCOPY /MIR 32 R:\EgtData\$env:APP_NAME\32
-    ROBOCOPY /MIR 64 R:\EgtData\$env:APP_NAME\64
-    ROBOCOPY /MIR Images R:\EgtData\$env:APP_NAME\32\Images
-    ROBOCOPY /MIR Images R:\EgtData\$env:APP_NAME\64\Images
+    net use X: /delete
    SLEEP 2
-    net use R: /delete
+    net use X: $env:NET_SHARE_X /u:$env:NET_USERQ $ZDRIVE_PASSWD
+    ROBOCOPY /MIR bin X:\EgtData\$env:APP_NAME\bin
+    ROBOCOPY /MIR Images X:\EgtData\$env:APP_NAME\bin\Images
+    SLEEP 2
+    net use X: /delete

-# helper copia script verso cartella di rete R:\ delle cartelle 32 e 64
+# helper copia script verso cartella di rete X:\ delle cartelle bin
 .ReplicaZ: &ReplicaZ
  - |
    net use Z: /delete
+    SLEEP 2
    net use Z: $env:NET_SHARE_Z /u:$env:NET_USERQ $ZDRIVE_PASSWD
-    ROBOCOPY /MIR 32 Z:\EgtData\$env:APP_NAME\32
-    ROBOCOPY /MIR 64 Z:\EgtData\$env:APP_NAME\64
-    ROBOCOPY /MIR Images Z:\EgtData\$env:APP_NAME\32\Images
-    ROBOCOPY /MIR Images Z:\EgtData\$env:APP_NAME\64\Images
+    ROBOCOPY /MIR bin Z:\EgtData\$env:APP_NAME\bin
+    ROBOCOPY /MIR Images Z:\EgtData\$env:APP_NAME\bin\Images
    SLEEP 2
    net use Z: /delete

@@ -100,15 +71,13 @@ stages:

 LuaCompile:build:
 stage: build
-# only:
-#   - main
-#   - master
+ only:
+   - main
+   - master
 tags:
   - win
 script:    
-   - *LuaCompile32
-   - *LuaCompile64
+   - *LuaCompile
   - *CodeReplicaR
   - *ReplicaR
   - *ReplicaZ
-   
@@ -1,4 +1,4 @@
-- BatchProcess.lua by Egaltech s.r.l. 2022/05/09
+-- BatchProcess.lua by Egaltech s.r.l. 2023/04/17
 -- Gestione calcolo batch disposizione e lavorazioni per Pareti
 -- 2020/07/24 Nuvola di punti riferita allo Zero Tavola.
 -- 2020/10/28 Corretto spostamento pezzi per rotazioni (0 o 180) e inversioni( 0, 90, 180, o 270).
@@ -12,6 +12,8 @@
 -- 2022/02/24 Se ricalcolo si aggiorna il setup. In ogni caso si verifica prima di simulazione.
 -- 2022/04/28 In info generazione aggiunta indicazione se 64bit.
 -- 2022/05/02 Consentito allargamento area disponibile per grezzi su tavola da WallData.
+-- 2023/04/09 Aggiunta gestione flag per taglio feature con outline (da WD.CUT_WITH_OUTLINE).
+-- 2023/04/17 Aggiunta gestione flag per rotazione grezzo di 180deg (da WD.RAWPART_ROT).

 -- Intestazioni
 require( 'EgtBase')
@@ -179,9 +181,11 @@ if bToProcess then
   if bBtl then
      -- cancello eventuale vecchio progetto omonimo
      EgtEraseFile( sNgeFile)
+      -- flag di importazione
+      local nFlag = EIB_FL.TS3_POS + EIB_FL.USEUATTR + EgtIf( WD.CUT_WITH_OUTLINE, EIB_FL.TRIM_WITH_OUTLINE or 128, EIB_FL.NONE)
      -- eseguo import
      EgtNewFile()
-      if not EgtImportBtl( WALL.FILE, EIB_FL.TS3_POS + EIB_FL.USEUATTR) then
+      if not EgtImportBtl( WALL.FILE, nFlag) then
         WALL.ERR = 13
         WALL.MSG = 'Error importing BTL file : ' .. WALL.FILE
         WriteErrToLogFile( WALL.ERR, WALL.MSG)
@@ -241,7 +245,7 @@ if bToProcess then
   end
   if #vWall == 0 then
      WALL.ERR = 14
-      WALL.MSG = 'Error no beams in the file : ' .. WALL.FILE
+      WALL.MSG = 'Error no walls in the file : ' .. WALL.FILE
      WriteErrToLogFile( WALL.ERR, WALL.MSG)
      PostErrView( WALL.ERR, WALL.MSG)
      return
@@ -392,7 +396,12 @@ if bToProcess then
      PostErrView( WALL.ERR, WALL.MSG)
      return
   end
-   
+
+   -- Se richiesto per la macchina, ruoto il grezzo di 180 gradi attorno a Z
+   if WD.RAWPART_ROT and abs( WD.RAWPART_ROT - 180) < 1 then
+      EgtRotateRawPart( EgtGetFirstRawPart() or GDB_ID.NULL, Z_AX(), 180) 
+   end
+
   -- Imposto Nome file CN
   local _, sName, _ = EgtSplitPath( WALL.FILE)
   EgtSetInfo( EgtGetCurrMachGroup(), 'NcName', sName .. '.cnc')
@@ -1,4 +1,4 @@
-- BatchProcess.lua by Egaltech s.r.l. 2022/05/09
+-- BatchProcess.lua by Egaltech s.r.l. 2023/05/04
 -- Gestione calcolo batch disposizione e lavorazioni per Pareti
 -- 2021/01/15 Per nuova interfaccia Egt.
 -- 2021/11/10 Aggiunta modifica per gestione modifiche manuali come in Beam.
@@ -7,6 +7,7 @@
 -- 2022/01/20 Si aggiorna il setup anche quando si creano le lavorazioni (MachGroup vecchio...).
 -- 2022/04/28 In info generazione aggiunta indicazione se 64bit.
 -- 2022/05/02 Consentito allargamento area disponibile per grezzi su tavola da WallData.
+-- 2023/05/04 Traduzione messaggi ora fatta direttamente (eliminata codifica $$nn).

 -- Intestazioni
 require( 'EgtBase')
@@ -45,6 +46,18 @@ EgtOutLog( sLog)
 local sLogFile = EgtChangePathExtension( WALL.FILE, '.txt')
 EgtEraseFile( sLogFile) 

+-- Funzione per traduzione messaggi
+local function BWMessageId( nMsgId, sMsg, params)
+   local sFmt
+   if WALL.BW and nMsgId and nMsgId > 0 then
+      sFmt = EgtMsg( 65000 + nMsgId)
+   end
+   if not sFmt or #sFmt == 0 then
+      sFmt = sMsg
+   end
+   return string.format( sFmt, table.unpack( params))
+end
+
 -- Funzioni per scrittura su file di log specifico
 local function WriteErrToLogFile( nErr, sMsg, nRot, nCutId, nTaskId)
   local hFile = io.open( sLogFile, 'a')
@@ -55,17 +68,6 @@ local function WriteErrToLogFile( nErr, sMsg, nRot, nCutId, nTaskId)
   hFile:write( 'TASKID=' .. tostring( nTaskId or 0) .. '\n')
   hFile:close()
 end
-local function BWMessageId( nMsgId, sMsg, params)
-   if WALL.BW and nMsgId and nMsgId > 0 then
-      local sFinalMsg = '$$' .. nMsgId
-      for Index = 1, #params do
-         sFinalMsg = sFinalMsg .. ',' .. params[Index]
-      end
-      return sFinalMsg
-   else
-      return string.format( sMsg, table.unpack( params))
-   end
-end

 local function WriteTimeToLogFile( dTime)
   local hFile = io.open( sLogFile, 'a')
@@ -228,7 +230,7 @@ if bToProcess then
         end
         if #vWall == 0 then
            WALL.ERR = 14
-            WALL.MSG = 'Error no beams in the file : ' .. WALL.FILE
+            WALL.MSG = 'Error no walls in the file : ' .. WALL.FILE
            WriteErrToLogFile( WALL.ERR, WALL.MSG)
            PostErrView( WALL.ERR, WALL.MSG)
            return
@@ -358,7 +360,7 @@ if bToProcess then
      local vWallErr = {}
      for i = 2, #vWall do
         local dDimH = vWall[i].Box:getDimZ()
-         if abs( dDimH - dRawH) > 10 * GEO.EPS_SMALL then
+         if abs( dDimH - dRawH) > 100 * GEO.EPS_SMALL then
            table.insert( vWallErr, i)
         end
      end
@@ -383,8 +385,8 @@ if bToProcess then
      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
         ResetMachGroup( vWall)
         local sOut = BWMessageId( 1, 'Grezzo (%s x %s x %s) oltre il limite della macchina (%s x %s x %s)',
-                                  {EgtNumToString( dRawL, 2), EgtNumToString( dRawW, 2), EgtNumToString( dRawH, 2),
-                                   EgtNumToString( WD.MAX_LENGTH, 2), EgtNumToString( WD.MAX_WIDTH, 2), EgtNumToString( WD.MAX_HEIGHT, 2)})
+                                   {EgtNumToString( dRawL, 2), EgtNumToString( dRawW, 2), EgtNumToString( dRawH, 2),
+                                    EgtNumToString( WD.MAX_LENGTH, 2), EgtNumToString( WD.MAX_WIDTH, 2), EgtNumToString( WD.MAX_HEIGHT, 2)})
         WALL.ERR = 17
         WALL.MSG = sOut
         WriteErrToLogFile( WALL.ERR, WALL.MSG)
@@ -395,8 +397,9 @@ if bToProcess then
      -- Verifico dimensioni minime del grezzo
      if dRawL < WD.MIN_LENGTH - 10 * GEO.EPS_SMALL or dRawW < WD.MIN_WIDTH - 10 * GEO.EPS_SMALL or dRawH < WD.MIN_HEIGHT - 10 * GEO.EPS_SMALL then
         ResetMachGroup( vWall)
-         local sOut = 'Grezzo (' .. EgtNumToString( dRawL, 2) .. ' x ' .. EgtNumToString( dRawW, 2) .. ' x ' .. EgtNumToString( dRawH, 2) .. ') ' ..
-                        'sotto il limite della macchina ('..EgtNumToString( WD.MIN_LENGTH, 2)..' x '..EgtNumToString( WD.MIN_WIDTH, 2)..' x '..EgtNumToString( WD.MIN_HEIGHT, 2)..')'
+         local sOut = BWMessageId( 2, 'Grezzo (%s x %s x %s) sotto il limite della macchina (%s x %s x %s)',
+                                   {EgtNumToString( dRawL, 2), EgtNumToString( dRawW, 2), EgtNumToString( dRawH, 2),
+                                    EgtNumToString( WD.MIN_LENGTH, 2), EgtNumToString( WD.MIN_WIDTH, 2), EgtNumToString( WD.MIN_HEIGHT, 2)})
         WALL.ERR = 17
         WALL.MSG = sOut
         WriteErrToLogFile( WALL.ERR, WALL.MSG)
@@ -1,53 +1,29 @@

-REM Compilazione degli script Wall Egaltech                         2022.05.09
+REM Compilazione degli script Wall Egaltech                         2023.02.27
 REM Per togliere info di debug aggiungere flag -s prima del nome del file di input

-REM Compilazione 32 bit
+REM Compilazione 32 e 64 bit

-\EgtProg\Dll32\luac53 -o 32\LuaLibs\WallExec.lua                      LuaLibs\WallExec.lua
-\EgtProg\Dll32\luac53 -o 32\LuaLibs\WallLib.lua                       LuaLibs\WallLib.lua
-\EgtProg\Dll32\luac53 -o 32\LuaLibs\WMachiningLib.lua                 LuaLibs\WMachiningLib.lua
-\EgtProg\Dll32\luac53 -o 32\LuaLibs\WProcessCut.lua                   LuaLibs\WProcessCut.lua
-\EgtProg\Dll32\luac53 -o 32\LuaLibs\WProcessDoubleCut.lua             LuaLibs\WProcessDoubleCut.lua
-\EgtProg\Dll32\luac53 -o 32\LuaLibs\WProcessDrill.lua                 LuaLibs\WProcessDrill.lua
-\EgtProg\Dll32\luac53 -o 32\LuaLibs\WProcessDtMortise.lua             LuaLibs\WProcessDtMortise.lua
-\EgtProg\Dll32\luac53 -o 32\LuaLibs\WProcessFreeContour.lua           LuaLibs\WProcessFreeContour.lua
-\EgtProg\Dll32\luac53 -o 32\LuaLibs\WProcessLapJoint.lua              LuaLibs\WProcessLapJoint.lua
-\EgtProg\Dll32\luac53 -o 32\LuaLibs\WProcessMark.lua                  LuaLibs\WProcessMark.lua
-\EgtProg\Dll32\luac53 -o 32\LuaLibs\WProcessMortise.lua               LuaLibs\WProcessMortise.lua
-\EgtProg\Dll32\luac53 -o 32\LuaLibs\WProcessSawCut.lua                LuaLibs\WProcessSawCut.lua
-\EgtProg\Dll32\luac53 -o 32\LuaLibs\WProcessText.lua                  LuaLibs\WProcessText.lua
-\EgtProg\Dll32\luac53 -o 32\LuaLibs\WProcessVariant.lua               LuaLibs\WProcessVariant.lua
-\EgtProg\Dll32\luac53 -o 32\BatchProcess.lua                          BatchProcess.lua
-\EgtProg\Dll32\luac53 -o 32\BatchProcessNew.lua                       BatchProcessNew.lua
-\EgtProg\Dll32\luac53 -o 32\GetWallData.lua                           GetWallData.lua
-\EgtProg\Dll32\luac53 -o 32\NestFlipAndRotate.lua                     NestFlipAndRotate.lua
-\EgtProg\Dll32\luac53 -o 32\NestProcess.lua                           NestProcess.lua
-\EgtProg\Dll32\luac53 -o 32\Overturn.lua                              Overturn.lua
-\EgtProg\Dll32\luac53 -o 32\Process.lua                               Process.lua
-\EgtProg\Dll32\luac53 -o 32\Rotate.lua                                Rotate.lua
-
-REM Compilazione 64 bit
-
-\EgtProg\Dll64\luac53 -o 64\LuaLibs\WallExec.lua                      LuaLibs\WallExec.lua
-\EgtProg\Dll64\luac53 -o 64\LuaLibs\WallLib.lua                       LuaLibs\WallLib.lua
-\EgtProg\Dll64\luac53 -o 64\LuaLibs\WMachiningLib.lua                 LuaLibs\WMachiningLib.lua
-\EgtProg\Dll64\luac53 -o 64\LuaLibs\WProcessCut.lua                   LuaLibs\WProcessCut.lua
-\EgtProg\Dll64\luac53 -o 64\LuaLibs\WProcessDoubleCut.lua             LuaLibs\WProcessDoubleCut.lua
-\EgtProg\Dll64\luac53 -o 64\LuaLibs\WProcessDrill.lua                 LuaLibs\WProcessDrill.lua
-\EgtProg\Dll64\luac53 -o 64\LuaLibs\WProcessDtMortise.lua             LuaLibs\WProcessDtMortise.lua
-\EgtProg\Dll64\luac53 -o 64\LuaLibs\WProcessFreeContour.lua           LuaLibs\WProcessFreeContour.lua
-\EgtProg\Dll64\luac53 -o 64\LuaLibs\WProcessLapJoint.lua              LuaLibs\WProcessLapJoint.lua
-\EgtProg\Dll64\luac53 -o 64\LuaLibs\WProcessMark.lua                  LuaLibs\WProcessMark.lua
-\EgtProg\Dll64\luac53 -o 64\LuaLibs\WProcessMortise.lua               LuaLibs\WProcessMortise.lua
-\EgtProg\Dll64\luac53 -o 64\LuaLibs\WProcessSawCut.lua                LuaLibs\WProcessSawCut.lua
-\EgtProg\Dll64\luac53 -o 64\LuaLibs\WProcessText.lua                  LuaLibs\WProcessText.lua
-\EgtProg\Dll64\luac53 -o 64\LuaLibs\WProcessVariant.lua               LuaLibs\WProcessVariant.lua
-\EgtProg\Dll64\luac53 -o 64\BatchProcess.lua                          BatchProcess.lua
-\EgtProg\Dll64\luac53 -o 64\BatchProcessNew.lua                       BatchProcessNew.lua
-\EgtProg\Dll64\luac53 -o 64\GetWallData.lua                           GetWallData.lua
-\EgtProg\Dll64\luac53 -o 64\NestFlipAndRotate.lua                     NestFlipAndRotate.lua
-\EgtProg\Dll64\luac53 -o 64\NestProcess.lua                           NestProcess.lua
-\EgtProg\Dll64\luac53 -o 64\Overturn.lua                              Overturn.lua
-\EgtProg\Dll64\luac53 -o 64\Process.lua                               Process.lua
-\EgtProg\Dll64\luac53 -o 64\Rotate.lua                                Rotate.lua
+\EgtProg\Dll32\luac54 -o bin\LuaLibs\WallExec.lua                      LuaLibs\WallExec.lua
+\EgtProg\Dll32\luac54 -o bin\LuaLibs\WallLib.lua                       LuaLibs\WallLib.lua
+\EgtProg\Dll32\luac54 -o bin\LuaLibs\WMachiningLib.lua                 LuaLibs\WMachiningLib.lua
+\EgtProg\Dll32\luac54 -o bin\LuaLibs\WProcessCut.lua                   LuaLibs\WProcessCut.lua
+\EgtProg\Dll32\luac54 -o bin\LuaLibs\WProcessDoubleCut.lua             LuaLibs\WProcessDoubleCut.lua
+\EgtProg\Dll32\luac54 -o bin\LuaLibs\WProcessDrill.lua                 LuaLibs\WProcessDrill.lua
+\EgtProg\Dll32\luac54 -o bin\LuaLibs\WProcessDtMortise.lua             LuaLibs\WProcessDtMortise.lua
+\EgtProg\Dll32\luac54 -o bin\LuaLibs\WProcessFreeContour.lua           LuaLibs\WProcessFreeContour.lua
+\EgtProg\Dll32\luac54 -o bin\LuaLibs\WProcessLapJoint.lua              LuaLibs\WProcessLapJoint.lua
+\EgtProg\Dll32\luac54 -o bin\LuaLibs\WProcessMark.lua                  LuaLibs\WProcessMark.lua
+\EgtProg\Dll32\luac54 -o bin\LuaLibs\WProcessMortise.lua               LuaLibs\WProcessMortise.lua
+\EgtProg\Dll32\luac54 -o bin\LuaLibs\WProcessSawCut.lua                LuaLibs\WProcessSawCut.lua
+\EgtProg\Dll32\luac54 -o bin\LuaLibs\WProcessText.lua                  LuaLibs\WProcessText.lua
+\EgtProg\Dll32\luac54 -o bin\LuaLibs\WProcessVariant.lua               LuaLibs\WProcessVariant.lua
+\EgtProg\Dll32\luac54 -o bin\BatchProcess.lua                          BatchProcess.lua
+\EgtProg\Dll32\luac54 -o bin\BatchProcessNew.lua                       BatchProcessNew.lua
+\EgtProg\Dll32\luac54 -o bin\GetWallData.lua                           GetWallData.lua
+\EgtProg\Dll32\luac54 -o bin\NestFlipAndRotate.lua                     NestFlipAndRotate.lua
+\EgtProg\Dll32\luac54 -o bin\NestProcess.lua                           NestProcess.lua
+\EgtProg\Dll32\luac54 -o bin\Overturn.lua                              Overturn.lua
+\EgtProg\Dll32\luac54 -o bin\Process.lua                               Process.lua
+\EgtProg\Dll32\luac54 -o bin\Rotate.lua                                Rotate.lua
+\EgtProg\Dll32\luac54 -o bin\Version.lua                               Version.lua
@@ -1,4 +1,4 @@
-- GetWallData.lua by Egaltech s.r.l. 2022/06/28
+-- GetWallData.lua by Egaltech s.r.l. 2023/03/08
 -- Recupero dati da file WallData.lua di macchina

 -- Intestazioni
@@ -37,6 +37,8 @@ local WD = require( 'WallData')
 -- Assegno valori di interesse
 GWD.SIMUL_VIEW_DIR = WD.SIMUL_VIEW_DIR
 GWD.ORIG_CORNER = WD.ORIG_CORNER
+GWD.DELTA_X = WD.DELTA_X
+GWD.DELTA_Y = WD.DELTA_Y
 GWD.NESTING_CORNER = WD.NESTING_CORNER
 GWD.HOR_DRILL_DIAM = WD.HOR_DRILL_DIAM
 GWD.MIN_HEIGHT = WD.MIN_HEIGHT
@@ -1,5 +1,8 @@
 -- MachiningLib.lua by Egaltech s.r.l. 2022/01/12
 -- Libreria ricerca lavorazioni per Pareti
+-- 2023/03/09 Piccola correzione alla SideDepth in FindMilling
+--            In FindMilling aggiunta gestione spessore e massimo materiale nel caso di lam
+-- 2023/05/25 Aggiunta funzione AddMachining che incapsula EgtAddMachining trascrivendo le priorità btl dalle feature alle lavorazioni.

 -- Tabella per definizione modulo
 local WMachiningLib = {}
@@ -55,14 +58,15 @@ function WMachiningLib.FindMilling( sType, dDepth, sTuuid, nTool_ID, dMaxDiam, d
   for i = 1, #Millings do
      local Milling = Millings[i]
      if Milling.On and Milling.Type == sType and SetCurrMachiningAndTool( Milling.Name) then
+         local bIsBlade = ( EgtTdbGetCurrToolParam( MCH_TP.TYPE) & MCH_TF.SAWBLADE ~= 0) or false
         local nMchType = EgtMdbGetCurrMachiningParam( MCH_MP.TYPE)
-         local sMyTuuid = EgtGetMachiningParam( MCH_MP.TUUID)
-         local dTMaxMat = EgtTdbGetCurrToolParam( MCH_TP.MAXMAT)
+         local sMyTuuid = EgtMdbGetCurrMachiningParam( MCH_MP.TUUID)
+         local dTMaxMat = EgtIf( bIsBlade, EgtTdbGetCurrToolParam( MCH_TP.THICK), EgtTdbGetCurrToolParam( MCH_TP.MAXMAT))
         local dTMaxDepth = EgtIf( WD.MILL_MAX_DEPTH_AS_MAT, dTMaxMat, EgtTdbGetCurrToolMaxDepth())
         local dTDiam = EgtTdbGetCurrToolParam( MCH_TP.DIAM)
         local dTDiamTh = EgtTdbGetCurrToolThDiam() or 0
         local dTTipFeed = EgtTdbGetCurrToolParam( MCH_TP.TIPFEED)
-         local dTMaxDepthOnSide = min( EgtTdbGetCurrToolValInNotes( MCH_TP.USERNOTES, 'SIDEDEPTH', 'd') or 0, 0.5 * ( dTDiam - dTDiamTh))
+         local dTMaxDepthOnSide = EgtIf( bIsBlade, EgtTdbGetCurrToolParam( MCH_TP.MAXMAT), min( EgtTdbGetCurrToolValInNotes( MCH_TP.USERNOTES, 'SIDEDEPTH', 'd') or 999, 0.5 * ( dTDiam - dTDiamTh)))
         local nMyTool_ID = EgtTdbGetCurrToolValInNotes( MCH_TP.USERNOTES, 'Tool_ID', 'i')
         if nMchType == MCH_MY.MILLING and
            ( not sTuuid or sTuuid == sMyTuuid) and
@@ -177,5 +181,14 @@ function WMachiningLib.FindSurfacing( sType)
   end
 end

+-- incapsulo EgtAddMachining e trascrivo le priorità all'interno delle note della lavorazione
+---------------------------------------------------------------------
+function WMachiningLib.AddMachining( nProcId, sName, sMachining)
+   local nMchId, sFinalName = EgtAddMachining( sName, sMachining)
+   local nPriority = EgtGetInfo( nProcId, 'PRIORITY', 'i')
+   EgtSetInfo( nMchId, 'PRIORITY', nPriority)
+   return nMchId, sFinalName
+end
+
 -------------------------------------------------------------------------------------------------------------
 return WMachiningLib
@@ -1,4 +1,4 @@
-- WProcessCut.lua by Egaltech s.r.l. 2020/11/13
+-- WProcessCut.lua by Egaltech s.r.l. 2020/11/25
 -- Gestione calcolo taglio di testa o longitudinale per Pareti

 -- Tabella per definizione modulo
@@ -8,6 +8,7 @@ local WPC = {}
 require( 'EgtBase')
 local WL = require( 'WallLib')
 local FreeContour = require( 'WProcessFreeContour')
+local LapJoint = require( 'WProcessLapJoint')

 EgtOutLog( ' WProcessCut started', 1)

@@ -29,7 +30,7 @@ function WPC.Classify( Proc, b3Raw)
   -- verifico abbia una sola faccia
   if Proc.Fct ~= 1 then return false end
   -- controllo la normale
-   local ptC, vtN = EgtSurfTmFacetCenter( Proc.Id, 0, GDB_ID.ROOT)
+   local vtN = EgtSurfTmFacetNormVersor( Proc.Id, 0, GDB_ID.ROOT)
   if vtN:getZ() < - 0.5 then return false end
   return true
 end
@@ -41,7 +42,7 @@ function WPC.FlipClassify( Proc)
   -- verifico abbia una sola faccia
   if Proc.Fct ~= 1 then return 0, 0 end 
   -- controllo la normale
-   local ptC, vtN = EgtSurfTmFacetCenter( Proc.Id, 0, GDB_ID.ROOT)
+   local vtN = EgtSurfTmFacetNormVersor( Proc.Id, 0, GDB_ID.ROOT)
   local vtNZ = vtN:getZ()
   if vtNZ > - GEO.EPS_SMALL then
      nFlip0 = 100
@@ -67,7 +68,12 @@ end
 ---------------------------------------------------------------------
 -- Applicazione della lavorazione
 function WPC.Make( Proc, nRawId, b3Raw)
-   return FreeContour.Make( Proc, nRawId, b3Raw)
+   local vtN = EgtSurfTmFacetNormVersor( Proc.Id, 0, GDB_ID.ROOT)
+   if vtN :getZ() > 0.866 then
+      return LapJoint.Make( Proc, nRawId, b3Raw)
+   else
+      return FreeContour.Make( Proc, nRawId, b3Raw)
+   end
 end

 ---------------------------------------------------------------------
@@ -1,5 +1,6 @@
-- WProcessDoubleCut.lua by Egaltech s.r.l. 2021/04/28
+-- WProcessDoubleCut.lua by Egaltech s.r.l. 2023/04/17
 -- Gestione calcolo doppi tagli di lama per Pareti
+-- 2023/04/17 Quando si chiama LapJoint si trasforma il Gruppo da 1 a 3 e da 2 a 4.

 -- Tabella per definizione modulo
 local WPDC = {}
@@ -58,7 +59,9 @@ function WPDC.Make( Proc, nRawId, b3Raw)
   -- se singola faccia, passo a quella lavorazione
   if Proc.Fct == 1 then return Cut.Make( Proc, nRawId, b3Raw) end
   -- altrimenti due facce e passo alla LapJoint
-   return LapJoint.Make( Proc, nRawId, b3Raw)
+   local LapProc = { PartId = Proc.PartId, Id = Proc.Id, Grp = Proc.Grp + 2, Prc = Proc.Prc, Box = Proc.Box, Fct = Proc.Fct, Flg = Proc.Flg,
+                     Diam = Proc.Diam, Fcs = Proc.Fcs, Fce = Proc.Fce, CutId = Proc.CutId, TaskId = Proc.TaskId}
+   return LapJoint.Make( LapProc, nRawId, b3Raw)
 end

 ---------------------------------------------------------------------
@@ -8,6 +8,7 @@
 -- 2022/01/29 DS Corretta gestione ingombro portautensili per fori inclinati da sopra.
 -- 2022/02/22 ES Aggiunta gestione prefori.
 -- 2022/03/08 DS Vanno accettati fori orizzontali sul bordo anche senza foratori orizzontali speciali.
+-- 2023/05/25 Funzioni EgtAddMachining sostituite da WM.AddMachining in modo da trascrivere le priorità da btl alle lavorazioni.

 -- Tabella per definizione modulo
 local WPD = {}
@@ -137,7 +138,7 @@ function WPD.RotateClassify( Proc)
   local vtExtr = EgtCurveExtrusion( AuxId, GDB_RT.GLOB)
   local ptCen = EgtCP( AuxId, GDB_RT.GLOB)
   -- se foro orizzontale con punta lunga
-   if dDiam <= WD.HOR_DRILL_DIAM + WD.DRILL_TOL and dDiam >= WD.HOR_DRILL_DIAM - WD.DRILL_TOL and vtExtr:getZ() > -0.1 and vtExtr:getZ() < 0.1 then
+   if dDiam <= ( WD.HOR_DRILL_DIAM or 35) + WD.DRILL_TOL and dDiam >= ( WD.HOR_DRILL_DIAM or 35) - WD.DRILL_TOL and vtExtr:getZ() > -0.1 and vtExtr:getZ() < 0.1 then
      -- se orientato perpendicolare ad X
      if AreSameOrOppositeVectorApprox( vtExtr, X_AX()) then
         nRot0 = 0
@@ -375,7 +376,7 @@ function WPD.Make( Proc, nRawId, b3Raw)
   end
   -- inserisco la lavorazione
   local sName = EgtIf( sHead == 'H5' or sHead == 'H6', 'LhDrill_', 'Drill_') .. ( EgtGetName( Proc.Id) or tostring( Proc.Id))
-   local nMchId = EgtAddMachining( sName, sDrilling)
+   local nMchId = WM.AddMachining( Proc.Id, sName, sDrilling)
   if not nMchId then
      local sErr = 'Error adding machining ' .. sName .. '-' .. sDrilling
      EgtOutLog( sErr)
@@ -505,7 +506,7 @@ function WPD.Make( Proc, nRawId, b3Raw)
      
      -- inserisco la lavorazione
      local sName = 'PreDrill_' .. ( EgtGetName( Proc.Id) or tostring( Proc.Id))
-      local nMchId = EgtAddMachining( sName, sDrilling)
+      local nMchId = WM.AddMachining( Proc.Id, sName, sDrilling)
      if not nMchId then
         local sErr = 'Error adding machining ' .. sName .. '-' .. sDrilling
         EgtOutLog( sErr)
@@ -2,6 +2,7 @@
 -- Gestione calcolo mortase a coda di rondine per Pareti

 -- Tabella per definizione modulo
+-- 2023/05/25 Funzioni EgtAddMachining sostituite da WM.AddMachining in modo da trascrivere le priorità da btl alle lavorazioni.
 local WPDM= {}

 -- Include
@@ -159,7 +160,7 @@ function WPDM.Make( Proc, nRawId, b3Raw)
      end
      -- inserisco la lavorazione di svuotatura
      local sName = 'DtMtPck_' .. ( EgtGetName( Proc.Id) or tostring( Proc.Id))
-      local nMchFId = EgtAddMachining( sName, sPocketing)
+      local nMchFId = WM.AddMachining( Proc.Id, sName, sPocketing)
      if not nMchFId then
         local sErr = 'Error adding machining ' .. sName .. '-' .. sPocketing
         EgtOutLog( sErr)
@@ -189,7 +190,7 @@ function WPDM.Make( Proc, nRawId, b3Raw)
   for i = nPass, 1, -1 do
      -- inserisco la lavorazione di contornatura
      local sNameF = 'DtMt_' .. ( EgtGetName( Proc.Id) or tostring( Proc.Id)) .. '_' .. tostring( nPass)
-      local nMchFId = EgtAddMachining( sNameF, sMilling)
+      local nMchFId = WM.AddMachining( Proc.Id, sNameF, sMilling)
      if not nMchFId then
         local sErr = 'Error adding machining ' .. sNameF .. '-' .. sMilling
         EgtOutLog( sErr)
@@ -1,4 +1,4 @@
-- ProcessFreeContour.lua by Egaltech s.r.l. 2022/08/29
+-- ProcessFreeContour.lua by Egaltech s.r.l. 2023/04/17
 -- Gestione calcolo profilo libero per Pareti
 -- 2021/11/15 Penna e chiodature sono sempre riportate sulla faccia sopra anche se nel progetto sono sotto.
 -- 2021/12/10 In taglio con lama aggiunta gestione SCC per testa Gearbox.
@@ -12,6 +12,14 @@
 -- 2022/04/26 Migliorata gestione caso pocketing.
 -- 2022/08/05 Aggiunta segnalazione aree vietate non gestite.
 -- 2022/08/29 Corretta gestione tipo Pocket senza fondo (sono lavorabili da entrambe le parti con fresatura).
+-- 2022/12/13 Aggiunta la funzione Is3EdgesApprox per riconoscere come 3 lati anche facce con lati aggiuntivi molto corti (<15 mm)
+-- 2022/12/14 Aggiunto l'accorciamento della lama in caso di facce vicine orientate verso il basso
+-- 2023/02/28 In lavorazioni con sega a catena per invertire lato mandrino ora Invert + Left invece di MCH_SCC.OPPOSITE.
+-- 2023/03/08 In lavorazione con fresa, se imposto Tool_ID non si controlla più possa lavorare di testa.
+-- 2023/04/14 Aggiunta pulitura spigoli Q05=1 anche su sole fresature.
+-- 2023/04/17 Lavorazione CleanCorner sempre forzata con lato di lavoro in centro.
+-- 2023/05/25 Funzioni EgtAddMachining sostituite da WM.AddMachining in modo da trascrivere le priorità da btl alle lavorazioni.
+-- 2023/06/06 Aggiunta gestione lavorazione per lamatura speciale affondata con Tool_ID specifico.

 -- Tabella per definizione modulo
 local WPF = {}
@@ -60,6 +68,7 @@ function WPF.Classify( Proc, b3Raw)
   local vtExtr = EgtCurveExtrusion( AuxId, GDB_RT.GLOB)
   -- recupero il tipo di lavorazione
   local nCntType = EgtGetInfo( Proc.Id, 'CNT_TYPE', 'i') or 0
+   local nTool_ID = EgtGetInfo( Proc.Id, 'CNT_DATA', 'i')
   -- se tasca
   if bPocket then
      -- cerco la faccia di fondo della superfice (deve avere direzione circa quella di estrusione della curva)
@@ -80,10 +89,10 @@ function WPF.Classify( Proc, b3Raw)
   -- se penna o chiodatura va sempre bene (vengono sempre riportati sopra)
   elseif nCntType == 10 or nCntType == 20 then
      return true
-   -- se altrimenti profilo verticale che non interessa tutta la sezione
-   elseif Proc.Box:getMax():getZ() < b3Raw:getMax():getZ() - 2 then
+   -- se altrimenti profilo verticale che non interessa tutta la sezione e non caso speciale con lamatura affondata
+   elseif ( Proc.Box:getMax():getZ() < b3Raw:getMax():getZ() - 2) and ( not nTool_ID or ( nTool_ID ~= ( WD.RECESSED_COUNTERBORE_TOOLID or 0)) or ( not EgtCurveIsACircle( AuxId))) then
      return false
-   -- altrimenti è profilo verticale che interessa tutta la sezione
+   -- altrimenti è profilo verticale che interessa tutta la sezione o caso speciale con lamatura affondata
   else
      return true
   end
@@ -93,8 +102,8 @@ end
 -- Classificazione del flip della feature per nesting
 -- return nFlip0, nFlip1
 function WPF.FlipClassify( Proc, b3Raw)
-   local nFlip0 = 0 
-   local nFlip1 = 0 
+   local nFlip0 = 0
+   local nFlip1 = 0
   
   -- verifico se di tipo pocket
   local bPocket = ( EgtGetInfo( Proc.Id, 'PCKT', 'i') == 1)
@@ -295,7 +304,7 @@ local function ReorderFaces( nIdSurf, nNumFacet)
   end
   -- ordino le facce in modo da avere una sequenza di facce concatenate
   for i = 1, #vAdj - 1 do
-      -- recupero l'angolo con la faccia precedente
+      -- recupero l'angolo con la faccia successiva
      local bAdj, _, _, _ =  EgtSurfTmFacetsContact( nIdSurf, i-1, i, GDB_ID.ROOT)
      -- se non ho adiacenza
      if not bAdj then
@@ -1011,7 +1020,7 @@ local function AddMillCornerMachining( nPartId, nNewProc, nFacInd, tFacAdj, nTyp
   end
   -- inserisco la lavorazione
   local sName = 'Clean_' .. ( EgtGetName( nNewProc) or tostring( nNewProc))
-   local nMchId = EgtAddMachining( sName, sMilling) 
+   local nMchId = WM.AddMachining( nNewProc.Id, sName, sMilling)
   if not nMchId then
      local sErr = 'Error adding machining ' .. sName .. '-' .. sMilling
      EgtOutLog( sErr)
@@ -1037,10 +1046,11 @@ local function AddMillCornerMachining( nPartId, nNewProc, nFacInd, tFacAdj, nTyp
   EgtSetMachiningParam( MCH_MP.ENDADDLEN, 10)
   -- setto affondamento 0
   EgtSetMachiningParam( MCH_MP.DEPTH, 0)
+   -- forzo lato correzione a centrato
+   EgtSetMachiningParam( MCH_MP.WORKSIDE, MCH_MILL_WS.CENTER)
   -- Note utente con dichiarazione nessuna generazione sfridi per Vmill
   local sUserNotes = 'VMRS=0;'
   -- aggiungo alle note massima elevazione
--   sUserNotes = sUserNotes .. 'MaxElev=' .. EgtNumToString( dMaxDepth, 1) .. ';'
   sUserNotes = sUserNotes .. 'MaxElev=' .. EgtNumToString( 0.0, 1) .. ';'
   EgtSetMachiningParam( MCH_MP.USERNOTES, sUserNotes)
   if not EgtApplyMachining( true, false) then
@@ -1233,6 +1243,33 @@ local function GetMaxDepth( vtNz, dMillDiam, dDiamTh, dMaxDepth, dFreeLen)
   end
 end

+---------------------------------------------------------------------
+-- Funzione per determinare se la faccia ha lati molto corti (trascurabili) ed è quindi approssimabile ad una 3 facce
+local function Is3EdgesApprox( Proc, nFacet, nAddGrpId)
+   local bResult = false
+   local nContourId = EgtExtractSurfTmFacetLoops( Proc.Id, nFacet, nAddGrpId)
+   EgtMergeCurvesInCurveCompo( nContourId)
+   -- recupero il numero effettivo di lati
+   local _, nEntityCount = EgtCurveDomain( nContourId)
+   local nEdges = nEntityCount
+   if nContourId then
+      if nEntityCount and nEntityCount  == 3 then
+         bResult = true
+      -- rimuovo i lati molto corti dal conteggio totale
+      elseif nEntityCount then
+         for i = 1, nEntityCount do
+            local dLength = EgtCurveCompoLength( nContourId, i - 1)
+            if dLength < 15 then nEdges = nEdges - 1 end
+         end
+      end
+      if nEdges == 3 then bResult = true end
+   end
+   if bResult == true then
+      EgtOutLog( 'FreeContour : Face with ' .. tointeger( nEntityCount) .. ' edges skipped (approx 3 edges)')
+   end
+   return bResult
+end
+
 ---------------------------------------------------------------------
 local function AddMillings( sMilling, vFace, Proc, nRawId, b3Raw, nConeCut, nAddGrpId)
   -- flag per fresature non passanti
@@ -1253,13 +1290,19 @@ local function AddMillings( sMilling, vFace, Proc, nRawId, b3Raw, nConeCut, nAdd
         dMaxDepth = EgtIf( WD.MILL_MAX_DEPTH_AS_MAT, EgtTdbGetCurrToolParam( MCH_TP.MAXMAT), dFreeLen) or dMaxDepth
      end
   end
+   -- verifico se la facce hanno alcuni lati molto corti e possono quindi essere approssimate a 3 lati
+   for currentFace = 1, #vFace do
+      if Is3EdgesApprox( Proc, vFace[currentFace].Fac, nAddGrpId) then
+         vFace[currentFace].Is3EdgesApprox = true
+      end
+   end
   -- verifico se ciclo chiuso
   local bClosed = ( abs( vFace[1].PrevAng) > 0.1)
   -- ciclo di inserimento delle fresate sulle facce del contorno in esame
   local i = 1
   -- se faccia finale con fine non lavorato, forzo partenza da prima faccia non tutta saltata (tipo 4)
-   if bClosed and ( ( vFace[#vFace].Type == 4 and vFace[#vFace].Edges > 3) or ( vFace[#vFace].Type & 2) ~= 0) then
-      while i <= #vFace and vFace[i].Type == 4  and vFace[i].Edges > 3 and abs( vFace[i].SideAng) < 0.1 do
+   if bClosed and ( ( vFace[#vFace].Type == 4 and ( vFace[#vFace].Edges > 3 and not vFace[#vFace].Is3EdgesApprox)) or ( vFace[#vFace].Type & 2) ~= 0) then
+      while i <= #vFace and vFace[i].Type == 4  and ( vFace[i].Edges > 3 and not vFace[i].Is3EdgesApprox) and abs( vFace[i].SideAng) < 0.1 do
         i = i + 1
      end
   end
@@ -1272,7 +1315,7 @@ local function AddMillings( sMilling, vFace, Proc, nRawId, b3Raw, nConeCut, nAdd
      if ( vFace[i].Type & 1) ~= 0 and ( not j or vFace[j].Type == 0 or vFace[j].Type == 1 or abs( vFace[i].SideAng) > 0.1 or abs( vFace[j].SideAng) > 0.1) then
         -- inserisco la lavorazione
         local sName = 'Free_' .. ( EgtGetName( Proc.PartId) or tostring( Proc.PartId))
-         local nMchId = EgtAddMachining( sName, sMilling)
+         local nMchId = WM.AddMachining( Proc.Id, sName, sMilling)
         if not nMchId then
            local sErr = 'Error adding machining ' .. sName .. '-' .. sMilling
            EgtOutLog( sErr)
@@ -1322,6 +1365,10 @@ local function AddMillings( sMilling, vFace, Proc, nRawId, b3Raw, nConeCut, nAdd
            end
         end
         local dEal = vFace[i].Whisk - vFace[i].Len
+         -- se faccia precedente inclinata verso il basso prolungo il finale per adeguarmi all percorso della lama
+         if j and vFace[j].Norm:getZ() < -0.017 then
+            dEal = dEal - vFace[j].Width * vFace[j].Norm:getZ()
+         end
         -- se angolo interno prima e faccia precedente inclinata verso l'alto oltre 16.1deg
         if vFace[i].PrevAng < -30 and j and vFace[j].Norm:getZ() < 0.96078 and vFace[j].Norm:getZ() > 0 then
            dEal = dEal + vFace[j].Width * vFace[j].Norm:getZ()
@@ -1359,10 +1406,10 @@ local function AddMillings( sMilling, vFace, Proc, nRawId, b3Raw, nConeCut, nAdd
         end
      end
      -- se tutta la faccia o la sua fine senza taglio, inserisco una fresatura
-      if ( vFace[i].Type & 2) ~= 0  or ( vFace[i].Type == 4 and vFace[i].Edges > 3) then
+      if ( vFace[i].Type & 2) ~= 0  or ( vFace[i].Type == 4 and ( vFace[i].Edges > 3 and not vFace[i].Is3EdgesApprox)) then
         -- inserisco la lavorazione
         local sName = 'Free_' .. ( EgtGetName( Proc.PartId) or tostring( Proc.PartId))
-         local nMchId = EgtAddMachining( sName, sMilling)
+         local nMchId = WM.AddMachining( Proc.Id, sName, sMilling)
         if not nMchId then
            local sErr = 'Error adding machining ' .. sName .. '-' .. sMilling
            EgtOutLog( sErr)
@@ -1400,7 +1447,7 @@ local function AddMillings( sMilling, vFace, Proc, nRawId, b3Raw, nConeCut, nAdd
         local LastJ
         i = i + 1
         local j = EgtIf( i <= #vFace, i, EgtIf( bAllType4 or not bClosed, nil, 1))
-         while j and ( ( vFace[j].Type & 1) ~= 0  or ( vFace[j].Type == 4 and  vFace[j].Edges > 3)) and abs( vFace[j].SideAng) < 0.1 and abs( vFace[OrigI].SideAng) < 0.1 do
+         while j and ( ( vFace[j].Type & 1) ~= 0  or ( vFace[j].Type == 4 and ( vFace[j].Edges > 3 and not vFace[j].Is3EdgesApprox))) and abs( vFace[j].SideAng) < 0.1 and abs( vFace[OrigI].SideAng) < 0.1 do
            table.insert( vGeom, { Proc.Id, vFace[j].Fac})
            LastJ = j
            dEal = EgtIf( ( vFace[j].Type & 1) ~= 0, vFace[j].Whisk - vFace[j].Len, 0)
@@ -1411,13 +1458,13 @@ local function AddMillings( sMilling, vFace, Proc, nRawId, b3Raw, nConeCut, nAdd
            j = EgtIf( j + 1 <= #vFace, j + 1, EgtIf( bAllType4 or not bClosed, nil, 1))
         end
         -- se faccia singola è da fare tutta senza oltrepassare estremi
-         if #vFace == 1 and vFace[OrigI].Type == 4 and vFace[OrigI].Edges > 3 then
+         if #vFace == 1 and vFace[OrigI].Type == 4 and ( vFace[OrigI].Edges > 3 and not vFace[OrigI].Is3EdgesApprox) then
            dSal = -dMillDiam / 2
            dEal = -dMillDiam / 2
         -- altrimenti va verificato
         else
            -- se lavorazione completa su faccia iniziale
-            if vFace[OrigI].Type == 4 and vFace[OrigI].Edges > 3 then
+            if vFace[OrigI].Type == 4 and ( vFace[OrigI].Edges > 3 and not vFace[OrigI].Is3EdgesApprox) then
               -- se angolo interno prima
               if vFace[OrigI].PrevAng < -30 then
                  local dSinA = -sin( vFace[OrigI].PlPrevAng + 90)
@@ -1438,7 +1485,7 @@ local function AddMillings( sMilling, vFace, Proc, nRawId, b3Raw, nConeCut, nAdd
            -- se lavorazione completa o finale su faccia finale
            local LastFace = ( LastJ or OrigI)
            local OrigK = EgtIf( LastFace < #vFace, LastFace + 1, EgtIf( bClosed, 1, nil))
-            if ( vFace[LastFace].Type == 4 and vFace[LastFace].Edges > 3) or ( LastFace == OrigI and ( vFace[LastFace].Type & 2) ~= 0) then
+            if ( vFace[LastFace].Type == 4 and ( vFace[LastFace].Edges > 3 and not vFace[LastFace].Is3EdgesApprox)) or ( LastFace == OrigI and ( vFace[LastFace].Type & 2) ~= 0) then
               -- se angolo interno dopo
               if OrigK and vFace[OrigK].PrevAng < -30 then
                  local dSinA = -sin( vFace[OrigK].PlPrevAng + 90)
@@ -1563,7 +1610,7 @@ local function AddMillings( sMilling, vFace, Proc, nRawId, b3Raw, nConeCut, nAdd
      if vFace[i].Split then
         -- inserisco la lavorazione
         local sName = 'Free_' .. ( EgtGetName( Proc.PartId) or tostring( Proc.PartId)) .. '_M'
-         local nMchId = EgtAddMachining( sName, sMilling)
+         local nMchId = WM.AddMachining( Proc.Id, sName, sMilling)
         if not nMchId then
            local sErr = 'Error adding machining ' .. sName .. '-' .. sMilling
            EgtOutLog( sErr)
@@ -1654,7 +1701,7 @@ local function AddSawings( sSawing, vFace, Proc, nRawId, b3Raw)
      if ( vFace[i].Type & 1) ~= 0 then
         -- inserisco la lavorazione
         local sName = 'Free_' .. ( EgtGetName( Proc.PartId) or tostring( Proc.PartId))
-         local nMchId = EgtAddMachining( sName, sSawing)
+         local nMchId = WM.AddMachining( Proc.Id, sName, sSawing)
         if not nMchId then
            local sErr = 'Error adding machining ' .. sName .. '-' .. sSawing
            EgtOutLog( sErr)
@@ -1675,23 +1722,22 @@ local function AddSawings( sSawing, vFace, Proc, nRawId, b3Raw)
         local dEal = vFace[i].Whisk - vFace[i].Len - dSawDiam / 2
         EgtSetMachiningParam( MCH_MP.STARTADDLEN, dSal)
         EgtSetMachiningParam( MCH_MP.ENDADDLEN, dEal)
-         -- percorso da non invertire
-         EgtSetMachiningParam( MCH_MP.INVERT, false)
         -- assegno utilizzo faccia
         EgtSetMachiningParam( MCH_MP.FACEUSE, MCH_MILL_FU.PARAL_DOWN)
         -- imposto angolo 3° asse rot
         EgtSetMachiningParam( MCH_MP.BLOCKEDAXIS, sRot3Ang)
         -- assegno affondamento
         EgtSetMachiningParam( MCH_MP.DEPTH, dDepth)
-         -- assegno lato di lavoro
-         EgtSetMachiningParam( MCH_MP.WORKSIDE, MCH_MILL_WS.RIGHT)
-         -- posizione braccio porta testa
+         -- assegno lato di lavoro e inversione direzione movimento
         if vFace[i].Norm:getX() < 0.018 then 
-            EgtSetMachiningParam( MCH_MP.SCC, MCH_SCC.NONE)
+            EgtSetMachiningParam( MCH_MP.INVERT, false)
+            EgtSetMachiningParam( MCH_MP.WORKSIDE, MCH_MILL_WS.RIGHT)
         else
-            EgtSetMachiningParam( MCH_MP.SCC, MCH_SCC.OPPOSITE)
-            EgtSetMachiningParam( MCH_MP.OFFSR, dSawThick)
+            EgtSetMachiningParam( MCH_MP.INVERT, true)
+            EgtSetMachiningParam( MCH_MP.WORKSIDE, MCH_MILL_WS.LEFT)
         end
+         -- posizione braccio porta testa
+         EgtSetMachiningParam( MCH_MP.SCC, MCH_SCC.NONE)
         -- eseguo
         if not EgtApplyMachining( true, false) then
            local _, sErr = EgtGetLastMachMgrError()
@@ -1700,10 +1746,10 @@ local function AddSawings( sSawing, vFace, Proc, nRawId, b3Raw)
         end
      end
      -- se fine faccia non tagliato completamente o faccia non tagliata completamente e abbastanza lunga, inserisco un ripasso con sega a catena
-      if ( vFace[i].Type & 2) ~= 0 or ( vFace[i].Type == 4 and vFace[i].Edges > 3 and vFace[i].Len > dSawDiam + 1) then
+      if ( vFace[i].Type & 2) ~= 0 or ( vFace[i].Type == 4 and ( vFace[i].Edges > 3 and not vFace[i].Is3EdgesApprox) and vFace[i].Len > dSawDiam + 1) then
         -- inserisco la lavorazione
         local sName = 'Free_' .. ( EgtGetName( Proc.PartId) or tostring( Proc.PartId))
-         local nMchId = EgtAddMachining( sName, sSawing)
+         local nMchId = WM.AddMachining( Proc.Id, sName, sSawing)
         if not nMchId then
            local sErr = 'Error adding machining ' .. sName .. '-' .. sSawing
            EgtOutLog( sErr)
@@ -1727,23 +1773,22 @@ local function AddSawings( sSawing, vFace, Proc, nRawId, b3Raw)
         end
         EgtSetMachiningParam( MCH_MP.STARTADDLEN, dSal)
         EgtSetMachiningParam( MCH_MP.ENDADDLEN, dEal)
-         -- percorso da non invertire
-         EgtSetMachiningParam( MCH_MP.INVERT, false)
         -- assegno utilizzo faccia
         EgtSetMachiningParam( MCH_MP.FACEUSE, MCH_MILL_FU.PARAL_DOWN)
         -- imposto angolo 3° asse rot
         EgtSetMachiningParam( MCH_MP.BLOCKEDAXIS, sRot3Ang)
         -- assegno affondamento
         EgtSetMachiningParam( MCH_MP.DEPTH, dDepth)
-         -- assegno lato di lavoro
-         EgtSetMachiningParam( MCH_MP.WORKSIDE, MCH_MILL_WS.RIGHT)
-         -- posizione braccio porta testa
-         if vFace[i].Norm:getX() < 0.018 then 
-            EgtSetMachiningParam( MCH_MP.SCC, MCH_SCC.NONE)
+         -- assegno lato di lavoro e inversione direzione movimento
+         if vFace[i].Norm:getX() < 0.018 then
+            EgtSetMachiningParam( MCH_MP.INVERT, false)
+            EgtSetMachiningParam( MCH_MP.WORKSIDE, MCH_MILL_WS.RIGHT)
         else
-            EgtSetMachiningParam( MCH_MP.SCC, MCH_SCC.OPPOSITE)
-            EgtSetMachiningParam( MCH_MP.OFFSR, dSawThick)
+            EgtSetMachiningParam( MCH_MP.INVERT, true)
+            EgtSetMachiningParam( MCH_MP.WORKSIDE, MCH_MILL_WS.LEFT)
         end
+         -- posizione braccio porta testa
+         EgtSetMachiningParam( MCH_MP.SCC, MCH_SCC.NONE)
         -- eseguo
         if not EgtApplyMachining( true, false) then
            local _, sErr = EgtGetLastMachMgrError()
@@ -1761,6 +1806,8 @@ end

 ---------------------------------------------------------------------
 local function AddCuts( sCutting, vFace, Proc, nRawId, b3Raw, dSawThick)
+   -- verifico se ciclo chiuso
+   local bClosed = ( abs( vFace[1].PrevAng) > 0.1)
   -- ciclo di inserimento dei tagli sulle facce del contorno in esame
   for i = 1, #vFace do
      -- verifico se faccia da saltare, perchè macchina travi e faccia su bordo longitudinale esterno già finito
@@ -1769,9 +1816,11 @@ local function AddCuts( sCutting, vFace, Proc, nRawId, b3Raw, dSawThick)
      if not bToSkip and vFace[i].Type ~= 4 then
         -- indice del successivo
         local j = EgtIf( i < #vFace, i + 1, 1)
+         -- indice del precedente
+         local h = EgtIf( i > 1, i - 1, EgtIf( bClosed, #vFace, nil))
         -- inserisco la lavorazione
         local sName = 'Cut_' .. ( EgtGetName( Proc.PartId) or tostring( Proc.PartId)) .. '_' .. tostring( i) 
-         local nMchId = EgtAddMachining( sName, sCutting)
+         local nMchId = WM.AddMachining( Proc.Id, sName, sCutting)
         if not nMchId then
            local sErr = 'Error adding machining ' .. sName .. '-' .. sCutting
            EgtOutLog( sErr)
@@ -1812,7 +1861,14 @@ local function AddCuts( sCutting, vFace, Proc, nRawId, b3Raw, dSawThick)
         EgtSetMachiningParam( MCH_MP.LEADINTYPE, nLeadIn)
         local dSal = 0
         if ( not bInvert and vFace[i].PrevAng < -0.1) or ( bInvert and vFace[j].PrevAng < -0.1) then
-            dSal = -WHISK_SAFE
+            -- se faccia precedente inclinata verso il basso
+            if not bInvert and h and vFace[h].Norm:getZ() < -0.017 then
+               dSal = vFace[h].Width * vFace[h].Norm:getZ() - WHISK_SAFE
+            elseif bInvert and j and vFace[j].Norm:getZ() < -0.017 then
+               dSal = vFace[j].Width * vFace[j].Norm:getZ() - WHISK_SAFE
+            else
+               dSal = -WHISK_SAFE
+            end
         end
         EgtSetMachiningParam( MCH_MP.STARTADDLEN, dSal)
         -- assegno i dati di uscita (sicurezza solo se angolo interno)
@@ -1823,7 +1879,14 @@ local function AddCuts( sCutting, vFace, Proc, nRawId, b3Raw, dSawThick)
         EgtSetMachiningParam( MCH_MP.LEADOUTTYPE, nLeadOut)
         local dEal = 0
         if ( not bInvert and vFace[j].PrevAng < -0.1) or ( bInvert and vFace[i].PrevAng < -0.1) then
-            dEal = -WHISK_SAFE
+            -- se faccia precedente inclinata verso il basso
+            if not bInvert and j and vFace[j].Norm:getZ() < -0.017 then
+               dEal = vFace[j].Width * vFace[j].Norm:getZ() - WHISK_SAFE
+            elseif bInvert and h and vFace[h].Norm:getZ() < -0.017 then
+               dEal = vFace[h].Width * vFace[h].Norm:getZ() - WHISK_SAFE
+            else
+               dEal = -WHISK_SAFE
+            end
         end
         EgtSetMachiningParam( MCH_MP.ENDADDLEN, dEal)
         -- posizione braccio porta testa
@@ -1956,8 +2019,7 @@ local function MakeByCut( Proc, nRawId, b3Raw)
         if ( nConeCut == 1 and nMlOk == 1 and dThick <= ( WD.MAX_CLEAN_CRN60 + 20 * GEO.EPS_SMALL)) or
            ( nConeCut == 2 and dThick <= ( WD.MAX_CLEAN_CRN30 + 20 * GEO.EPS_SMALL)) then
            local bMcok, sMcErr = AddMillCorner( nConeCut, vFace, Proc, nRawId, b3Raw, 
-                                                 sMlErr, nAddGrpId, dThick, nNewProc, 0, 
-                                                 true)
+                                                 sMlErr, nAddGrpId, dThick, nNewProc, 0, true)
            if not bMcok then return bMcok, sMcErr end
         else
            -- messaggi nel log
@@ -1979,7 +2041,7 @@ local function MakeByCut( Proc, nRawId, b3Raw)
      end
   -- altrimenti provo con la sega a catena
   elseif sSawing then
-      local nCsOk, sCSErr, dThick = AddSawings( sSawing, vFace, Proc, nRawId, b3Raw)
+      local nCsOk, sCsErr, dThick = AddSawings( sSawing, vFace, Proc, nRawId, b3Raw)
      if nCsOk == 0 then return false, sCsErr end
      bDone = ( dThick ~= nil)
      -- se ci sono almeno due facce e lavorato almeno un angolo
@@ -1987,8 +2049,7 @@ local function MakeByCut( Proc, nRawId, b3Raw)
         -- se abilitata la lavorazione corner con stop macchina e lavorazione precedente passante e spessore sotto il limite
         if nConeCut == 1 and nCsOk == 1 and dThick <= ( WD.MAX_CLEAN_CRN60 + 20 * GEO.EPS_SMALL) then
            local bMcok, sMcErr = AddMillCorner( nConeCut, vFace, Proc, nRawId, b3Raw, 
-                                                 sCSErr, nAddGrpId, nil, nNewProc, 0, 
-                                                 true)
+                                                 sCSErr, nAddGrpId, nil, nNewProc, 0, true)
            if not bMcok then return bMcok, sMcErr end
         else
            if nConeCut == 1 then
@@ -2018,8 +2079,7 @@ local function MakeByCut( Proc, nRawId, b3Raw)
         if ( nConeCut == 1 and nMlOk == 1 and dThick <= ( WD.MAX_CLEAN_CRN60 + 20 * GEO.EPS_SMALL)) or
            ( nConeCut == 2 and dThick <= ( WD.MAX_CLEAN_CRN30 + 20 * GEO.EPS_SMALL)) then
            local bMcok, sMcErr = AddMillCorner( nConeCut, vFace, Proc, nRawId, b3Raw, 
-                                                 sMlErr, nAddGrpId, dThick, nNewProc, 0, 
-                                                 true)
+                                                 sMlErr, nAddGrpId, dThick, nNewProc, 0, true)
            if not bMcok then return bMcok, sMcErr end
         else
            -- messaggi nel log
@@ -2068,8 +2128,11 @@ local function MakeByMill( Proc, nRawId, b3Raw)
   local b3Aux = EgtGetBBoxGlob( AuxId, GDB_BB.STANDARD)
   local bToolInv = ( vtExtr:getZ() < -0.1)
   local nTool_ID = EgtGetInfo( Proc.Id, 'CNT_DATA', 'i')
+   -- lettura parametri (probabile/i parametro/i Q)
+   local nConeCut = VerifyCornerType( Proc)
   -- recupero la lavorazione
-   local sMilling = WM.FindMilling( 'FreeContour', nil, nil, nTool_ID, nil, nil, true)
+   local bTipFeed = EgtIf( nTool_ID, false, true)
+   local sMilling = WM.FindMilling( 'FreeContour', nil, nil, nTool_ID, nil, nil, bTipFeed)
   if not sMilling then
      local sErr = 'Error : milling not found in library'
      if nTool_ID then sErr = sErr .. ' (Tool_ID=' .. tostring( nTool_ID) .. ')' end
@@ -2077,27 +2140,27 @@ local function MakeByMill( Proc, nRawId, b3Raw)
      return false, sErr
   end
   -- recupero i dati dell'utensile
+   local dMillDiam = 20
   local dMaxDepth = 0
   if EgtMdbSetCurrMachining( sMilling) then
      local sTuuid = EgtMdbGetCurrMachiningParam( MCH_MP.TUUID)
      if EgtTdbSetCurrTool( EgtTdbGetToolFromUUID( sTuuid) or '') then
+         dMillDiam = EgtTdbGetCurrToolParam( MCH_TP.DIAM) or dMillDiam
         dMaxDepth = EgtIf( WD.MILL_MAX_DEPTH_AS_MAT, EgtTdbGetCurrToolParam( MCH_TP.MAXMAT), EgtTdbGetCurrToolMaxDepth()) or dMaxDepth
      end
   end
-   -- eventuale spezzatura sul tratto più lungo se curva chiusa
-   --BL.PutStartOnLonger( AuxId)
   -- verifiche per affondamento
   if b3Aux:getDimZ() > b3Raw:getDimZ() - 1.0 then
-      dDepth = min( dDepth, b3Raw:getDimZ()) + WD.CUT_EXTRA
+      dDepth = min( dDepth, b3Raw:getDimZ())
   end
-   if dDepth > dMaxDepth then
-      -- lo limito e tolgo eventuali Tabs
+   dDepth = dDepth + WD.CUT_EXTRA
+   local bReducedDepth = ( dDepth > dMaxDepth)
+   if bReducedDepth then
      dDepth = dMaxDepth
-      EgtSetMachiningParam( MCH_MP.LEAVETAB, false)
   end
   -- inserisco la lavorazione
   local sName = 'Free_' .. ( EgtGetName( Proc.Id) or tostring( Proc.Id))
-   local nMchId = EgtAddMachining( sName, sMilling)
+   local nMchId = WM.AddMachining( Proc.Id, sName, sMilling)
   if not nMchId then
      local sErr = 'Error adding machining ' .. sName .. '-' .. sMilling
      EgtOutLog( sErr)
@@ -2112,6 +2175,8 @@ local function MakeByMill( Proc, nRawId, b3Raw)
   if bToolInv then
      EgtSetMachiningParam( MCH_MP.TOOLINVERT, true)
   end
+   -- tolgo i Tabs se non passante o devo rimuovere lo sfrido
+   if bReducedDepth or nConeCut == 1 then EgtSetMachiningParam( MCH_MP.LEAVETAB, false) end
   -- assegno affondamento
   EgtSetMachiningParam( MCH_MP.DEPTH, dDepth)
   -- assegno lato di lavoro
@@ -2122,6 +2187,37 @@ local function MakeByMill( Proc, nRawId, b3Raw)
   elseif ( Proc.Grp == 3 and bToolInv) or ( Proc.Grp == 4 and not bToolInv) then
      EgtSetMachiningParam( MCH_MP.WORKSIDE, MCH_MILL_WS.RIGHT)
   end
+
+   -- se lamatura affondata speciale, setto attacco e stacco al centro
+   local bIsRecessedCounterBore = ( Proc.Box:getMax():getZ() < b3Raw:getMax():getZ() + 10 * GEO.EPS_SMALL) and
+                                  ( nTool_ID == WD.RECESSED_COUNTERBORE_TOOLID or 0) and
+                                  ( EgtCurveIsACircle( AuxId))
+   if bIsRecessedCounterBore then
+      local _, _, _, dContourRadius = EgtCurveIsACircle( AuxId)
+      -- setto attacco
+      EgtSetMachiningParam( MCH_MP.LEADINTYPE, MCH_MILL_LI.TANGENT)
+      EgtSetMachiningParam( MCH_MP.STARTADDLEN, 0)
+      EgtSetMachiningParam( MCH_MP.LITANG, 0)
+      EgtSetMachiningParam( MCH_MP.LIPERP, dContourRadius - 0.5 * dMillDiam)
+      EgtSetMachiningParam( MCH_MP.LIELEV, 0)
+      -- setto stacco
+      EgtSetMachiningParam( MCH_MP.LEADOUTTYPE, MCH_MILL_LO.LINEAR)
+      EgtSetMachiningParam( MCH_MP.ENDADDLEN, 0)
+      EgtSetMachiningParam( MCH_MP.LOTANG, 0)
+      EgtSetMachiningParam( MCH_MP.LOPERP, dContourRadius - 0.5 * dMillDiam)
+      EgtSetMachiningParam( MCH_MP.LOELEV, 0)
+      -- imposto step
+      local dMaxMat = EgtTdbGetCurrToolParam( MCH_TP.MAXMAT) or 0
+      local dStep = EgtGetMachiningParam( MCH_MP.STEP)
+      if dStep < GEO.EPS_SMALL then dStep = 0.75 * dMaxMat end
+      local nStep = ceil( ( dDepth - dMaxMat) / dStep)
+      dStep = max( ( dDepth - dMaxMat) / max( nStep, 1), 0)
+      local dMaxElev = max( ( nStep + 1) * dStep - GEO.EPS_SMALL, 0)
+      EgtSetMachiningParam( MCH_MP.STEP, dStep)
+      -- imposto elevazione
+      EgtSetMachiningParam( MCH_MP.USERNOTES, 'MaxElev=' .. EgtNumToString( dMaxElev, 1) .. ';')
+   end
+   
   -- posizione braccio porta testa
   local nSCC = MCH_SCC.ADIR_ZP
   if AreSameOrOppositeVectorApprox( vtExtr, Z_AX()) then
@@ -2134,6 +2230,32 @@ local function MakeByMill( Proc, nRawId, b3Raw)
      EgtSetOperationMode( nMchId, false)
      return false, sErr
   end
+   -- se abilitata la lavorazione corner con stop macchina, ci sono almeno due facce e fresata passante per consentire eliminazione sfrido
+   if nConeCut == 1 and Proc.Fct >= 2 and not bReducedDepth then
+      -- gruppo ausiliario
+      local nAddGrpId = WL.GetAddGroup( Proc.PartId)
+      -- recupero i dati di tutte le facce
+      local vFace, dMaxWidth, nNewProc = GetFacesData( Proc, bOpposite, false, dMillDiam, dMaxDepth, (dMillDiam/2), nAddGrpId, b3Raw)
+      -- se affondamento non superiore al limite
+      if dDepth <= ( WD.MAX_CLEAN_CRN60 + 20 * GEO.EPS_SMALL) then
+         local bMcok, sMcErr = AddMillCorner( nConeCut, vFace, Proc, nRawId, b3Raw, 
+                                              dMillDiam, nAddGrpId, nil, nNewProc, 0, true)
+         if not bMcok then return bMcok, sMcErr end
+      else
+         EgtErase( nNewProc)
+         if nConeCut == 1 then
+            local sErr = 'Clean corner 60° not applid because thickness: ' .. EgtNumToString( dThick, 2) .. 
+                         ' is bigger than parameter MAX_CLEAN_CRN60: ' .. EgtNumToString( WD.MAX_CLEAN_CRN60 , 2)
+            EgtOutLog( sErr)
+         end
+      end
+   elseif nConeCut == 2 then
+      local sErr = 'Clean corner 30° is not applied on milling'
+      EgtOutLog( sErr)
+   elseif nConeCut == 3 then
+      local sErr = 'Clean corner with undercut is not applied on milling'
+      EgtOutLog( sErr)
+   end
   return true
 end

@@ -2171,7 +2293,7 @@ local function MakeByMark( Proc, nRawId, b3Raw)
   end
   -- inserisco la lavorazione
   local sName = 'FreeMark_' .. ( EgtGetName( Proc.Id) or tostring( Proc.Id))
-   local nMchId = EgtAddMachining( sName, sMilling)
+   local nMchId = WM.AddMachining( Proc.Id, sName, sMilling)
   if not nMchId then
      local sErr = 'Error adding machining ' .. sName .. '-' .. sMilling
      EgtOutLog( sErr)
@@ -2236,7 +2358,7 @@ local function MakeByNail( Proc, nRawId, b3Raw)
   end
   -- inserisco la lavorazione
   local sName = 'Nail_' .. ( EgtGetName( Proc.Id) or tostring( Proc.Id))
-   local nMchId = EgtAddMachining( sName, sNailing)
+   local nMchId = WM.AddMachining( Proc.Id, sName, sNailing)
   if not nMchId then
      local sErr = 'Error adding machining ' .. sName .. '-' .. sNailing
      EgtOutLog( sErr)
@@ -2375,7 +2497,7 @@ local function MakeByPocket( Proc, nRawId, b3Raw)
   end
   -- inserisco la lavorazione di svuotatura
   local sName = 'Pock_' .. ( EgtGetName( Proc.Id) or tostring( Proc.Id))
-   local nMchFId = EgtAddMachining( sName, sPocketing)
+   local nMchFId = WM.AddMachining( Proc.Id, sName, sPocketing)
   if not nMchFId then
      local sErr = 'Error adding machining ' .. sName .. '-' .. sPocketing
      EgtOutLog( sErr)
@@ -1,4 +1,4 @@
-- WProcessLapJoint.lua by Egaltech s.r.l. 2022/02/04
+-- WProcessLapJoint.lua by Egaltech s.r.l. 2023/04/17
 -- Gestione calcolo mezzo-legno per Pareti
 -- 2021/08/27 DS Se tre o più facce con flag PCKT=1 forzo svuotatura con fresa (per Variant).
 -- 2021/08/29 DS Se svuotatura di fianco setto flag per farla dopo i tagli.
@@ -10,6 +10,17 @@
 -- 2022/02/03 DS Gorge larga come gambo più sicurezza.
 -- 2022/02/04 DS In svuotatura aggiunta gestione WD.MAXDIAM_POCK_CORNER in presenza di almeno un angolo interno.
 -- 2022/09/30 In MakeSideGrooveByMill sistemato il calcolo del massimo sottosquadro dell'utensile per determinare la fattibilità della tasca.
+-- 2022/10/05 In MakeSideGrooveByMill implementata l'inversione dello step se la tasca guarda verso il basso
+-- 2022/11/15 DS Con lama massima inclinazione 60deg.
+-- 2022/12/01 Per 2 facce con angolo > 90° implementata lavorazione principale verticale. Se da sopra, aggiunta ripresa del lato inclinato.
+-- 2022/12/14 Nel caso di 2 facce piccola correzione al modo di ordinare le facce.
+-- 2023/03/09 Gestito caso riconoscimento errato Stype 3.
+-- 2023/03/09 In MakeMoreFaces aggiunta la possibilità di lavorare le fessure con la lama.
+-- 2023/03/17 In MakeByMill gestito correttamente il caso di Workside destro.
+-- 2023/04/15 Corretta scelta tipo lavorazione 'SideGroove' aggiungendo massimo spessore.
+-- 2023/04/17 Sistemata gestione parametri Q, eliminando quello non usato di forzatura lama e abilitandoli anche per DoubleCut.
+--            Lavorazione CleanCorner sempre forzata con lato di lavoro in centro.
+-- 2023/05/25 Funzioni EgtAddMachining sostituite da WM.AddMachining in modo da trascrivere le priorità da btl alle lavorazioni.

 -- Tabella per definizione modulo
 local WPL = {}
@@ -29,11 +40,10 @@ local WHISK_SAFE = 5
 local MIN_LEN_CUT = 30

 -- variabili assegnazione parametri Q
-local Q_FORCE_BLADE         = '' -- i
 local Q_SIDE_MILL           = '' -- d
 local Q_CORNER_CUT          = '' -- i

-- variabile settaggio doppia lavorazione su angoo > 90
+-- variabile settaggio doppia lavorazione su angolo > 90
 local bMakeTwinCut = true
 -- angolo sottosquadra ammesso per fresa cono 30°
 local dAngleSmall = 70
@@ -54,20 +64,19 @@ end
 local function AssignQIdent( Proc)

   -- reset assegnazione parametri Q
-   Q_FORCE_BLADE        = ''
   Q_SIDE_MILL          = ''
   Q_CORNER_CUT         = ''

-   if Proc.Grp == 0  and  Proc.Prc == 12 then
-      Q_FORCE_BLADE         = 'Q01' -- i
+   if Proc.Prc == 11 then
+      Q_SIDE_MILL           = 'Q02' -- i
+      Q_CORNER_CUT          = 'Q05' -- i
+   elseif Proc.Prc == 12 then
      Q_SIDE_MILL           = 'Q02' -- i
      Q_CORNER_CUT          = '' -- i
   elseif ( Proc.Grp == 3 or Proc.Grp == 4)  and  Proc.Prc == 30 then
-      Q_FORCE_BLADE         = '' -- i
      Q_SIDE_MILL           = 'Q08' -- i
      Q_CORNER_CUT          = 'Q05' -- i
   else
-      Q_FORCE_BLADE         = 'Q01' -- i
      Q_SIDE_MILL           = 'Q03' -- i
      Q_CORNER_CUT          = 'Q05' -- i
   end
@@ -77,11 +86,6 @@ end
 ---------------------------------------------------------------------
 local function EvaluateQParam( Proc)

-   local bForceUseBlade = false
-   if #Q_FORCE_BLADE == 0 or EgtGetInfo( Proc.Id, Q_FORCE_BLADE, 'i') == 1 then
-      bForceUseBlade = true
-   end
-
   -- Verifico se utilizzare la fresa di lato :
   -- 0 : niente
   -- 1 : utilizzo fresa di lato (alla faccia selezionata)
@@ -94,7 +98,7 @@ local function EvaluateQParam( Proc)
   -- 3 : scarico corner (tipo foro).
   local nTypeCornerCut = EgtGetInfo( Proc.Id, Q_CORNER_CUT, 'i') or 0

-   return nTypeCornerCut, nUseSideMillAsBlade, bForceUseBlade
+   return nTypeCornerCut, nUseSideMillAsBlade
 end

 ---------------------------------------------------------------------
@@ -113,7 +117,7 @@ function WPL.Classify( Proc, b3Raw)
      vtN[1] = EgtSurfTmFacetNormVersor( Proc.Id, 0, GDB_ID.ROOT)
      vtN[2] = EgtSurfTmFacetNormVersor( Proc.Id, 1, GDB_ID.ROOT)
      -- verifico se è lavorabile da sopra o di fianco
-      return ( vtN[1]:getZ() >= - 0.01 or vtN[2]:getZ() >= - 0.01) 
+      return ( vtN[1]:getZ() >= - 0.028 or vtN[2]:getZ() >= - 0.028) 
   -- se più di 2 facce
   else
      local nFacInd, dElev, nFacInd2, dElev2 = WL.GetFaceWithMostAdj( Proc.Id, Proc.PartId)
@@ -138,6 +142,26 @@ function WPL.Classify( Proc, b3Raw)
               bAllowNegativeFace = true
            end
         end
+         
+         -- conto le adiacenze delle facce
+         local vAdj = {}
+         local nFacesWithMoreThanOneAdj = 0
+         for i = 1, Proc.Fct do
+            -- recupero le adiacenze del loop esterno
+            local vFacAdj = EgtSurfTmFacetAdjacencies( Proc.Id, i - 1)[1]
+            -- le conto
+            local nCount = 0
+            for j = 1, #vFacAdj do
+               if vFacAdj[j] >= 0 then
+                  nCount = nCount + 1
+               end
+            end
+            vAdj[i] = nCount
+            if nCount > 1 then
+               nFacesWithMoreThanOneAdj = nFacesWithMoreThanOneAdj + 1
+            end
+         end
+
         -- verifico se la faccia è lavorabile da sopra o di fianco
         if ( vtN:getZ() >= WD.NZ_MINA or ( dMinNz < -0.866 and Proc.Fct >= 3 and ( vtN:getZ() > - 0.01 or bAllowNegativeFace))) then
            Proc.Stype = 1
@@ -151,7 +175,7 @@ function WPL.Classify( Proc, b3Raw)
            Proc.Stype = 2
            return ( vtN2:getZ() >= WD.NZ_MINA or ( dMinNz < -0.866 and Proc.Fct >= 3 and vtN2:getZ() > - 0.01))
         -- se tre facce
-         elseif Proc.Fct == 3 then
+         elseif Proc.Fct == 3 and nFacesWithMoreThanOneAdj < 2 then
            -- verifico se U da sopra
            -- dati della faccia
            local nFac2 = EgtIf( nFacInd == 0, 1, 0)
@@ -961,7 +985,7 @@ local function AddMillCornerMachining( nPartId, nNewProc, nFacInd, tFacAdj, nTyp
   end
   -- inserisco la lavorazione
   local sName = 'Clean_' .. ( EgtGetName( nNewProc) or tostring( nNewProc))
-   local nMchId = EgtAddMachining( sName, sMilling) 
+   local nMchId = WM.AddMachining( nNewProc.Id, sName, sMilling)
   if not nMchId then
      local sErr = 'Error adding machining ' .. sName .. '-' .. sMilling
      EgtOutLog( sErr)
@@ -987,10 +1011,11 @@ local function AddMillCornerMachining( nPartId, nNewProc, nFacInd, tFacAdj, nTyp
   EgtSetMachiningParam( MCH_MP.ENDADDLEN, 10)
   -- setto affondamento 0
   EgtSetMachiningParam( MCH_MP.DEPTH, 0)
+   -- forzo lato correzione a centrato
+   EgtSetMachiningParam( MCH_MP.WORKSIDE, MCH_MILL_WS.CENTER)
   -- Note utente con dichiarazione nessuna generazione sfridi per Vmill
   local sUserNotes = 'VMRS=0;'
   -- aggiungo alle note massima elevazione
--   sUserNotes = sUserNotes .. 'MaxElev=' .. EgtNumToString( dMaxDepth, 1) .. ';'
   sUserNotes = sUserNotes .. 'MaxElev=' .. EgtNumToString( 0.0, 1) .. ';'
   EgtSetMachiningParam( MCH_MP.USERNOTES, sUserNotes)
   if not EgtApplyMachining( true, false) then
@@ -1251,7 +1276,7 @@ local function MakeByChainSaw( Proc, nFacet, nRawId, b3Raw, dElev, dH, dV)
   for i = 1, nStep do
      -- Applico la lavorazione con sega a catena a questa faccia
      local sName = 'Csaw_' .. ( EgtGetName( Proc.Id) or tostring( Proc.Id)) .. '_' .. tostring( i)
-      local nMchFId = EgtAddMachining( sName, sSawing)
+      local nMchFId = WM.AddMachining( Proc.Id, sName, sSawing)
      if not nMchFId then
         local sErr = 'Error adding machining ' .. sName .. '-' .. sSawing
         EgtOutLog( sErr)
@@ -1338,7 +1363,7 @@ local function MakeByMill( Proc, nFacet, nOthFac, nRawId, b3Raw, dSideDist)
   end
   -- inserisco la lavorazione di contornatura
   local sName = 'Mill_' .. ( EgtGetName( Proc.Id) or tostring( Proc.Id))
-   local nMchFId = EgtAddMachining( sName, sMilling)
+   local nMchFId = WM.AddMachining( Proc.Id, sName, sMilling)
   if not nMchFId then
      local sErr = 'Error adding machining ' .. sName .. '-' .. sMilling
      EgtOutLog( sErr)
@@ -1355,6 +1380,13 @@ local function MakeByMill( Proc, nFacet, nOthFac, nRawId, b3Raw, dSideDist)
   EgtSetMachiningParam( MCH_MP.ENDADDLEN, 0)     -- -dMillDiam/2 + dAddLen)
   EgtSetMachiningParam( MCH_MP.LOTANG, 0)
   EgtSetMachiningParam( MCH_MP.LOPERP, dSideDist + WD.CUT_SIC)
+   -- setto inversione in base al workside
+   local bIsWorkSideRight = ( EgtGetMachiningParam( MCH_MP.WORKSIDE) == MCH_MILL_WS.RIGHT)
+   local bInvert = false
+   if bIsWorkSideRight then
+      bInvert = true
+   end
+   EgtSetMachiningParam( MCH_MP.INVERT, bInvert)
   -- imposto posizione braccio porta testa
   local nSCC = MCH_SCC.ADIR_ZP
   if AreSameOrOppositeVectorApprox( vtN, Z_AX()) then
@@ -1374,10 +1406,18 @@ local function MakeByMill( Proc, nFacet, nOthFac, nRawId, b3Raw, dSideDist)
 end

 ---------------------------------------------------------------------
-local function MakeSideGrooveByMill( Proc, nFacet, nRawId, b3Raw, sCustomMach, dMaxDepthOnSide, bEnablePreMill, bMachFromDn, dAng, bAsEnablePreMill, nSinglePass)
-   -- dati della faccia
+local function MakeSideGrooveByMill( Proc, nFacet, nRawId, b3Raw, sCustomMach, dMaxDepthOnSide, bEnablePreMill, bMachFromDn, dAng, bAsEnablePreMill, nSinglePass, bExcludeFinishing)
+   local sWarn
+   -- dati della faccia principale (la più verticale)
   local ptC, vtN = EgtSurfTmFacetCenter( Proc.Id, nFacet, GDB_ID.ROOT)
   local dElev = WL.GetFaceElevation( Proc.Id, nFacet, nRawId)
+   -- dati della faccia più orizzontale
+   local nOtherFacet = abs( nFacet - 1)
+   local vtN2 = EgtSurfTmFacetNormVersor( Proc.Id, nOtherFacet, GDB_ID.ROOT)
+   local dElevOtherFacet = WL.GetFaceElevation( Proc.Id, nOtherFacet, nRawId)
+   -- se lap joint 2 facce dal basso e angolo negativo
+   local bExcludeSideMill = Proc.Fct == 2 and vtN:getZ() < -0.01 and vtN2:getZ() < -0.01
+   -- dimensioni della faccia principale
   local _, dH, dV = EgtSurfTmFacetMinAreaRectangle( Proc.Id, nFacet, GDB_ID.ROOT)
   local dThick = min( dH, dV)
   local frFace = Frame3d( ptC, vtN)
@@ -1389,7 +1429,7 @@ local function MakeSideGrooveByMill( Proc, nFacet, nRawId, b3Raw, sCustomMach, d
      sMilling = sCustomMach
   -- altrimenti la cerco
   else
-      sMilling = WM.FindMilling( 'SideGroove')
+      sMilling = WM.FindMilling( 'SideGroove', nil, nil, nil, nil, min( dH, dV))
   end
   if not sMilling then
      local sErr = 'Error : SideGroove not found in library'
@@ -1693,7 +1733,7 @@ local function MakeSideGrooveByMill( Proc, nFacet, nRawId, b3Raw, sCustomMach, d
         end
         -- inserisco la lavorazione di fresatura
         local sNameGorge = 'Gorge_' .. ( EgtGetName( Proc.Id) or tostring( Proc.Id)) .. tostring( nFacet) .. '_' .. tostring( nNm) 
-         local nMchFId = EgtAddMachining( sNameGorge, sMillingGorge)
+         local nMchFId = WM.AddMachining( Proc.Id, sNameGorge, sMillingGorge)
         if not nMchFId then
            local sErr = 'Error adding machining ' .. sNameGorge .. '-' .. sMillingGorge
            EgtOutLog( sErr)
@@ -1744,7 +1784,7 @@ local function MakeSideGrooveByMill( Proc, nFacet, nRawId, b3Raw, sCustomMach, d
         nNm = nNm + 1
         -- inserisco la lavorazione di taglio sfrido gorge
         local sNameGorge = 'GorgeCut_' .. ( EgtGetName( Proc.Id) or tostring( Proc.Id)) .. tostring( nFacet) .. '_' .. tostring( nNm) 
-         local nMchFId = EgtAddMachining( sNameGorge, sCuttingGorge)
+         local nMchFId = WM.AddMachining( Proc.Id, sNameGorge, sCuttingGorge)
         if not nMchFId then
            local sErr = 'Error adding machining ' .. sNameGorge .. '-' .. sCuttingGorge
            EgtOutLog( sErr)
@@ -1792,124 +1832,142 @@ local function MakeSideGrooveByMill( Proc, nFacet, nRawId, b3Raw, sCustomMach, d
         end
      end
   end
-   -- inserisco la lavorazione di ribasso o gola
-   local sName = EgtIf( bEnablePreMill ~= nil, 'SideMill_', 'Mill_') .. ( EgtGetName( Proc.Id) or tostring( Proc.Id))
-   local nMchFId = EgtAddMachining( sName, sMilling)
-   if not nMchFId then
-      local sErr = 'Error adding machining ' .. sName .. '-' .. sMilling
-      EgtOutLog( sErr)
-      return false, sErr
+   
+   -- se la groove è rivolta verso il basso (-85°) lavoro a salire con step negativo
+   local bUpwardMilling = false
+   if Proc.Fct == 2 and vtN2:getZ() < -0.996 then
+      bUpwardMilling = true
   end
-   EgtSetInfo( nMchFId, 'Part', Proc.PartId)
-   -- se ho abilitato la lavorazione di lama per garantire passaggio utensile, setto la nota per spostare la fresatura dopo i tagli di lama
-   if bEnablePreMill or bAsEnablePreMill then
-      EgtSetInfo( nMchFId, 'MOVE_AFTER', 1)
-   end
-   -- aggiungo geometria
-   EgtSetMachiningGeometry( {{ Proc.Id, nFacet}})
-   -- imposto posizione braccio porta testa
-   --local nSCC = MCH_SCC.ADIR_ZP
-   --if abs( vtN:getZ()) < GEO.EPS_SMALL then
-   --   nSCC = EgtIf( Proc.Box:getDimX() >= Proc.Box:getDimY(), MCH_SCC.ADIR_YP, MCH_SCC.ADIR_XP)
-   --end
-   local nSCC = MCH_SCC.ADIR_NEAR
-   EgtSetMachiningParam( MCH_MP.SCC, nSCC)
-   -- imposto modo di lavorare la faccia
-   local nFaceUse = WL.GetNearestParalOpposite( Z_AX(), vtN)
-   EgtSetMachiningParam( MCH_MP.FACEUSE, nFaceUse)
-   -- imposto elevazione e step
-   local dStep = EgtGetMachiningParam( MCH_MP.STEP)
-   if dStep < GEO.EPS_SMALL then dStep = 0.75 * dMaxMat end
-   local nStep = ceil( ( dThick - dMaxMat) / dStep)
-   dStep = max( ( dThick - dMaxMat) / max( nStep, 1), 0)
-   local dMaxElev = max( ( nStep + 1) * dStep - GEO.EPS_SMALL, 0)
-   if nSinglePass and nSinglePass > 0 then
-      dStep = 0
-      if nSinglePass == 1 then
-         EgtSetMachiningParam( MCH_MP.DEPTH, dMaxMat)
+   
+   local dStepOri
+   if not bExcludeSideMill then
+      -- inserisco la lavorazione di ribasso o gola
+      local sName = EgtIf( bEnablePreMill ~= nil, 'SideMill_', 'Mill_') .. ( EgtGetName( Proc.Id) or tostring( Proc.Id))
+      local nMchFId = WM.AddMachining( Proc.Id, sName, sMilling)
+      if not nMchFId then
+         local sErr = 'Error adding machining ' .. sName .. '-' .. sMilling
+         EgtOutLog( sErr)
+         return false, sErr
      end
-   end
-   EgtSetMachiningParam( MCH_MP.STEP, dStep)
-   EgtSetMachiningParam( MCH_MP.USERNOTES, 'MaxElev=' .. EgtNumToString( dMaxElev, 3) .. ';')
-   -- setto il lato di lavoro standard
-   EgtSetMachiningParam( MCH_MP.INVERT, true)
-   EgtSetMachiningParam( MCH_MP.WORKSIDE, MCH_MILL_WS.LEFT)
-   -- modifico ingressi e uscita
-   -- se ho inserito il pretaglio modifico
-   if bEnablePreMill or bAsEnablePreMill then
-      if nModifyLeadInOut > 0 then
-         -- Confronto il raggio fresa con l'elevazione dalla normale per vedere se devo modificare l'uscita
-         if dElev > ( 0.5 * dMillDiam) then
-               if nModifyLeadInOut == 1 then
-               -- setto il tipo di passo a una via
-               EgtSetMachiningParam( MCH_MP.STEPTYPE, MCH_MILL_ST.ONEWAY)
-               -- modifico il tipo di uscita
-               EgtSetMachiningParam( MCH_MP.LEADOUTTYPE, MCH_MILL_LO.PERP_TG)
+      EgtSetInfo( nMchFId, 'Part', Proc.PartId)
+      -- se ho abilitato la lavorazione di lama per garantire passaggio utensile, setto la nota per spostare la fresatura dopo i tagli di lama
+      if bEnablePreMill or bAsEnablePreMill then
+         EgtSetInfo( nMchFId, 'MOVE_AFTER', 1)
+      end
+      -- aggiungo geometria
+      EgtSetMachiningGeometry( {{ Proc.Id, nFacet}})
+      -- imposto posizione braccio porta testa
+      local nSCC = MCH_SCC.ADIR_NEAR
+      EgtSetMachiningParam( MCH_MP.SCC, nSCC)
+      -- imposto modo di lavorare la faccia
+      local nFaceUse = WL.GetNearestParalOpposite( Z_AX(), vtN)
+      EgtSetMachiningParam( MCH_MP.FACEUSE, nFaceUse)
+      -- imposto elevazione e step
+      local dStep = EgtGetMachiningParam( MCH_MP.STEP)
+      dStepOri = dStep
+      if dStep < GEO.EPS_SMALL then dStep = 0.75 * dMaxMat end
+      local nStep = ceil( ( dThick - dMaxMat) / dStep)
+      dStep = max( ( dThick - dMaxMat) / max( nStep, 1), 0)
+      local dMaxElev = max( ( nStep + 1) * dStep - GEO.EPS_SMALL, 0)
+      if nSinglePass and nSinglePass > 0 then
+         dStep = 0
+         if nSinglePass == 1 then
+            EgtSetMachiningParam( MCH_MP.DEPTH, dMaxMat)
+         end
+      end
+      if bUpwardMilling then
+         dStep = -dStep
+      end
+      EgtSetMachiningParam( MCH_MP.STEP, dStep)
+      EgtSetMachiningParam( MCH_MP.USERNOTES, 'MaxElev=' .. EgtNumToString( dMaxElev, 3) .. ';')
+      -- setto il lato di lavoro standard
+      EgtSetMachiningParam( MCH_MP.INVERT, true)
+      EgtSetMachiningParam( MCH_MP.WORKSIDE, MCH_MILL_WS.LEFT)
+      -- modifico ingressi e uscita
+      -- se ho inserito il pretaglio modifico
+      if bEnablePreMill or bAsEnablePreMill then
+         if nModifyLeadInOut > 0 then
+            -- Confronto il raggio fresa con l'elevazione dalla normale per vedere se devo modificare l'uscita
+            if dElev > ( 0.5 * dMillDiam) then
+                  if nModifyLeadInOut == 1 then
+                  -- setto il tipo di passo a una via
+                  EgtSetMachiningParam( MCH_MP.STEPTYPE, MCH_MILL_ST.ONEWAY)
+                  -- modifico il tipo di uscita
+                  EgtSetMachiningParam( MCH_MP.LEADOUTTYPE, MCH_MILL_LO.PERP_TG)
+                  EgtSetMachiningParam( MCH_MP.LIPERP, 0)
+                  -- modifico dati supplementari uscita
+                  EgtSetMachiningParam( MCH_MP.LOPERP, 0.5)
+                  EgtSetMachiningParam( MCH_MP.LOTANG, -( dLongGorge + dExtraLongIni + dExtraLongEnd))
+               else
+                  EgtSetMachiningParam( MCH_MP.LIPERP, dElev)
+                  EgtSetMachiningParam( MCH_MP.LOPERP, dElev)
+               end
+            end
+            -- setto allungamenti iniziali e finali
+            EgtSetMachiningParam( MCH_MP.STARTADDLEN, dExtraLongIni)
+            EgtSetMachiningParam( MCH_MP.ENDADDLEN, dExtraLongEnd)
+            if bInvertMach then
+               -- setto il lato di lavoro invertito
+               EgtSetMachiningParam( MCH_MP.INVERT, false)
+               EgtSetMachiningParam( MCH_MP.WORKSIDE, MCH_MILL_WS.RIGHT)
+            end
+         else
+            -- setto allungamenti iniziali e finali
+            EgtSetMachiningParam( MCH_MP.STARTADDLEN, dExtraLongIni)
+            EgtSetMachiningParam( MCH_MP.ENDADDLEN, dExtraLongEnd)
+            -- Confronto il raggio fresa con l'elevazione dalla normale per vedere se devo modificare l'uscita
+            if dElev > ( 0.5 * dMillDiam) then
+               -- setto allungamenti perpendicolari
               EgtSetMachiningParam( MCH_MP.LIPERP, 0)
-               -- modifico dati supplementari uscita
-               EgtSetMachiningParam( MCH_MP.LOPERP, 0.5)
-               EgtSetMachiningParam( MCH_MP.LOTANG, -( dLongGorge + dExtraLongIni + dExtraLongEnd))
-            else
-               EgtSetMachiningParam( MCH_MP.LIPERP, dElev)
-               EgtSetMachiningParam( MCH_MP.LOPERP, dElev)
+               EgtSetMachiningParam( MCH_MP.LOPERP, 0)
+            end
+         end
+         -- se richiesto, setto la nota per spostare la lavorazione alla fine
+         if not WD.SIDEMILL_BEFORE then
+            EgtSetInfo( nMchFId, 'MOVE_AFTER', 1)
+         end
+      else
+         if nModifyLeadInOut > 0 then
+            -- Confronto il raggio fresa con l'elevazione dalla normale per vedere se devo modificare l'uscita
+            if dElev > ( 0.5 * dMillDiam) then
+               -- setto il tipo di passo a una via
+               EgtSetMachiningParam( MCH_MP.STEPTYPE, 1)
+            end
+            if bInvertMach then
+               -- setto il lato di lavoro invertito
+               EgtSetMachiningParam( MCH_MP.INVERT, false)
+               EgtSetMachiningParam( MCH_MP.WORKSIDE, MCH_MILL_WS.RIGHT)
            end
         end
         -- setto allungamenti iniziali e finali
         EgtSetMachiningParam( MCH_MP.STARTADDLEN, dExtraLongIni)
         EgtSetMachiningParam( MCH_MP.ENDADDLEN, dExtraLongEnd)
-         if bInvertMach then
-            -- setto il lato di lavoro invertito
-            EgtSetMachiningParam( MCH_MP.INVERT, false)
-            EgtSetMachiningParam( MCH_MP.WORKSIDE, MCH_MILL_WS.RIGHT)
-         end
-      else
-         -- setto allungamenti iniziali e finali
-         EgtSetMachiningParam( MCH_MP.STARTADDLEN, dExtraLongIni)
-         EgtSetMachiningParam( MCH_MP.ENDADDLEN, dExtraLongEnd)
-         -- Confronto il raggio fresa con l'elevazione dalla normale per vedere se devo modificare l'uscita
-         if dElev > ( 0.5 * dMillDiam) then
-            -- setto allungamenti perpendicolari
-            EgtSetMachiningParam( MCH_MP.LIPERP, 0)
-            EgtSetMachiningParam( MCH_MP.LOPERP, 0)
+         -- se richiesto, setto la nota per spostare la lavorazione alla fine
+         if not WD.SIDEMILL_BEFORE then
+            EgtSetInfo( nMchFId, 'MOVE_AFTER', 1)
         end
      end
-      -- se richiesto, setto la nota per spostare la lavorazione alla fine
-      if not WD.SIDEMILL_BEFORE then
-         EgtSetInfo( nMchFId, 'MOVE_AFTER', 1)
+      -- eseguo
+      if not EgtApplyMachining( true, false) then
+         -- provo a invertire posizione braccio porta testa
+         nSCC = MCH_SCC.ADIR_FAR
+         EgtSetMachiningParam( MCH_MP.SCC, nSCC)
+         if not EgtApplyMachining( true, false) then
+            local _, sErr = EgtGetLastMachMgrError()
+            EgtSetOperationMode( nMchFId, false)
+            return false, sErr
+         end
      end
   else
-      if nModifyLeadInOut > 0 then
-         -- Confronto il raggio fresa con l'elevazione dalla normale per vedere se devo modificare l'uscita
-         if dElev > ( 0.5 * dMillDiam) then
-            -- setto il tipo di passo a una via
-            EgtSetMachiningParam( MCH_MP.STEPTYPE, 1)
-         end
-         if bInvertMach then
-            -- setto il lato di lavoro invertito
-            EgtSetMachiningParam( MCH_MP.INVERT, false)
-            EgtSetMachiningParam( MCH_MP.WORKSIDE, MCH_MILL_WS.RIGHT)
-         end
-      end
-      -- setto allungamenti iniziali e finali
-      EgtSetMachiningParam( MCH_MP.STARTADDLEN, dExtraLongIni)
-      EgtSetMachiningParam( MCH_MP.ENDADDLEN, dExtraLongEnd)
-      -- se richiesto, setto la nota per spostare la lavorazione alla fine
-      if not WD.SIDEMILL_BEFORE then
-         EgtSetInfo( nMchFId, 'MOVE_AFTER', 1)
-      end
-   end
-   -- eseguo
-   if not EgtApplyMachining( true, false) then
-      local _, sErr = EgtGetLastMachMgrError()
-      EgtSetOperationMode( nMchFId, false)
-      return false, sErr
+      sWarn = 'Warning in LapJoint : upside down groove with obtuse angle not completed'
+      EgtOutLog( sWarn)
   end
+   
   -- verifico se devo lavorare anche la seconda faccia basandomi sul valore dell'angolo interno
-   if dAng and dAng > -90 + 10 * GEO.EPS_SMALL then
-      local nOtherFacet = abs( nFacet - 1)
+   if dAng and dAng > -90 + 10 * GEO.EPS_SMALL and not bExcludeFinishing then
      -- inserisco la lavorazione di contornatura
      local sName = 'Mill_Oth_Fac_' .. ( EgtGetName( Proc.Id) or tostring( Proc.Id))
-      local nMchFId = EgtAddMachining( sName, sMilling)
+      local nMchFId = WM.AddMachining( Proc.Id, sName, sMilling)
      if not nMchFId then
         local sErr = 'Error adding machining ' .. sName .. '-' .. sMilling
         EgtOutLog( sErr)
@@ -1919,7 +1977,6 @@ local function MakeSideGrooveByMill( Proc, nFacet, nRawId, b3Raw, sCustomMach, d
      -- aggiungo geometria
      EgtSetMachiningGeometry( {{ Proc.Id, nOtherFacet}})
      -- imposto posizione braccio porta testa
-      local vtN2 = EgtSurfTmFacetNormVersor( Proc.Id, nOtherFacet, GDB_ID.ROOT)
      local nSCC = MCH_SCC.ADIR_ZP
      if AreSameOrOppositeVectorApprox( vtN2, Z_AX()) then
         nSCC = EgtIf( Proc.Box:getDimX() >= Proc.Box:getDimY(), MCH_SCC.ADIR_YP, MCH_SCC.ADIR_XP)
@@ -1927,12 +1984,25 @@ local function MakeSideGrooveByMill( Proc, nFacet, nRawId, b3Raw, sCustomMach, d
      EgtSetMachiningParam( MCH_MP.SCC, nSCC)
      -- imposto modo di lavorare la faccia
      EgtSetMachiningParam( MCH_MP.FACEUSE, nFace2ndFace)
-      EgtSetMachiningParam( MCH_MP.STEP, 0)
      local dMaxElev = dMaxMat
+      local dStepOtherFace = 0
+      local dDepthOtherFace = dMaxMat
+      if Proc.Fct == 2 and abs( vtN2:getZ()) > 0.99 and abs( vtN2:getZ()) < 1.01 then
+         dStepOtherFace = dStepOri or EgtGetMachiningParam( MCH_MP.STEP)
+         if dStepOtherFace < GEO.EPS_SMALL then dStepOtherFace = 0.75 * dMaxMat end
+         local nStepOtherFace = ceil( ( dElevOtherFacet - dMaxMat) / dStepOtherFace)
+         dStepOtherFace = max( ( dElevOtherFacet - dMaxMat) / max( nStepOtherFace, 1), 0)
+         dMaxElev = max( ( nStepOtherFace + 1) * dStepOtherFace - GEO.EPS_SMALL, 0)
+         dDepthOtherFace = dElevOtherFacet
+      end
+      if bUpwardMilling then
+         dStepOtherFace = -dStepOtherFace
+      end
+      EgtSetMachiningParam( MCH_MP.STEP, dStepOtherFace)
      EgtSetMachiningParam( MCH_MP.USERNOTES, 'MaxElev=' .. EgtNumToString( dMaxElev, 3) .. ';')
      if bMachFromDn then
         EgtSetMachiningParam( MCH_MP.INVERT, true)
-         EgtSetMachiningParam( MCH_MP.DEPTH, dMaxMat)
+         EgtSetMachiningParam( MCH_MP.DEPTH, dDepthOtherFace)
      else
         EgtSetMachiningParam( MCH_MP.INVERT, false)
      end
@@ -1978,7 +2048,7 @@ local function MakeSideGrooveByMill( Proc, nFacet, nRawId, b3Raw, sCustomMach, d
            end
         end
         -- se richiesto, setto la nota per spostare la lavorazione alla fine
-         if not WD.SIDEMILL_BEFORE then
+         if bEnablePreMill or bAsEnablePreMill or not WD.SIDEMILL_BEFORE then
            EgtSetInfo( nMchFId, 'MOVE_AFTER', 1)
         end
      else
@@ -2012,9 +2082,12 @@ local function MakeSideGrooveByMill( Proc, nFacet, nRawId, b3Raw, sCustomMach, d
         EgtSetOperationMode( nMchFId, false)
         return false, sErr
      end
+   elseif bExcludeSideMill then
+      local sErr = 'Feature not machinable by orientation'
+      EgtOutLog( sErr)
+      return false, sErr
   end
-
-   return true
+   return true, sWarn
 end

 ---------------------------------------------------------------------
@@ -2027,6 +2100,10 @@ local function MakeByPocketing( Proc, nFacet, nRawId, b3Raw, bCheckQPar)
   -- gruppo ausiliario
   local nAddGrpId = WL.GetAddGroup( Proc.PartId)
   local nNewProc, nNumFacet = RemoveBottomFaceAndReorder( Proc, nAddGrpId, nFacet)
+   -- se una sola faccia
+   if Proc.Fct == 1 then
+      dDiam = 2 * dDiam
+   end
   -- se forma ad L
   local bIsL = ( Proc.Fct == 2 or TestElleShape3( Proc.Id, Proc.Fct) or TestElleShape4( Proc.Id, Proc.Fct) == 2)
   if bIsL then
@@ -2067,8 +2144,9 @@ local function MakeByPocketing( Proc, nFacet, nRawId, b3Raw, bCheckQPar)
   local dMillDiam = 20
   local dMaxDepth = 0
   local dThDiam = 100
+   local sTuuid
   if EgtMdbSetCurrMachining( sPocketing) then
-      local sTuuid = EgtMdbGetCurrMachiningParam( MCH_MP.TUUID)
+      sTuuid = EgtMdbGetCurrMachiningParam( MCH_MP.TUUID)
      if EgtTdbSetCurrTool( EgtTdbGetToolFromUUID( sTuuid) or '') then
         dMillDiam = EgtTdbGetCurrToolParam( MCH_TP.DIAM) or dMillDiam
         dMaxDepth = EgtIf( WD.MILL_MAX_DEPTH_AS_MAT, EgtTdbGetCurrToolParam( MCH_TP.MAXMAT), EgtTdbGetCurrToolMaxDepth()) or dMaxDepth
@@ -2077,7 +2155,7 @@ local function MakeByPocketing( Proc, nFacet, nRawId, b3Raw, bCheckQPar)
   end
   -- inserisco la lavorazione di svuotatura
   local sName = 'Pock_' .. ( EgtGetName( Proc.Id) or tostring( Proc.Id))
-   local nMchFId = EgtAddMachining( sName, sPocketing)
+   local nMchFId = WM.AddMachining( Proc.Id, sName, sPocketing)
   if not nMchFId then
      local sErr = 'Error adding machining ' .. sName .. '-' .. sPocketing
      EgtOutLog( sErr)
@@ -2135,7 +2213,7 @@ local function MakeByPocketing( Proc, nFacet, nRawId, b3Raw, bCheckQPar)
   else
      EgtErase( nNewProc)
   end
-   return true, sWarn
+   return true, sWarn, sTuuid
 end

 ---------------------------------------------------------------------
@@ -2154,7 +2232,7 @@ local function MakeOneFace( Proc, nRawId, b3Raw)
   end
   -- eseguo il taglio di lama
   local sName = 'Cut_' .. ( EgtGetName( Proc.PartId) or tostring( Proc.PartId)) .. '_' .. tostring( Proc.Id) 
-   local nMchId = EgtAddMachining( sName, sCutting)
+   local nMchId = WM.AddMachining( Proc.Id, sName, sCutting)
   if not nMchId then
      local sErr = 'Error adding machining ' .. sName .. '-' .. sCutting
      EgtOutLog( sErr)
@@ -2198,7 +2276,8 @@ local function MakeTwoFaces( Proc, nRawId, b3Raw)
   -- se equivalente ad un contorno
   if abs( ptP1:getZ() - ptP2:getZ()) > 0.9 * b3Raw:getDimZ() then
      -- verifico ordinamento (esterno a destra)
-      if ( vtN[1] ^ ( ptP1 - ptC[1])) * Z_AX() < 0 then
+      local ptPM = ( ptP1 + ptP2) / 2
+      if ( vtN[1] ^ ( ptPM - ptC[1])) * Z_AX() < 0 then
         EgtSurfTmSwapFacets( Proc.Id, 0, 1)
      end
      -- applico lavorazione di contorno libero
@@ -2313,11 +2392,12 @@ local function MakeTwoFaces( Proc, nRawId, b3Raw)
         EgtOutLog( sErr)
         return false, sErr
      end
-      local vtN = EgtSurfTmFacetNormVersor( Proc.Id, nFacInd, GDB_ID.ROOT)
+      local vtNTemp = EgtSurfTmFacetNormVersor( Proc.Id, nFacInd, GDB_ID.ROOT)
      local dSideDist
      local ptMid = ( ptP1 + ptP2) / 2
      -- faccia orizzontale
-      local nFacet = EgtIf( vtN:getZ() >= WD.NZ_MINA, nFacInd, nFacInd2)
+      local nFacet = EgtIf( vtNTemp:getZ() >= WD.NZ_MINA, nFacInd, nFacInd2)
+      local vtN = EgtSurfTmFacetNormVersor( Proc.Id, nFacet, GDB_ID.ROOT)
      -- faccia verticale
      local nFacetVert = EgtIf( nFacet == nFacInd, nFacInd2, nFacInd)
      local vtNV = EgtSurfTmFacetNormVersor( Proc.Id, nFacetVert, GDB_ID.ROOT)
@@ -2369,8 +2449,13 @@ local function MakeTwoFaces( Proc, nRawId, b3Raw)
         if bEnableMillOnSide and dMaxDepthOnSide > 0 then
            bLikeAsMakeFirstGroove = false
            return MakeSideGrooveByMill( Proc, nFacetVert, nRawId, b3Raw, EgtIf( bEnableMillOnSide and dMaxDepthOnSide, sMillOnSide, nil), dMaxDepthOnSide, bMakeFirstGroove, bMachFromDn, dAng, bLikeAsMakeFirstGroove)
-         elseif MakeByMill( Proc, nFacet, 1 - nFacet, nRawId, b3Raw, dSideDist) then
-            return true
+         else
+            local bOk, sErr = MakeByMill( Proc, nFacet, 1 - nFacet, nRawId, b3Raw, dSideDist)
+            -- se angolo ottuso riprendo il lato quasi verticale
+            if bOk and dAng and dAng > -90 + 10 * GEO.EPS_SMALL then
+               local bOk2, sErr2 = MakeSideGrooveByMill( Proc, nFacetVert, nRawId, b3Raw, EgtIf( bEnableMillOnSide and dMaxDepthOnSide, sMillOnSide, nil), dMaxDepthOnSide, bMakeFirstGroove, bMachFromDn, dAng, false, nil, true)
+            end
+            return bOk, sErr
         end
      elseif bEnableMillOnSide and dMaxDepthOnSide > 0 then
         bLikeAsMakeFirstGroove = true
@@ -2378,9 +2463,27 @@ local function MakeTwoFaces( Proc, nRawId, b3Raw)
         if bOk then return true end
      end
      -- se non inclinate o capacità di taglio non sufficiente o non molto grandi (80mm), provo con contornatura o svuotatura
-      if not sCutting or dSawMaxDepth < dDimY[1] + WD.CUT_SIC or dSawMaxDepth < dDimY[2] + WD.CUT_SIC or dDimY[1] < 80 or dDimY[2] < 80 then
+      if vtN:getZ() > 0.866 or vtNV:getZ() > 0.866 or not sCutting or dSawMaxDepth < dDimY[1] + WD.CUT_SIC or dSawMaxDepth < dDimY[2] + WD.CUT_SIC or dDimY[1] < 80 or dDimY[2] < 80 then
         -- eseguo la svuotatura
-         return MakeByPocketing( Proc, nFacet, nRawId, b3Raw)
+         local bOk, sErr, sTuuid = MakeByPocketing( Proc, nFacet, nRawId, b3Raw)
+         -- se angolo ottuso riprendo il lato quasi verticale
+         if bOk and dAng and dAng > -90 + 10 * GEO.EPS_SMALL then
+            local _, dHVert, dVVert = EgtSurfTmFacetMinAreaRectangle( Proc.Id, nFacetVert, GDB_ID.ROOT)
+            local dDepth = min( dHVert, dVVert)
+            local _, dHHor, dVHor = EgtSurfTmFacetMinAreaRectangle( Proc.Id, nFacet, GDB_ID.ROOT)
+            local dDiam = 2 * min( dHHor, dVHor)
+            local sMillObtuseAngle = WM.FindMilling( 'FreeContour', dDepth, sTuuid, nil, dDiam, nil, nil, nil)
+            if not sMillObtuseAngle then 
+               sMillObtuseAngle = WM.FindMilling( 'FreeContour', dDepth, nil, nil, dDiam, nil, nil, nil)
+            end
+            if not sMillObtuseAngle then
+               local sErrMillNotFound = 'Error : Processing to finish obtuse angle not found in library'
+               EgtOutLog( sErrMillNotFound)
+               return true, sErrMillNotFound
+            end
+            local bOk2, sErr2 = MakeSideGrooveByMill( Proc, nFacetVert, nRawId, b3Raw, sMillObtuseAngle, dMaxDepthOnSide, bMakeFirstGroove, bMachFromDn, dAng, false, nil, true)
+         end
+         return bOk, sErr
      end
   -- se una delle due facce rivolta verso il basso
   elseif vtN[1]:getZ() < -0.001 or vtN[2]:getZ() < -0.001 then
@@ -2407,7 +2510,7 @@ local function MakeTwoFaces( Proc, nRawId, b3Raw)
   for i = 1, 2 do
      -- inserisco la lavorazione
      local sName = 'Cut_' .. ( EgtGetName( Proc.PartId) or tostring( Proc.PartId)) .. '_' .. tostring( Proc.Id) .. '_' .. tostring( i) 
-      local nMchId = EgtAddMachining( sName, sCutting)
+      local nMchId = WM.AddMachining( Proc.Id, sName, sCutting)
      if not nMchId then
         local sErr = 'Error adding machining ' .. sName .. '-' .. sCutting
         EgtOutLog( sErr)
@@ -2451,15 +2554,17 @@ local function MakeMoreFaces( Proc, nRawId, b3Raw)
      end
      local vtN = EgtSurfTmFacetNormVersor( Proc.Id, nFacInd, GDB_ID.ROOT)
      local _, dH, dV = EgtSurfTmFacetMinAreaRectangle( Proc.Id, nFacInd, GDB_ID.ROOT)
+      local dMaxSlotThicknessForBlade = 25
+      local bIsSmallSlot = ( Proc.Fct == 3 and ( min( dH, dV) < dMaxSlotThicknessForBlade + 10 * GEO.EPS_SMALL) and vtN:getZ() > -0.01)
      -- se di fianco
-      if not bPckt and Proc.Fct >= 3 and vtN:getZ() < WD.NZ_MINA then
+      if not bPckt and Proc.Fct >= 3 and ( ( vtN:getZ() < WD.NZ_MINA) or bIsSmallSlot) then
         -- recupero elevazione faccia in feature
         local dSideElev = WL.GetFaceElevation( Proc.Id, nFacInd)
         -- se abilitata lavorazione ribasso con fresa di fianco e parametro Q03 abilitato
         local sMillOnSide, dTMaxDepth, dMaxMat, dDiam = WM.FindMilling( 'SideMill', nil, nil, nil, nil, min( dH, dV), nil, dSideElev)
         local _, nUseMillOnSide = EvaluateQParam( Proc)
         -- se ho abilitata lavorazione di fresa di fianco
-         if Proc.Fct >= 3 and sMillOnSide and nUseMillOnSide >= 1 then
+         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 dMillDiam = 0
@@ -2501,15 +2606,17 @@ local function MakeMoreFaces( Proc, nRawId, b3Raw)
            end
         else
            -- fresatura (se definita)
-            local sMilling = WM.FindMilling( 'SideGroove')
+            local sMilling = WM.FindMilling( 'SideGroove', nil, nil, nil, nil, min( dH, dV))
            -- recupero i dati dell'utensile
            local dMaxMat = 1000
            local dMaxDepthOnSide = 0
+            local bIsBlade = false
            if sMilling and EgtMdbSetCurrMachining( sMilling) then
               local sTuuid = EgtMdbGetCurrMachiningParam( MCH_MP.TUUID)
               if EgtTdbSetCurrTool( EgtTdbGetToolFromUUID( sTuuid) or '') then
                  local dMillDiam = EgtTdbGetCurrToolParam( MCH_TP.DIAM) or dMillDiam
-                  if ( EgtTdbGetCurrToolParam( MCH_TP.TYPE) & MCH_TF.SAWBLADE) ~= 0 then
+                  bIsBlade = EgtTdbGetCurrToolParam( MCH_TP.TYPE) & MCH_TF.SAWBLADE ~= 0
+                  if bIsBlade then
                     dMaxMat = EgtTdbGetCurrToolParam( MCH_TP.THICK) or dMaxMat
                     dMaxDepthOnSide = EgtTdbGetCurrToolParam( MCH_TP.MAXMAT)
                  else
@@ -2522,12 +2629,12 @@ local function MakeMoreFaces( Proc, nRawId, b3Raw)
                  end
               end
            end
-            if sMilling and dElev < dMaxDepthOnSide and dMaxMat <= min( dH, dV) + 20 * GEO.EPS_SMALL then
-               return MakeSideGrooveByMill( Proc, nFacInd, nRawId, b3Raw, sMilling)
-            -- altrimenti sega a catena
-            else
-               return MakeByChainSaw( Proc, nFacInd, nRawId, b3Raw, dElev, dH, dV)
-            end
+               if sMilling and dElev < dMaxDepthOnSide then
+                  return MakeSideGrooveByMill( Proc, nFacInd, nRawId, b3Raw, sMilling)
+               -- altrimenti sega a catena
+               else
+                  return MakeByChainSaw( Proc, nFacInd, nRawId, b3Raw, dElev, dH, dV)
+               end
         end
      end
      local nFacet = EgtIf( bPckt or vtN:getZ() >= WD.NZ_MINA, nFacInd, nFacInd2)
@@ -2538,7 +2645,6 @@ local function MakeMoreFaces( Proc, nRawId, b3Raw)
         local sErr = 'Side milling not possible'
         EgtOutLog( sErr)
         return true, sErr
-
      end
   -- fessura verticale
   elseif Proc.Stype == 3 then
@@ -1,5 +1,7 @@
 -- WProcessMark.lua by Egaltech s.r.l. 2021/04/20
 -- Gestione calcolo marcatura per Pareti
+-- 2023/01/05 Permesse le marcature laterali in presenza di offset Z, tra grezzo e tavola, di almeno 100 mm
+-- 2023/05/25 Funzioni EgtAddMachining sostituite da WM.AddMachining in modo da trascrivere le priorità da btl alle lavorazioni.

 -- Tabella per definizione modulo
 local WPMK = {}
@@ -33,8 +35,13 @@ function WPMK.Classify( Proc, b3Raw)
   if not vtN then
      return false
   end
-   -- verifico se la marcatura è lavorabile (solo da sopra)
-   return ( vtN:getZ() > WD.NZ_MINA)
+   -- verifico se la marcatura è lavorabile (solo da sopra o dal lato se con offset Z)
+   local dMinZRaw = b3Raw:getMin():getZ()
+   local b3Tab = EgtGetTableArea()
+   local dMaxZTable = b3Tab:getMax():getZ()
+   local dDeltaZ = dMinZRaw - dMaxZTable
+   local MIN_Z_OFFSET = 100
+   return EgtIf( dDeltaZ < MIN_Z_OFFSET - GEO.EPS_SMALL, vtN:getZ() > WD.NZ_MINA, vtN:getZ() > -0.1)
 end

 ----------------------------------------------------------------------
@@ -79,11 +86,18 @@ function WPMK.Make( Proc, nRawId, b3Raw)
      EgtOutLog( sErr)
      return false, sErr
   end
-   -- verifico che la marcatura non sia orientata verso il basso
-   if vtExtr:getZ() < WD.NZ_MINA  then
-      local sErr = 'Error : Mark from bottom impossible'
-      EgtOutLog( sErr)
-      return false, sErr
+   -- verifico se la marcatura è lavorabile (solo da sopra o dal lato se con offset Z)
+   local dMinZRaw = b3Raw:getMin():getZ()
+   local b3Tab = EgtGetTableArea()
+   local dMaxZTable = b3Tab:getMax():getZ()
+   local dDeltaZ = dMinZRaw - dMaxZTable
+   local MIN_Z_OFFSET = 99.9
+   if vtExtr:getZ() < WD.NZ_MINA then
+      if dDeltaZ < MIN_Z_OFFSET - GEO.EPS_SMALL or vtExtr:getZ() <= -0.1 then
+         local sErr = 'Error : Mark from bottom impossible'
+         EgtOutLog( sErr)
+         return false, sErr
+      end
   end
   -- recupero la lavorazione
   local sMilling = WM.FindMilling( 'Text')
@@ -94,7 +108,7 @@ function WPMK.Make( Proc, nRawId, b3Raw)
   end
   -- inserisco la lavorazione di fresatura
   local sName = 'Decor_' .. ( EgtGetName( Proc.Id) or tostring( Proc.Id))
-   local nMchFId = EgtAddMachining( sName, sMilling)
+   local nMchFId = WM.AddMachining( Proc.Id, sName, sMilling)
   if not nMchFId then
      local sErr = 'Error adding machining ' .. sName .. '-' .. sMilling
      EgtOutLog( sErr)
@@ -118,7 +132,7 @@ function WPMK.Make( Proc, nRawId, b3Raw)
   if AuxId then
      -- inserisco la lavorazione di fresatura
      local sName2 = 'Decor2_' .. ( EgtGetName( Proc.Id) or tostring( Proc.Id))
-      local nMchF2Id = EgtAddMachining( sName, sMilling)
+      local nMchF2Id = WM.AddMachining( Proc.Id, sName, sMilling)
      if not nMchF2Id then
         local sErr = 'Error adding machining ' .. sName2 .. '-' .. sMilling
         EgtOutLog( sErr)
@@ -1,5 +1,7 @@
 -- WProcessMortise.lua by Egaltech s.r.l. 2021/07/30
 -- Gestione calcolo mortase per Pareti
+-- 2023/01/05 Permesse le mortase laterali in presenza di offset Z, tra grezzo e tavola, di almeno 100 mm
+-- 2023/05/25 Funzioni EgtAddMachining sostituite da WM.AddMachining in modo da trascrivere le priorità da btl alle lavorazioni.

 -- Tabella per definizione modulo
 local WPM = {}
@@ -45,8 +47,13 @@ function WPM.Classify( Proc, b3Raw)
      return true
   -- altrimenti è chiusa
   else
-      -- verifico se la mortasa è lavorabile da sopra
-      return ( vtN:getZ() > WD.NZ_MINA)
+      -- verifico se la mortasa è lavorabile da sopra o dal lato se con offset Z
+      local dMinZRaw = b3Raw:getMin():getZ()
+      local b3Tab = EgtGetTableArea()
+      local dMaxZTable = b3Tab:getMax():getZ()
+      local dDeltaZ = dMinZRaw - dMaxZTable
+      local MIN_Z_OFFSET = 99.9
+      return EgtIf( dDeltaZ < MIN_Z_OFFSET - GEO.EPS_SMALL, vtN:getZ() > WD.NZ_MINA, vtN:getZ() > -0.1)
   end
 end

@@ -182,11 +189,18 @@ function WPM.Make( Proc, nRawId, b3Raw)
   local bForceOneSide
   local bRevertSide
   if bClosedBtm then
-      -- verifico che la mortasa non sia orientata verso il basso (limite -5 deg)
-      if vtN:getZ() < WD.NZ_MINA then
-         local sErr = 'Error : Mortise from bottom impossible'
-         EgtOutLog( sErr)
-         return false, sErr
+      -- verifico se la mortasa è lavorabile da sopra o dal lato se con offset Z
+      local dMinZRaw = b3Raw:getMin():getZ()
+      local b3Tab = EgtGetTableArea()
+      local dMaxZTable = b3Tab:getMax():getZ()
+      local dDeltaZ = dMinZRaw - dMaxZTable
+      local MIN_Z_OFFSET = 100
+      if vtExtr:getZ() < WD.NZ_MINA then
+         if dDeltaZ < MIN_Z_OFFSET - GEO.EPS_SMALL or vtExtr:getZ() <= -0.1 then
+            local sErr = 'Error : Mortise from bottom impossible'
+            EgtOutLog( sErr)
+            return false, sErr
+         end
      end
    -- altrimenti passante
   else
@@ -237,7 +251,7 @@ function WPM.Make( Proc, nRawId, b3Raw)
   end
   -- inserisco la lavorazione di svuotatura
   local sName = 'Mort_' .. ( EgtGetName( Proc.Id) or tostring( Proc.Id))
-   local nMchFId = EgtAddMachining( sName, sPocketing)
+   local nMchFId = WM.AddMachining( Proc.Id, sName, sPocketing)
   if not nMchFId then
      local sErr = 'Error adding machining ' .. sName .. '-' .. sPocketing
      EgtOutLog( sErr)
@@ -1,5 +1,6 @@
 -- WProcessText.lua by Egaltech s.r.l. 2021/04/20
 -- Gestione calcolo testi per Travi
+-- 2023/05/25 Funzioni EgtAddMachining sostituite da WM.AddMachining in modo da trascrivere le priorità da btl alle lavorazioni.

 -- Tabella per definizione modulo
 local WPT = {}
@@ -77,7 +78,7 @@ function WPT.Make( Proc, nRawId, b3Raw)
   end
   -- inserisco la lavorazione di fresatura
   local sName = 'Text_' .. ( EgtGetName( Proc.Id) or tostring( Proc.Id))
-   local nMchFId = EgtAddMachining( sName, sMilling)
+   local nMchFId = WM.AddMachining( Proc.Id, sName, sMilling)
   if not nMchFId then
      local sErr = 'Error adding machining ' .. sName .. '-' .. sMilling
      EgtOutLog( sErr)
@@ -1,5 +1,6 @@
 -- WProcessVariant.lua by Egaltech s.r.l. 2021/08/27
 -- Gestione calcolo Feature Custom (Variant) per Pareti
+-- 2023/05/25 Funzioni EgtAddMachining sostituite da WM.AddMachining in modo da trascrivere le priorità da btl alle lavorazioni.

 -- Tabella per definizione modulo
 local WPV = {}
@@ -71,7 +72,7 @@ local function MakeCode_1( Proc, nRawId, b3Raw)
   end
   -- inserisco la lavorazione di finitura superficie
   local sName = 'SurfFin_' .. ( EgtGetName( Proc.Id) or tostring( Proc.Id))
-   local nMchFId = EgtAddMachining( sName, sSurfFin)
+   local nMchFId = WM.AddMachining( Proc.Id, sName, sSurfFin)
   if not nMchFId then
      local sErr = 'Error adding machining ' .. sName .. '-' .. sSurfFin
      EgtOutLog( sErr)
@@ -1,5 +1,6 @@
-- WallExec.lua by Egaltech s.r.l. 2022/05/12
+-- WallExec.lua by Egaltech s.r.l. 2023/03/06
 -- Libreria esecuzione lavorazioni per Pareti
+-- 2023/05/25 Aggiunto ordinamento in base a prioritò da btl.

 -- Tabella per definizione modulo
 local WallExec = {}
@@ -75,22 +76,22 @@ function WallExec.ProcessWalls( dRawL, dRawW, dRawH, vWall, bMachGroupOk, bNewPr
   end 
   if sOrigCorner == 'TL' then
      nCorner = MCH_CR.TL
-      OrigOnTab = Point3d( 0, b3Tab:getDimY() - abs( WD.DELTA_Y or 0), ( WD.DELTA_Z or 0))
+      OrigOnTab = Point3d( 0 + abs( WD.DELTA_X or 0), b3Tab:getDimY() - abs( WD.DELTA_Y or 0), ( WD.DELTA_Z or 0))
   elseif sOrigCorner == 'BL' then
      nCorner = MCH_CR.BL
-      OrigOnTab = Point3d( 0, abs( WD.DELTA_Y or 0), ( WD.DELTA_Z or 0))
+      OrigOnTab = Point3d( 0 + abs( WD.DELTA_X or 0), abs( WD.DELTA_Y or 0), ( WD.DELTA_Z or 0))
   elseif sOrigCorner == 'TR' then
      nCorner = MCH_CR.TR
-      OrigOnTab = Point3d( b3Tab:getDimX(), b3Tab:getDimY() - abs( WD.DELTA_Y or 0), ( WD.DELTA_Z or 0))
+      OrigOnTab = Point3d( b3Tab:getDimX() - abs( WD.DELTA_X or 0), b3Tab:getDimY() - abs( WD.DELTA_Y or 0), ( WD.DELTA_Z or 0))
   elseif sOrigCorner == 'BR' then
      nCorner = MCH_CR.BR
-      OrigOnTab = Point3d( b3Tab:getDimX(), abs( WD.DELTA_Y or 0), ( WD.DELTA_Z or 0))
+      OrigOnTab = Point3d( b3Tab:getDimX() - abs( WD.DELTA_X or 0), abs( WD.DELTA_Y or 0), ( WD.DELTA_Z or 0))
   elseif sOrigCorner == 'TM' then
      nCorner = MCH_CR.TR
-      OrigOnTab = Point3d( WD.MID_REF, b3Tab:getDimY() - abs( WD.DELTA_Y or 0), ( WD.DELTA_Z or 0))
+      OrigOnTab = Point3d( WD.MID_REF - abs( WD.DELTA_X or 0), b3Tab:getDimY() - abs( WD.DELTA_Y or 0), ( WD.DELTA_Z or 0))
   elseif sOrigCorner == 'BM' then
      nCorner = MCH_CR.BR
-      OrigOnTab = Point3d( WD.MID_REF, abs( WD.DELTA_Y or 0), ( WD.DELTA_Z or 0))
+      OrigOnTab = Point3d( WD.MID_REF - abs( WD.DELTA_X or 0), abs( WD.DELTA_Y or 0), ( WD.DELTA_Z or 0))
   end
   -- Impostazione dell'attrezzaggio di default
   EgtImportSetup()
@@ -409,7 +410,7 @@ local function ContainsStartName( nOperId, StartNames)
 end

 ------ Ordinamento dei tagli, delle fresature e delle forature -------
-local function SortMach( nPhase, PrevMch, nPartId, nType, StartNames, bExistName, sInfo, bExistInfo, bOneWay, bByTool, bByToolAngle)
+local function SortMach( nPhase, PrevMch, nPartId, nType, StartNames, bExistName, sInfo, bExistInfo, bOneWay, bByTool, bByToolAngle, nPriority)
   -- dichiarazione tabella
   local TabCut = {}
   -- Recupero gli identificativi delle lavorazioni e annullo eventuali allungamenti e Id di altre lavorazioni rappresentate
@@ -419,6 +420,7 @@ local function SortMach( nPhase, PrevMch, nPartId, nType, StartNames, bExistName
      -- Se appartiene alla fase corrente e taglio con lama non da sopra (sempre su 1 sola entità)
      if EgtGetOperationPhase( nOperId) == nPhase  and  ( nType & nOperType) == nOperType and
         ( not nPartId or EgtGetInfo( nOperId, 'Part', 'i') == nPartId) and
+         ( not nPriority or EgtGetInfo( nOperId, 'PRIORITY', 'i') == nPriority ) and
         ( not StartNames or ( bExistName and ContainsStartName( nOperId, StartNames)) or
           ( not bExistName and not ContainsStartName( nOperId, StartNames))) and
         ( not sInfo  or ( bExistInfo and EgtGetInfo( nOperId, sInfo, 'i') == 1) or
@@ -535,17 +537,17 @@ local function SortMach( nPhase, PrevMch, nPartId, nType, StartNames, bExistName
 end

 -------------------------------------------------------------------------------------------------------------
-local function SortMachinings( nPhase, PrevMch, nPartId)
+local function SortMachinings( nPhase, PrevMch, nPartId, nPriority)
   -- Chiodature
-   PrevMch = SortMach( nPhase, PrevMch, nPartId, MCH_OY.MILLING, { 'Nail_'}, true, nil, nil, nil, true)
+   PrevMch = SortMach( nPhase, PrevMch, nPartId, MCH_OY.MILLING, { 'Nail_'}, true, nil, nil, nil, true, nil, nPriority)
   -- Tagli con sega a catena che sono rifiniture di spigoli
-   PrevMch = SortMach( nPhase, PrevMch, nPartId, MCH_OY.MORTISING, { 'Csaw_'}, false)
+   PrevMch = SortMach( nPhase, PrevMch, nPartId, MCH_OY.MORTISING, { 'Csaw_'}, false, nil, nil, nil, nil, nil, nPriority)
   -- Forature orizzontali con punte lunghe
-   PrevMch = SortMach( nPhase, PrevMch, nPartId, MCH_OY.DRILLING, { 'LhDrill_'}, true, 'MOVE_AFTER', false, true)
+   PrevMch = SortMach( nPhase, PrevMch, nPartId, MCH_OY.DRILLING, { 'LhDrill_'}, true, 'MOVE_AFTER', false, true, nil, nil, nPriority)
   -- Preforature per fori inclinati
-   PrevMch = SortMach( nPhase, PrevMch, nPartId, MCH_OY.POCKETING, { 'PreDrill_'}, true)
+   PrevMch = SortMach( nPhase, PrevMch, nPartId, MCH_OY.POCKETING, { 'PreDrill_'}, true, nil, nil, nil, nil, nil, nPriority)
   -- Forature e Svuotature
-   PrevMch = SortMach( nPhase, PrevMch, nPartId, MCH_OY.DRILLING + MCH_OY.POCKETING + MCH_OY.MILLING, { 'SideMill_', 'Clean_'}, false, 'MOVE_AFTER', false, false, true)
+   PrevMch = SortMach( nPhase, PrevMch, nPartId, MCH_OY.DRILLING + MCH_OY.POCKETING + MCH_OY.MILLING, { 'SideMill_', 'Clean_'}, false, 'MOVE_AFTER', false, false, true, nil, nPriority)
 --   -- Forature  ***
 --   PrevMch = SortMach( nPhase, PrevMch, nPartId, MCH_OY.DRILLING, nil, nil, 'MOVE_AFTER', false)
 --   -- Svuotature  ***
@@ -553,30 +555,32 @@ local function SortMachinings( nPhase, PrevMch, nPartId)
 --   -- Fresature che sono rifiniture di spigoli
 --   PrevMch = SortMach( nPhase, PrevMch, nPartId, MCH_OY.MILLING, { 'Clean_'}, false, 'MOVE_AFTER', false, false, true)
   -- Lavorazioni di superficie
-   PrevMch = SortMach( nPhase, PrevMch, nPartId, MCH_MY.SURFFINISHING, nil, nil, 'MOVE_AFTER', false)
+   PrevMch = SortMach( nPhase, PrevMch, nPartId, MCH_MY.SURFFINISHING, nil, nil, 'MOVE_AFTER', false, nil, nil, nil, nPriority)
   -- Fresature per gole
-   PrevMch = SortMach( nPhase, PrevMch, nPartId, MCH_OY.MILLING, { 'Gorge_'}, true, 'MOVE_AFTER', false)
+   PrevMch = SortMach( nPhase, PrevMch, nPartId, MCH_OY.MILLING, { 'Gorge_'}, true, 'MOVE_AFTER', false, nil, nil, nil, nPriority)
   -- Fresature che sono rifiniture di spigoli
-   PrevMch = SortMach( nPhase, PrevMch, nPartId, MCH_OY.MILLING, { 'SideMill_'}, true, 'MOVE_AFTER', false, false, true, true)
+   PrevMch = SortMach( nPhase, PrevMch, nPartId, MCH_OY.MILLING, { 'SideMill_'}, true, 'MOVE_AFTER', false, false, true, true, nPriority)
   -- Fresature che sono puliture di spigoli 
-   PrevMch = SortMach( nPhase, PrevMch, nPartId, MCH_OY.MILLING, { 'Clean_'}, true, 'MOVE_AFTER', false, false, true)
+   PrevMch = SortMach( nPhase, PrevMch, nPartId, MCH_OY.MILLING, { 'Clean_'}, true, 'MOVE_AFTER', false, false, true, nil, nPriority)
   -- Tagli per gole
-   PrevMch = SortMach( nPhase, PrevMch, nPartId, MCH_OY.SAWING, { 'GorgeCut_'}, true)
+   PrevMch = SortMach( nPhase, PrevMch, nPartId, MCH_OY.SAWING, { 'GorgeCut_'}, true, nil, nil, nil, nil, nil, nPriority)
   -- Tagli con lama
-   PrevMch = SortMach( nPhase, PrevMch, nPartId, MCH_OY.SAWING)
+   PrevMch = SortMach( nPhase, PrevMch, nPartId, MCH_OY.SAWING, nil, nil, nil, nil, nil, nil, nil, nPriority)
   -- Qui rimozione sfridi (se ci sono lavorazioni successive)
-   -- Fresature dei lapjoint che necessitano di gorge
-   PrevMch = SortMach( nPhase, PrevMch, nPartId, MCH_OY.MILLING, { 'SideMill_'}, true, 'MOVE_AFTER', true, false, true, true)
-   -- Tagli con sega a catena che vanno fatti dopo i tagli con lama
-   PrevMch = SortMach( nPhase, PrevMch, nPartId, MCH_OY.MORTISING, { 'Csaw_'}, true)
-   -- Fresature (puliture di spigoli) che vanno fatte dopo i tagli con lama
-   PrevMch = SortMach( nPhase, PrevMch, nPartId, MCH_OY.MILLING, nil, nil, 'MOVE_AFTER', true)
-   -- Forature che vanno fatte dopo i tagli con lama
-   PrevMch = SortMach( nPhase, PrevMch, nPartId, MCH_OY.DRILLING, nil, nil, 'MOVE_AFTER', true)
-   -- Svuotature che vanno fatte dopo i tagli con lama
-   PrevMch = SortMach( nPhase, PrevMch, nPartId, MCH_OY.POCKETING, nil, nil, 'MOVE_AFTER', true)
-   -- Lavorazioni di superficie che vanno fatte dopo i tagli con lama
-   PrevMch = SortMach( nPhase, PrevMch, nPartId, MCH_MY.SURFFINISHING, nil, nil, 'MOVE_AFTER', true)
+   if not nPriority then
+      -- Fresature dei lapjoint che necessitano di gorge
+      PrevMch = SortMach( nPhase, PrevMch, nPartId, MCH_OY.MILLING, { 'SideMill_'}, true, 'MOVE_AFTER', true, false, true, true)
+      -- Tagli con sega a catena che vanno fatti dopo i tagli con lama
+      PrevMch = SortMach( nPhase, PrevMch, nPartId, MCH_OY.MORTISING, { 'Csaw_'}, true)
+      -- Fresature (puliture di spigoli) che vanno fatte dopo i tagli con lama
+      PrevMch = SortMach( nPhase, PrevMch, nPartId, MCH_OY.MILLING, nil, nil, 'MOVE_AFTER', true)
+      -- Forature che vanno fatte dopo i tagli con lama
+      PrevMch = SortMach( nPhase, PrevMch, nPartId, MCH_OY.DRILLING, nil, nil, 'MOVE_AFTER', true)
+      -- Svuotature che vanno fatte dopo i tagli con lama
+      PrevMch = SortMach( nPhase, PrevMch, nPartId, MCH_OY.POCKETING, nil, nil, 'MOVE_AFTER', true)
+      -- Lavorazioni di superficie che vanno fatte dopo i tagli con lama
+      PrevMch = SortMach( nPhase, PrevMch, nPartId, MCH_MY.SURFFINISHING, nil, nil, 'MOVE_AFTER', true)
+   end
   return PrevMch
 end

@@ -641,6 +645,38 @@ function WallExec.ProcessFeatures()
      -- riordino le lavorazioni tra tutti i pezzi
      local nPhase = 1
      local PrevMch = EgtGetPhaseDisposition( nPhase)
+
+      -- abilitazione ordinamento con priorità da btl: 0 = no, 1 = ordine crescente, 2 = ordine decrescente
+      -- le lavorazioni con priorità 0 o senza priorità saranno lasciate per ultime
+      local nGetPriorityFromBtl = WD.BTL_PRIORITY or 0
+      if nGetPriorityFromBtl > 0 then
+         local vPriority = {}
+         local nOperId = EgtGetNextOperation( PrevMch)
+         local nCurrentPriorityId = 1
+         while nOperId do
+            local nPriority = EgtGetInfo( nOperId or GDB_ID.NULL, 'PRIORITY', 'i')
+            if nPriority and nPriority ~= 0 then
+               vPriority[nCurrentPriorityId] = nPriority
+               nCurrentPriorityId = nCurrentPriorityId + 1
+            end
+            nOperId = EgtGetNextOperation( nOperId)
+         end
+         -- sorting delle priorità
+         -- ordine crescente
+         if nGetPriorityFromBtl == 1 then
+            table.sort( vPriority)
+         -- ordine decrescente
+         else
+            table.sort( vPriority, function( a, b) return a > b end)
+         end
+         -- riordino le lavorazioni per priorità
+         for i = 1, #vPriority do
+            if i == 1 or ( vPriority[i] ~= vPriority[i - 1]) then
+               PrevMch = SortMachinings( nPhase, PrevMch, nil, vPriority[i])
+            end
+         end
+      end
+
      SortMachinings( nPhase, PrevMch)
      -- Aggiornamento finale di tutto
      EgtSetCurrPhase( 1)
@@ -56,21 +56,22 @@ local Text = require( 'WProcessText')
 -- Carico i dati globali
 local WD = require( 'WallData')

+-------------------------------------------------------------------
 local function ClassifyFlip( vPartProc, b3Part)
   
   local FlipFeatureStates = {}
   local bLapJoints = false
   
   for nInd = 1, #vPartProc do
-      if LapJoint.Identify( vPartProc[nInd]) then         
+      if LapJoint.Identify( vPartProc[nInd]) then
         -- setto parametro Q 
         if vPartProc[nInd].Prc == 30 then
            EgtSetInfo( vPartProc[nInd].Id, "Q08", 1)
-            EgtSetInfo( vPartProc[nInd].Id, "Q08A", 1)           
+            EgtSetInfo( vPartProc[nInd].Id, "Q08A", 1)
         else
            EgtSetInfo( vPartProc[nInd].Id, "Q03", 1)
-            EgtSetInfo( vPartProc[nInd].Id, "Q03A", 1)   
-         end        
+            EgtSetInfo( vPartProc[nInd].Id, "Q03A", 1)
+         end
         bLapJoints = true 
         local nFlip0, nFlip1 = LapJoint.FlipClassify(vPartProc[nInd])
         if nFlip0 and nFlip1 and nFlip0 ~= nFlip1 then
@@ -80,7 +81,7 @@ local function ClassifyFlip( vPartProc, b3Part)
         local nFlip0, nFlip1 = Drill.FlipClassify(vPartProc[nInd], b3Part)
         if nFlip0 and nFlip1 and nFlip0 ~= nFlip1 then
            table.insert( FlipFeatureStates, { Flip0 = nFlip0, Flip1 = nFlip1})
-         end      
+         end
      elseif Cut.Identify( vPartProc[nInd]) then
         local nFlip0, nFlip1 = Cut.FlipClassify(vPartProc[nInd], b3Part)
         if nFlip0 and nFlip1 and nFlip0 ~= nFlip1 then
@@ -90,7 +91,7 @@ local function ClassifyFlip( vPartProc, b3Part)
         -- setto parametro Q
         if vPartProc[nInd].Prc == 12 then
            EgtSetInfo( vPartProc[nInd].Id, "Q02", 1)
-            EgtSetInfo( vPartProc[nInd].Id, "Q02A", 1)           
+            EgtSetInfo( vPartProc[nInd].Id, "Q02A", 1)
         end
         local nFlip0, nFlip1 = DoubleCut.FlipClassify(vPartProc[nInd], b3Part)
         if nFlip0 and nFlip1 and nFlip0 ~= nFlip1 then
@@ -100,7 +101,7 @@ local function ClassifyFlip( vPartProc, b3Part)
         local nFlip0, nFlip1 = SawCut.FlipClassify(vPartProc[nInd], b3Part)
         if nFlip0 and nFlip1 and nFlip0 ~= nFlip1 then
            table.insert( FlipFeatureStates, { Flip0 = nFlip0, Flip1 = nFlip1})
-         end            
+         end
      elseif FreeContour.Identify( vPartProc[nInd]) then
         local nFlip0, nFlip1 = FreeContour.FlipClassify(vPartProc[nInd], b3Part)
         if nFlip0 and nFlip1 and nFlip0 ~= nFlip1 then
@@ -120,19 +121,19 @@ local function ClassifyFlip( vPartProc, b3Part)
         local nFlip0, nFlip1 = Mark.FlipClassify(vPartProc[nInd], b3Part)
         if nFlip0 and nFlip1 and nFlip0 ~= nFlip1 then
            table.insert( FlipFeatureStates, { Flip0 = nFlip0, Flip1 = nFlip1})
-         end   
+         end
      elseif Text.Identify( vPartProc[nInd]) then
         local nFlip0, nFlip1 = Text.FlipClassify(vPartProc[nInd], b3Part)
         if nFlip0 and nFlip1 and nFlip0 ~= nFlip1 then
            table.insert( FlipFeatureStates, { Flip0 = nFlip0, Flip1 = nFlip1})
-         end               
+         end
      end
   end
-      
-   return FlipFeatureStates, bLapJoints     
+
+   return FlipFeatureStates, bLapJoints
 end

-
+-------------------------------------------------------------------
 local function ClassifyRotation( vPartProc)
   
   local RotateFeatureStates = {}
@@ -144,22 +145,21 @@ local function ClassifyRotation( vPartProc)
         end
       end
   end
-    
-   return RotateFeatureStates 
+   return RotateFeatureStates
 end

---
-   
+-------------------------------------------------------------------
+-------------------------------------------------------------------
 local vPartProc = WE.CollectFeatures( NFAR.PARTID)
 local b3Part = EgtGetBBoxGlob( NFAR.PARTID, GDB_BB.STANDARD)   
 local bManualFlip = EgtGetInfo( NFAR.PARTID, "MANUALFLIP", 'b')
 local bManualRot = EgtGetInfo( NFAR.PARTID, "MANUALROT", 'b')
-   
-- FLIP 
+
+-- FLIP
 local FlipFeatureStates, bLapJoints = ClassifyFlip( vPartProc, b3Part)

-if not bManualFlip then   
-   local bFlip 
+if not bManualFlip then
+   local bFlip
   -- analizzo stati flip delle feature
   local nFlip0Min = 100
   local nFlip0Cnt = 0
@@ -187,16 +187,16 @@ if not bManualFlip then
      elseif nFlip0Cnt < nFlip1Cnt then
         bFlip = false
      elseif bLapJoints then 
-         -- se equivalenti ma ci sono lap joints, fisso il flip per non avere problemi con le aree di lavorazione nel nesting  
-         bFlip = false 
+         -- se equivalenti ma ci sono lap joints, fisso il flip per non avere problemi con le aree di lavorazione nel nesting
+         bFlip = false
      end
   elseif nFlip0Min < nFlip1Min then
      bFlip = true
   else
-      bFlip = false 
+      bFlip = false
   end
   
-   if bFlip ~= nil then 
+   if bFlip ~= nil then
      -- se una posizione è più conveniente dell'altra setto info nel pezzo  
      EgtSetInfo( NFAR.PARTID, "NestAllowFlip", false)
      EgtSetInfo( NFAR.PARTID, "NestFlip", bFlip)
@@ -206,10 +206,10 @@ if not bManualFlip then
   
   if bFlip then
      -- flip pezzo
-      EgtRotate( NFAR.PARTID, b3Part:getCenter(), X_AX(), 180, GDB_RT.GLOB) 
+      EgtRotate( NFAR.PARTID, b3Part:getCenter(), X_AX(), 180, GDB_RT.GLOB)
      -- modifico le info del pezzo
      local nPartFlip = EgtGetInfo( NFAR.PARTID, "INVERTED", 'i') or 0
-      local nTotFlip = EgtIf( nPartFlip == 180, 0, 180)    
+      local nTotFlip = EgtIf( nPartFlip == 180, 0, 180)
      EgtSetInfo( NFAR.PARTID, "INVERTED", nTotFlip)
      EgtSetInfo( NFAR.PARTID, "FLIPROTMODIFIED", 1)
   end  
@@ -217,12 +217,12 @@ end

 -- rimuovo parametri Q
 local b3PartInside = BBox3d( b3Part)
-b3PartInside:expand( - WD.INSIDE_RAW_TOL)
-for nInd = 1, #vPartProc do   
+b3PartInside:expand( - ( WD.INSIDE_RAW_TOL or 30))
+for nInd = 1, #vPartProc do
   local Proc = vPartProc[nInd]
   
-   if LapJoint.Identify( Proc) then         
-      -- cerco la faccia rivolta verso l'alto e la faccia rivolta verso il basso       
+   if LapJoint.Identify( Proc) then
+      -- cerco la faccia rivolta verso l'alto e la faccia rivolta verso il basso
      local nFaceInd = -1
      local nFaceDownInd = -1 
      for nIdx = 0, Proc.Fct - 1 do
@@ -231,8 +231,8 @@ for nInd = 1, #vPartProc do
            nFaceInd = nIdx
         elseif vtN:getZ() < - 0.95 then
            nFaceDownInd = nIdx
-         end                  
-      end               
+         end
+      end
      -- se è lap joint dall'alto
      if nFaceInd ~= -1 and nFaceDownInd == -1 then 
         local ptCen = EgtSurfTmFacetCenter( Proc.Id, nFaceInd, GDB_ID.ROOT)
@@ -241,11 +241,11 @@ for nInd = 1, #vPartProc do
            -- resetto parametro Q
            if Proc.Prc == 30 then
               EgtRemoveInfo( Proc.Id, "Q08")
-               EgtRemoveInfo( Proc.Id, "Q08A")    
+               EgtRemoveInfo( Proc.Id, "Q08A")
            else
               EgtRemoveInfo( Proc.Id, "Q03")
-               EgtRemoveInfo( Proc.Id, "Q03A")   
-            end                 
+               EgtRemoveInfo( Proc.Id, "Q03A")
+            end
         end 
      end
      
@@ -264,21 +264,22 @@ for nInd = 1, #vPartProc do
               -- resetto parametro Q
               if Proc.Prc == 12 then
                  EgtRemoveInfo( Proc.Id, "Q02")
-                  EgtRemoveInfo( Proc.Id, "Q02A")    
+                  EgtRemoveInfo( Proc.Id, "Q02A")
               end
            end
         end
-      end  
-   end 
-end   
-   
-   
+      end
+   end
+end
+
+
 -- ROTATION
-nRotate = 0 
+nRotate = 0
+
 -- venatura
 EgtRemoveInfo( NFAR.PARTID, "HasGrainDirection")
 local bGrain = false 
-local sGrainInfo = EgtGetInfo( NFAR.PARTID, "GRAINDIRECTION", 's')   
+local sGrainInfo = EgtGetInfo( NFAR.PARTID, "GRAINDIRECTION", 's')
 if sGrainInfo then 
   local sGrainAlign = string.sub( sGrainInfo, 7)
   local sGrainDir = string.sub( sGrainInfo, 1, 5)
@@ -286,21 +287,21 @@ if sGrainInfo then
      EgtSetInfo( NFAR.PARTID, "HasGrainDirection", 1)
      bGrain = true 
      -- trovo la rotazione ( a meno di 180°) che deve avere il pezzo per essere allineato con la venatura del grezzo
-      local nGrainRot = 0 
+      local nGrainRot = 0
      if ( sGrainDir == "1,0,0" and not NFAR.RAW_GRAIN_DIR_X) or ( sGrainDir == "0,1,0" and NFAR.RAW_GRAIN_DIR_X) then
-         nGrainRot = 90 
+         nGrainRot = 90
      end  
      
      local nPartRot = EgtGetInfo( NFAR.PARTID, "ROTATED", 'i') or 0
      if ( nGrainRot == 0 and ( nPartRot == 90 or nPartRot == 270)) or ( nGrainRot == 90 and ( nPartRot == 0 or nPartRot == 180)) then
-         local b3Part = EgtGetBBoxGlob( NFAR.PARTID, GDB_BB.STANDARD) 
+         local b3Part = EgtGetBBoxGlob( NFAR.PARTID, GDB_BB.STANDARD)
         EgtRotate( NFAR.PARTID, b3Part:getCenter(), Z_AX(), 90, GDB_RT.GLOB)
         nRotate = 90
-      end        
+      end
   end
-end  
+end

-if not bManualRot then 
+if not bManualRot then
   
   local RotateFeatureStates = ClassifyRotation( vPartProc)
   
@@ -346,19 +347,20 @@ if not bManualRot then
                     { Rot = 90, Score = nRot90Min, ScoreCnt = nRot90Cnt},
                     { Rot = 180, Score = nRot180Min, ScoreCnt = nRot180Cnt},
                     { Rot = 270, Score = nRot270Min, ScoreCnt = nRot270Cnt}}
-   local nRotateOpt = 0 
+   local nRotateOpt = 0
   if #RotateFeatureStates > 0 then
      -- calcolo lato con punteggio minore o molteplicita' piu' alta
-      local nRotMax = 0
-      local nScoreMax = 0
-      local nScoreCnt = 0
-      for nInd = 1, #MinList do
+      local nRotMax = MinList[1].Rot
+      local nScoreMax = MinList[1].Score
+      local nScoreCnt = MinList[1].ScoreCnt
+      for nInd = 2, #MinList do
         if MinList[nInd].Score > nScoreMax then
            nRotMax = MinList[nInd].Rot
            nScoreMax = MinList[nInd].Score
            nScoreCnt = MinList[nInd].ScoreCnt
         elseif MinList[nInd].Score == nScoreMax then
-            if MinList[nInd].ScoreCnt > nScoreCnt then 
+            -- se punteggio > 0 conservo quello con molteplicità più alta, se punteggio = 0 conservo quello con molteplicità più bassa
+            if ( nScoreMax ~= 0 and MinList[nInd].ScoreCnt > nScoreCnt) or ( nScoreMax == 0 and MinList[nInd].ScoreCnt < nScoreCnt) then
               nRotMax = MinList[nInd].Rot
               nScoreMax = MinList[nInd].Score
               nScoreCnt = MinList[nInd].ScoreCnt
@@ -368,7 +370,7 @@ if not bManualRot then
      nRotateOpt = nRotMax
   else
      nRotateOpt = 0
-   end      
+   end
   
   local bRotNest = false
   local nStepRotNest = 0
@@ -386,40 +388,40 @@ if not bManualRot then
      -- altrimenti permetto tutto
      bRotNest = true
      nStepRotNest = 90
-   end 
+   end
   
    -- verifico se ci sono fori lungo Y che bloccano la rotazione
-   local bDrillOnY = ( nStepRotNest == 180)  
+   local bDrillOnY = ( nStepRotNest == 180)
   
-   local b3Part = EgtGetBBoxGlob( NFAR.PARTID, GDB_BB.STANDARD) 
+   local b3Part = EgtGetBBoxGlob( NFAR.PARTID, GDB_BB.STANDARD)
    
-   if bGrain then       
-      -- se venatura eseguo rotazione solo se è di 180° 
-      if nRotateOpt == 180 then 
-         EgtRotate( NFAR.PARTID, b3Part:getCenter(), Z_AX(), nRotateOpt, GDB_RT.GLOB) 
+   if bGrain then
+      -- se venatura eseguo rotazione solo se è di 180°
+      if nRotateOpt == 180 then
+         EgtRotate( NFAR.PARTID, b3Part:getCenter(), Z_AX(), nRotateOpt, GDB_RT.GLOB)
         nRotate = nRotate + nRotateOpt
-      end  
-      nStepRotNest = 180 
+      end
+      nStepRotNest = 180
   else
      -- eseguo rotazione
      EgtRotate( NFAR.PARTID, b3Part:getCenter(), Z_AX(), nRotateOpt, GDB_RT.GLOB)
      nRotate = nRotate + nRotateOpt
   end
    
-   -- verifico se rotazione è valida ( pezzo contenuto nel grezzo) solo se no venatura  
-   if not bGrain then          
-      b3Part = EgtGetBBoxGlob( NFAR.PARTID, GDB_BB.STANDARD) 
+   -- verifico se rotazione è valida ( pezzo contenuto nel grezzo) solo se no venatura
+   if not bGrain then
+      b3Part = EgtGetBBoxGlob( NFAR.PARTID, GDB_BB.STANDARD)
      local bValidRotationForRaw = b3Part:getDimX() < WD.MAX_LENGTH and b3Part:getDimY() < WD.MAX_WIDTH
      local bRotatedIsValid = b3Part:getDimY() < WD.MAX_LENGTH and b3Part:getDimX() < WD.MAX_WIDTH
      if not bValidRotationForRaw and bRotatedIsValid then
         EgtRotate( NFAR.PARTID, b3Part:getCenter(), Z_AX(), 90, GDB_RT.GLOB)
-         nRotate = nRotate + 90 
-         nStepRotNest = 180 
+         nRotate = nRotate + 90
+         nStepRotNest = 180
      end
   end
      
   -- se no venatura e non ci sono fori verifico se il pezzo cade 
-   if not bGrain and not bDrillOnY then   
+   if not bGrain and not bDrillOnY then
      b3Part = EgtGetBBoxGlob( NFAR.PARTID, GDB_BB.STANDARD)
      local bValidRotation = b3Part:getDimX() > ( WD.INTRULLI or 1200)
      -- verifico se ruotata resta valida
@@ -427,22 +429,22 @@ if not bManualRot then
      -- se non è valida ma ruotato lo sarebbe, ruoto
      if not bValidRotation and bRotatedIsValid and nStepRotNest ~= 180 then
         EgtRotate( NFAR.PARTID, b3Part:getCenter(), Z_AX(), 90, GDB_RT.GLOB)
-         nRotate = nRotate + 90 
-         nStepRotNest = 180 
+         nRotate = nRotate + 90
+         nStepRotNest = 180
      elseif bValidRotation and not bRotatedIsValid then
         -- se fosse valida ma la sua ruotata no, allora blocco lo step nella rotazione del nesting
-         nStepRotNest = 180 
-      end  
+         nStepRotNest = 180
+      end
   end
   
-   -- setto info nel pezzo 
+   -- setto info nel pezzo
   if nRotate > 0 then
      local nPartRot = EgtGetInfo( NFAR.PARTID, "ROTATED", 'i') or 0
      local nTotRot = nPartRot - nRotate
      nTotRot = EgtIf( nTotRot < 0, nTotRot + 360, nTotRot)
-      EgtSetInfo( NFAR.PARTID, "ROTATED", nTotRot)  
+      EgtSetInfo( NFAR.PARTID, "ROTATED", nTotRot)
      EgtSetInfo( NFAR.PARTID, "FLIPROTMODIFIED", 1)
-   end   
+   end
   
   EgtSetInfo( NFAR.PARTID, "NestStepRot", nStepRotNest)
   EgtSetInfo( NFAR.PARTID, "NestRot", nRotate)
@@ -450,4 +452,4 @@ if not bManualRot then
 end


-NFAR.ERR = 0 
+NFAR.ERR = 0
@@ -0,0 +1,13 @@
+           ==== Wall Update Log ====
+
+Versione 2.5d2 (20/04/2023)
+- Added : in TS3v7 aggiunta gestione flag per taglio feature con outline (da parametro macchina WD.CUT_WITH_OUTLINE)
+- Added : in TS3v7 aggiunta gestione flag per rotazione grezzo di 180deg (da parametro macchina WD.RAWPART_ROT)
+- Modif : in LapJoint con lavorazione di lato se MCH_SCC.ADIR_NEAR fallisce si riprova con MCH_SCC.ADIR_FAR
+- Fixed : in FreeContour e assimilati aggiunta pulitura spigoli Q05=1 anche su sole fresature
+- Fixed : in LapJoint e assimilati corretta ricerca utensile in lavorazione 'SideGroove'
+- Fixed : in FreeContour e LapJoint la lavorazione CleanCorner viene sempre forzata con lato di lavoro in centro
+- Fixed : in LapJoint razionalizzata gestione parametri Q ed eliminta gestione forzatura lama non usata.
+
+Versione 2.5d1 (06/04/23)
+- Added : in nesting aggiunti valori di default per alcuni parametri letti dal WallData.
@@ -0,0 +1,6 @@
+-- Version.lua by Egalware s.r.l. 2023/05/04
+-- Gestione della versione di Wall
+
+NAME = 'Wall'
+VERSION = '2.5e1'
+MIN_EXE = '2.5b3'
Author	SHA1	Message	Date
luca.mazzoleni	b0b8e88c30	- Alcune correzioni minori - Sistemati commenti	2023-06-06 12:54:35 +02:00
luca.mazzoleni	d020fa143c	- aggiunta gestione step verticale - correzioni minori	2023-05-29 18:01:59 +02:00
luca.mazzoleni	eeb34638cf	- da testare funzionamento corretto - da implementare step verticali	2023-05-26 18:12:53 +02:00
luca.mazzoleni	7f2d1895a1	Merge branch 'feature/OperationPriorityFromBtl' into develop	2023-05-26 13:03:54 +02:00
luca.mazzoleni	766bd61981	- sistemati commenti - lettura costante BTL_PRIORITY da WallData - altre piccole correzioni	2023-05-25 15:58:00 +02:00
luca.mazzoleni	1102a7c23a	-aggiunta possibilità di scegliere l'ordine del sorting crescente o decrescente -manca costante da WD	2023-05-24 17:45:28 +02:00
luca.mazzoleni	358df3cfdb	prima versione funzionante completamente	2023-05-24 11:48:51 +02:00
luca.mazzoleni	bd0dbbb41c	modificata funzioni di sorting per gestire priorità	2023-05-23 18:25:16 +02:00
luca.mazzoleni	2606cf4f13	Merge branch 'develop' into feature/OperationPriorityFromBtl	2023-05-16 16:42:47 +02:00
luca.mazzoleni	e63b498902	piccola correzione messaggio	2023-05-16 16:42:32 +02:00
luca.mazzoleni	63a3cfe698	primo implemento ciclo priorità	2023-05-15 13:31:33 +02:00
luca.mazzoleni	78cf115748	update gitignore	2023-05-09 09:02:27 +02:00
luca.mazzoleni	ac853fc74c	Merge remote-tracking branch 'origin/master' into develop	2023-05-04 12:53:19 +02:00
DarioS	a5cc30adfc	DataWall 2.5e1 : - modifiche per gestione traduzione messaggi (possibile solo con interfaccia utente B&W).	2023-05-04 12:21:34 +02:00
luca.mazzoleni	1a1d48a2c1	update log modifiche	2023-04-21 10:13:00 +02:00
luca.mazzoleni	a05741f7be	Merge remote-tracking branch 'origin/master' into develop	2023-04-18 09:00:39 +02:00
DarioS	5da9d312d8	DataWall : - in gestione batch TS3v7 aggiunta gestione flag per rotazione grezzo di 180deg (da parametro macchina WD.RAWPART_ROT) - in DoubleCut passate a LapJoint si trasforma il Gruppo da 1 a 3 e da 2 a 4 (altrimenti sbaglia a ordinare le facce) - in FreeContour e LapJoint la lavorazione CleanCorner viene sempre forzata con lato di lavoro in centro - in LapJoint razionalizzata gestione parametri Q ed eliminta gestione forzatura lama non usatain realtà.	2023-04-17 17:40:28 +02:00
luca.mazzoleni	d704e899a2	Merge remote-tracking branch 'origin/master' into develop	2023-04-17 10:26:42 +02:00
DarioS	5b0a274f00	DataWall 2.5d2 : - in gestione batch TS3v7 aggiunta gestione flag per taglio feature con outline (da parametro macchina WD.CUT_WITH_OUTLINE) - in FreeContour e assimilati aggiunta pulitura spigoli Q05=1 anche su sole fresature - in LapJoint e assimilati corretta scelta tipo lavorazione 'SideGroove' aggiungendo massimo spessore - in LapJoint con lavorazione di lato se MCH_SCC.ADIR_NEAR fa fallire Apply si riprova con MCH_SCC.ADIR_FAR.	2023-04-17 09:38:38 +02:00
DarioS	5fb1ffb86b	Merge remote-tracking branch 'origin/master'	2023-04-14 19:13:16 +02:00
luca.mazzoleni	c6cf8c9df3	Merge branch 'develop'	2023-04-06 16:00:29 +02:00
luca.mazzoleni	39d1c1dbd8	update log modifiche	2023-04-06 16:00:04 +02:00
luca.mazzoleni	a0668a0f6d	Merge tag '2.5d1' into develop Finish Release: 2.5d1	2023-04-06 12:53:39 +02:00
luca.mazzoleni	53c68f8126	Merge branch 'release/2.5d1'	2023-04-06 12:53:38 +02:00
luca.mazzoleni	ce835200c2	update version	2023-04-06 12:53:01 +02:00
luca.mazzoleni	a941ba0d0d	Merge branch 'release/2.5d1'	2023-04-06 12:51:00 +02:00
luca.mazzoleni	e475c01057	Merge tag '2.5d1' into develop Finish Release: 2.5d1	2023-04-06 12:51:00 +02:00
luca.mazzoleni	03647ee74c	Merge branch 'master' into develop	2023-04-06 11:44:22 +02:00
DarioS	22f100ff6c	DataWall 2.5c6 : - aggiornamento versione.	2023-03-27 20:58:17 +02:00
SaraP	3d0d6526ca	DataWall : - nel nesting aggiunti valori di default per alcuni dati letti dal WallData - migliorie stilistiche.	2023-03-24 11:13:17 +01:00
luca.mazzoleni	a911191d5b	Merge tag '2.5c5' into develop Finish Release: 2.5c5	2023-03-22 17:42:46 +01:00
luca.mazzoleni	aeba5edbad	Merge branch 'release/2.5c5'	2023-03-22 17:42:46 +01:00
luca.mazzoleni	763ca86371	2.5c5: - In LapJoint -> MakeByMill gestito correttamente il caso di Workside destro	2023-03-22 16:36:20 +01:00
luca.mazzoleni	e6e9790a9c	Merge remote-tracking branch 'origin/master' into develop	2023-03-22 16:34:12 +01:00
Samuele Locatelli	becd669f6d	Merge branch 'develop'	2023-03-21 15:26:22 +01:00
Samuele Locatelli	2fb6729240	Fix compilazione su disco rete lua scripts	2023-03-21 15:25:54 +01:00
DarioS	a3ad73b4a0	DataWall : - corretta replica come Beam.	2023-03-21 12:02:32 +01:00
DarioS	e88e056c89	DataWall : - aggiunti a Version.lua NAME e MIN_EXE.	2023-03-21 10:16:50 +01:00
luca.mazzoleni	3853e7c0c7	piccola correzione alle fessure poco inclinate con lama	2023-03-10 11:29:36 +01:00
luca.mazzoleni	4c41ecc7cb	2.5c4: - in LapJoint aggiunta lavorazione fessure poco inclinate con lama	2023-03-09 17:40:24 +01:00
luca.mazzoleni	b7384b9635	Merge branch 'BugFix/MisrecognizedUShapeLapjoint' into develop	2023-03-09 09:38:22 +01:00
luca.mazzoleni	bc5c99422b	2.5c4 - in LapJoint Gestito caso riconoscimento errato Stype 3 - piccola correzione a MachiningLib -> FindMilling	2023-03-09 09:34:43 +01:00
luca.mazzoleni	c5e3af9180	Merge remote-tracking branch 'origin/master' into develop	2023-03-09 09:19:23 +01:00
DarioS	714b3be628	DataWall : - in FreeContour con fresa, se imposto Tool_ID non controllo più possibilità di lavorare di testa.	2023-03-08 13:05:30 +01:00
DarioS	29b63c77a6	DataWall 2.5c3 : - aggiunta gestione DELTA_X e DELTA_Y per programma EgtBeamWall.	2023-03-08 11:51:30 +01:00
luca.mazzoleni	53af42724b	Merge branch 'master' into develop	2023-03-08 10:41:07 +01:00
DarioS	0be8849f2e	DataWall 2.5c2 : - aggiunta possibilità di spostare grezzo da corner di riferimento anche in X.	2023-03-08 08:45:44 +01:00
DarioS	246f64e4ce	DataWall 2.5c1 : - corretto nome variabile restituzione stringa errore per sega a catena.	2023-03-02 12:13:40 +01:00
luca.mazzoleni	4d3669a24b	Merge remote-tracking branch 'origin/master' into develop	2023-02-28 15:18:09 +01:00
DarioS	de682d511c	DataWall 2.5b2 : - modifica a FreeContour con sega a catena per non usare MCH_SCC.OPPOSITE sostituiti con Invert e Left.	2023-02-28 15:13:33 +01:00
luca.mazzoleni	55e7d9f2e7	Merge branch 'master' into develop	2023-02-27 17:38:41 +01:00
DarioS	bf08515edf	Merge branch 'master' of https://gitlab.steamware.net/egaltech/DataWall	2023-02-27 17:33:17 +01:00
DarioS	b0b5a7f91d	DataWall 2.5b1 : - aggiunto file Version.lua.	2023-02-27 17:32:51 +01:00
luca.mazzoleni	7cded14384	Improvement/SideMortisingAndMarking: - modificato valore di accettazione offset z a 99.9	2023-01-24 12:47:48 +01:00
luca.mazzoleni	2bf9d01c50	Merge branch 'develop'	2023-01-24 12:02:45 +01:00
DarioS	c654e00984	DataWall : - modifiche per lua54 e compilati unificati 32/64 bit solo bin.	2023-01-12 15:19:08 +01:00
luca.mazzoleni	f9f2b07489	Merge branch 'Improvement/SideMortisingAndMarking' into develop	2023-01-05 16:06:30 +01:00
luca.mazzoleni	a21d93cc6b	Improvement/SideMortisingAndMarking: - in presenza di offset Z tra grezzo e tavola, rese possibili le lavorazioni di mortising e marking sul fianco	2023-01-05 16:04:20 +01:00
luca.mazzoleni	89f553a49f	Merge branch 'develop'	2022-12-22 17:53:56 +01:00
luca.mazzoleni	577362c6d2	BugFix: - in LapJoint esteso lo step negativo agli angoli ottusi	2022-12-22 17:53:40 +01:00
luca.mazzoleni	de14fb91ce	Merge remote-tracking branch 'origin/master' into develop	2022-12-22 16:14:26 +01:00
DarioS	564de1d22d	DataWall : - in LapJoint abilitato step negativo se tasca guarda verso il basso (MakeSideGrooveByMill).	2022-12-22 15:20:00 +01:00
DarioS	2051a327a5	Merge branch 'develop' of https://gitlab.steamware.net/egaltech/DataWall	2022-12-22 10:04:06 +01:00
luca.mazzoleni	4237f50b5f	Merge branch 'BugFix/Approx3EdgesFaces' into develop	2022-12-14 18:24:40 +01:00
luca.mazzoleni	c01fa1f08a	Merge branch 'develop'	2022-12-14 12:57:00 +01:00
luca.mazzoleni	a0bd97e7aa	BugFix/FreeContourBladeUpsideDownAdjFace: - Aggiunto l'accorciamento della lama in caso di facce vicine orientate verso il basso - in Lapjoint piccola modifica al modo di oridinare le facce	2022-12-14 12:02:54 +01:00
luca.mazzoleni	a548c26eed	Merge branch 'develop' into BugFix/Approx3EdgesFaces	2022-12-13 09:49:43 +01:00
luca.mazzoleni	3b46a5b285	BugFix/Approx3EdgesFaces: - in freeContour aggiunta la funzione Is3EdgesApprox per riconoscere come 3 lati anche facce con lati aggiuntivi molto corti (<15 mm)	2022-12-13 09:48:53 +01:00
luca.mazzoleni	3bf3ba3b43	Improvement/SideMillGreater90: - piccole correzioni e miglioramenti	2022-12-06 12:41:47 +01:00
luca.mazzoleni	d236b19d6a	Improvement/SideMillGreater90: - piccola correzione	2022-12-02 18:35:46 +01:00
luca.mazzoleni	b62b694112	Improvement/SideMillGreater90: - Corretto calcolo profondità per lavorazione verticale con angolo ottuso	2022-12-02 18:10:17 +01:00
SaraP	ade9d3ffe9	DataWall : - nel nesting aggiunto controllo sul diametro dei fori - in FlipAndRot corretto controllo sulle rotazioni.	2022-12-02 17:58:39 +01:00
luca.mazzoleni	b2f1645322	Improvement/SideMillGreater90: - aggiunto ripasso lato inclinato anche per svuotatura	2022-12-02 15:38:04 +01:00
luca.mazzoleni	5023887f2e	Improvement/SideMillGreater90: - aggiunto warning per lapjoint da sotto con angolo ottuso non completata	2022-12-01 16:08:15 +01:00
luca.mazzoleni	d37e4bdf8d	Improvement/SideMillGreater90: - in lapjoint, per 2 facce con angolo > 90°, implementata lavorazione principale verticale; per quelle dall'alto si fa anche finitura del lato inclinato	2022-12-01 11:46:50 +01:00
SaraP	6ccbc4f0cd	DataWall : - nel nesting corretta la rimozione dei parametri Q.	2022-11-30 15:00:44 +01:00
luca.mazzoleni	9babfe01f3	Merge remote-tracking branch 'origin/HEAD' into develop	2022-11-29 09:29:40 +01:00
DarioS	4c6d40ee11	DataWall : - taglio lama quasi orizzontale ora viene fatto con svuotatura - LapJoint con lama massima inclinazione 60deg	2022-11-25 15:37:58 +01:00
DarioS	e07a1d63cb	DataWall : - in nesting migliorati controlli esistenza dati - in controllo spessori per inserimento in pannello si usa tolleranza di 0.1 (prima era 0.01) come in EgtBeamWall.	2022-11-25 09:40:34 +01:00
luca.mazzoleni	be4df143e4	Merge branch 'BugFix/SideGrooveMaxElevation' into develop	2022-09-30 12:51:04 +02:00