Merge branch 'develop'

- in Is3EdgesApprox di FreeContour aggiunta cancellazione dei loop temporanei.

.gitignore

@@ -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

.gitlab-ci.yml

@@ -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
-   

BatchProcess.lua

@@ -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')

BatchProcessNew.lua

@@ -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)

Compile.bat

@@ -1,53 +1,30 @@
 
-REM Compilazione degli script Wall Egaltech                         2022.05.09
+REM Compilazione degli script Wall Egaltech                         2023.09.26
 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
+REM \EgtProg\Dll32\luac54 -o bin\LuaLibs\WFeatureTopology.lua             LuaLibs\WFeatureTopology.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

GetWallData.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,10 +37,13 @@ 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
 GWD.MAX_HEIGHT = WD.MAX_HEIGHT
+GWD.BTL_PRIORITY = WD.BTL_PRIORITY
 
 -- Tutto ok
 GWD.ERR = 0

LuaLibs/WMachiningLib.lua

@@ -1,5 +1,9 @@
 -- 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.
+-- 2023/06/07 Alla funzione AddMachining aggiunta la scrittura dell'info ISOUTLINE alle lavorazioni.
 
 -- Tabella per definizione modulo
 local WMachiningLib = {}
@@ -55,14 +59,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 +182,17 @@ function WMachiningLib.FindSurfacing( sType)
    end
 end
 
+-- incapsulo EgtAddMachining e trascrivo alcune informazioni utili nelle note dell'operazione
+---------------------------------------------------------------------
+function WMachiningLib.AddMachining( Proc, sName, sMachining)
+   local nMchId, sFinalName = EgtAddMachining( sName, sMachining)
+   if type(Proc) == 'table' then
+      local nPriority = EgtGetInfo( Proc.Id or GDB_ID.NULL, 'PRIORITY', 'i')
+      EgtSetInfo( nMchId or GDB_ID.NULL, 'PRIORITY', nPriority)
+      EgtSetInfo( nMchId or GDB_ID.NULL, 'ISOUTLINE', Proc.IsOutline)
+   end
+   return nMchId, sFinalName
+end
+
 -------------------------------------------------------------------------------------------------------------
 return WMachiningLib

LuaLibs/WProcessCut.lua

@@ -1,5 +1,6 @@
--- 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
+-- 2023/07/26 Angolo Z minimo ora gestito tramite costante da WallData CUT_VZ_MIN (default sempre -0.5).
 
 -- Tabella per definizione modulo
 local WPC = {}
@@ -8,6 +9,7 @@ local WPC = {}
 require( 'EgtBase')
 local WL = require( 'WallLib')
 local FreeContour = require( 'WProcessFreeContour')
+local LapJoint = require( 'WProcessLapJoint')
 
 EgtOutLog( ' WProcessCut started', 1)
 
@@ -29,8 +31,8 @@ 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)
-   if vtN:getZ() < - 0.5 then return false end
+   local vtN = EgtSurfTmFacetNormVersor( Proc.Id, 0, GDB_ID.ROOT)
+   if vtN:getZ() < ( WD.CUT_VZ_MIN or - 0.5) then return false end
    return true
 end
 
@@ -39,35 +41,40 @@ end
 -- return nFlip0, nFlip1
 function WPC.FlipClassify( Proc)
    -- verifico abbia una sola faccia
-   if Proc.Fct ~= 1 then return 0, 0 end 
+   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
-   elseif vtNZ < -0.5 then 
+   elseif vtNZ < ( WD.CUT_VZ_MIN or - 0.5) then
       nFlip0 = 0
    else
-      nFlip0 = 50 
-   end 
+      nFlip0 = 50
+   end
    
    if - vtNZ > - GEO.EPS_SMALL then
       nFlip1 = 100
-   elseif - vtNZ < -0.5 then 
+   elseif - vtNZ < ( WD.CUT_VZ_MIN or - 0.5) then
       nFlip1 = 0
    else
       nFlip1 = 50
-   end    
+   end
    
    --nFlip0 = EgtIf( vtN:getZ() < -0.5, 0, 100) 
    --nFlip1 = EgtIf( - vtN:getZ() < -0.5, 0, 100) 
-   return nFlip0, nFlip1 
+   return nFlip0, nFlip1
 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
 
 ---------------------------------------------------------------------

LuaLibs/WProcessDoubleCut.lua

@@ -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
 
 ---------------------------------------------------------------------

LuaLibs/WProcessDrill.lua

@@ -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, 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, sName, sDrilling)
       if not nMchId then
          local sErr = 'Error adding machining ' .. sName .. '-' .. sDrilling
          EgtOutLog( sErr)

LuaLibs/WProcessDtMortise.lua

@@ -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, 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, sNameF, sMilling)
       if not nMchFId then
          local sErr = 'Error adding machining ' .. sNameF .. '-' .. sMilling
          EgtOutLog( sErr)

LuaLibs/WProcessMark.lua

@@ -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, 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, sName, sMilling)
       if not nMchF2Id then
          local sErr = 'Error adding machining ' .. sName2 .. '-' .. sMilling
          EgtOutLog( sErr)

LuaLibs/WProcessMortise.lua

@@ -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, sName, sPocketing)
    if not nMchFId then
       local sErr = 'Error adding machining ' .. sName .. '-' .. sPocketing
       EgtOutLog( sErr)

LuaLibs/WProcessText.lua

@@ -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, sName, sMilling)
    if not nMchFId then
       local sErr = 'Error adding machining ' .. sName .. '-' .. sMilling
       EgtOutLog( sErr)

LuaLibs/WProcessVariant.lua

@@ -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, sName, sSurfFin)
    if not nMchFId then
       local sErr = 'Error adding machining ' .. sName .. '-' .. sSurfFin
       EgtOutLog( sErr)

LuaLibs/WallExec.lua

@@ -1,5 +1,9 @@
--- WallExec.lua by Egaltech s.r.l. 2022/05/12
+-- WallExec.lua by Egaltech s.r.l. 2023/07/04
 -- Libreria esecuzione lavorazioni per Pareti
+-- 2023/05/25 Aggiunto ordinamento in base a priorità da btl.
+-- 2023/06/07 Nel caso di outline con priorità aggiunta la rimozione degli sfridi nella lavorazione successiva.
+-- 2023/06/27 Aggiunte origini TN e BN.
+-- 2023/07/04 Se c'è funzione di macchina WD.GetOrigCorner si lascia scegliere posizione default a questa impostando 0 se non c'è 'REFPOS'.
 
 -- Tabella per definizione modulo
 local WallExec = {}
@@ -71,31 +75,37 @@ function WallExec.ProcessWalls( dRawL, dRawW, dRawH, vWall, bMachGroupOk, bNewPr
    local nCorner
    local sOrigCorner = WD.ORIG_CORNER or 'BR'
    if WD.GetOrigCorner then
-      sOrigCorner = WD.GetOrigCorner( EgtGetInfo( EgtGetFirstNameInGroup( GDB_ID.ROOT, 'BtlInfo') or GDB_ID.NULL, 'REFPOS', 'i') or 1)
+      sOrigCorner = WD.GetOrigCorner( EgtGetInfo( EgtGetFirstNameInGroup( GDB_ID.ROOT, 'BtlInfo') or GDB_ID.NULL, 'REFPOS', 'i') or 0)
    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))
+   elseif sOrigCorner == 'TN' then
+      nCorner = MCH_CR.TL
+      OrigOnTab = Point3d( WD.NEW_REF + abs( WD.DELTA_X or 0), b3Tab:getDimY() - abs( WD.DELTA_Y or 0), ( WD.DELTA_Z or 0))
+   elseif sOrigCorner == 'BN' then
+      nCorner = MCH_CR.BL
+      OrigOnTab = Point3d( WD.NEW_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()
    -- Impostazione eventuale allargamento area disponibile per grezzo
-   EgtSetTableAreaOffset( WD.TAB_EXTRA_XP or 0, WD.TAB_EXTRA_XM or 0, WD.TAB_EXTRA_YP or 0, WD.TAB_EXTRA_YM or 0) 
+   EgtSetTableAreaOffset( WD.TAB_EXTRA_XP or 0, WD.TAB_EXTRA_YP or 0, WD.TAB_EXTRA_XM or 0, WD.TAB_EXTRA_YM or 0) 
    -- Creazione del grezzo e suo posizionamento in macchina
    local nRaw = GDB_ID.NULL
    if nRawOutlineId and nRawOutlineId ~= GDB_ID.NULL then
@@ -179,7 +189,8 @@ function WallExec.CollectFeatures( PartId, b3Raw)
                Proc.CutId = nCutId
                Proc.TaskId = nTaskId
                Proc.Box = EgtGetBBoxGlob( ProcId, GDB_BB.STANDARD)
-               if Proc.Box and not Proc.Box:isEmpty() then 
+               Proc.IsOutline = ( Proc.Prc == 251 or Proc.Prc == 252)
+               if Proc.Box and not Proc.Box:isEmpty() then
                   table.insert( vProc, Proc)
                   -- se foro
                   if Drill.Identify( Proc) then
@@ -409,7 +420,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 +430,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 +547,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,33 +565,56 @@ 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
 
+-------------------------------------------------------------------------------------------------------------
+-- setto la rimozione sfridi dopo le lavorazioni di outline
+function InsertScrapRemoval( nPhase)
+   local nCurrentOperationId = EgtGetNextOperation( EgtGetPhaseDisposition( nPhase))
+   local nActiveMachiningId = EgtGetCurrMachining()
+   while nCurrentOperationId do
+      local bIsCurrentOperationOutline = ( EgtGetInfo( nCurrentOperationId or GDB_ID.NULL, 'ISOUTLINE', 'b' ) == true)
+      local bIsCurrentOperationWithPriority = ( ( EgtGetInfo( nCurrentOperationId or GDB_ID.NULL, 'PRIORITY', 'i' ) or 0) > 0)
+      local nNextOperationId = EgtGetNextOperation (nCurrentOperationId)
+      local bIsNextOperationOutline = ( EgtGetInfo( nNextOperationId or GDB_ID.NULL, 'ISOUTLINE', 'b' ) == true)
+      if bIsCurrentOperationOutline and bIsCurrentOperationWithPriority and nNextOperationId and not bIsNextOperationOutline then
+         EgtSetCurrMachining( nNextOperationId)
+         local sMachiningNotes = EgtGetMachiningParam( MCH_MP.USERNOTES)
+         sMachiningNotes = sMachiningNotes .. 'ScrapRemove=1;'
+         EgtSetMachiningParam( MCH_MP.USERNOTES, sMachiningNotes)
+      end
+      nCurrentOperationId = EgtGetNextOperation( nCurrentOperationId)
+   end
+   EgtSetCurrMachining( nActiveMachiningId or GDB_ID.NULL)
+end
+
 -------------------------------------------------------------------------------------------------------------
 function WallExec.ProcessFeatures()
    -- errori e stato
@@ -641,8 +676,44 @@ 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
+      -- ordinamento standard
       SortMachinings( nPhase, PrevMch)
+
       -- Aggiornamento finale di tutto
+      if nGetPriorityFromBtl > 0 then
+         InsertScrapRemoval( nPhase)
+      end
       EgtSetCurrPhase( 1)
       EgtApplyAllMachinings()
    -- altrimenti macchina travi

NestFlipAndRotate.lua

@@ -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

UpdateLog.txt

@@ -0,0 +1,54 @@
+           ==== Wall Update Log ====
+
+Versione 2.5i3 (21/09/2023)
+- Modif : per pulizia corner di FreeContour disabilitato metodo con tunnel ed esteso metodo con tre punti
+- Modif : in LapJoint aggiornata pulizia corner come FreeContour
+- Fixed : in FreeContour e Lapjoint, in MakeByMill, modificato SCC per correggere caso con lama su testa fresa.
+
+Versione 2.5i2 (20/09/2023)
+- Modif : in LapJoint con una sola faccia controllo lavorabilità ora come per FreeContour
+- Modif : in CleanCorner ora AuxDir (SCC) sempre Z+
+- Fixed : in FreeContour piccola correzione alla pulizia corner
+- Fixed : corretta impostazione allargamento aree disposizone grezzi su tavola.
+
+Versione 2.5i1 (12/09/2023)
+- Fixed : correzioni per pulizia corner in FreeContour.
+
+Versione 2.5h1 (01/08/2023)
+- Modif : in sideGroove migliorato il controllo che la testa non scenda sotto al livello del grezzo (ora considera anche il diametro minimo della testa e non interviene se la lavorazione è spostata a dopo il taglio outline).
+- Fixed : corretto bug in MachiningLib -> AddMachining che contempla il caso in cui Proc non sia una tabella
+
+Versione 2.5g3 (26/07/2023)
+- Modif : Nei tagli di lama angolo Z minimo ora gestito tramite costante da WallData CUT_VZ_MIN (default -0.5)
+- Modif : Nelle fresature di ripresa angoli dei contorni migliorata la scelta della fresa secondaria in caso non sia disponibile una fresa di lunghezza sufficiente.
+
+Versione 2.5g2 (25/07/2023)
+- Added : aggiunte passate laterali per SideGroove, se specificato SIDESTEP nelle note utensile.
+
+Versione 2.5g1 (04/07/2023)
+- Modif : per posizione default del grezzo ora si assegna 0 per lasciare il compito a WD.GetOrigCorner di macchina.
+
+Versione 2.5f3 (30/06/2023)
+- Modif : in LapJoint aggiunta lettura di eventuali note di lavorazione esistenti.
+
+Versione 2.5f2 (28/06/2023)
+- Added : aggiunte due nuove origini (TN e BN che come X usano WD.NEW_REF), in totale ora sono 8.
+
+Versione 2.5f1 (13/06/2023)
+- Added : aggiunta gestione priorità da btl
+- Added : aggiunta gestione lavorazione per lamatura speciale affondata con Tool_ID specifico.
+
+Versione 2.5e1 (04/05/2023)
+- Modif : modifiche per gestione traduzione messaggi
+
+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.

Version.lua

@@ -0,0 +1,6 @@
+-- Version.lua by Egalware s.r.l. 2023/09/18
+-- Gestione della versione di Wall
+
+NAME = 'Wall'
+VERSION = '2.5i3'
+MIN_EXE = '2.5b3'