- in mlde modificata posizione home sega a catena

- Corretta direzione motosega

.gitignore

@@ -1,19 +1,17 @@
 /Tools
 /Machinings
 /SetUp
+/Beam/Ts3Data.bak
 /Beam/CutData.lua
 /Beam/DrillData.lua
 /Beam/MillingData.lua
 /Beam/PocketingData.lua
 /Beam/SawingData.lua
 /Beam/Ts3Data.lua
+/Wall/Ts3Data.bak
 /Wall/CutData.lua
 /Wall/DrillData.lua
 /Wall/MillingData.lua
 /Wall/PocketingData.lua
 /Wall/SawingData.lua
 /Wall/Ts3Data.lua
-
-# ignoro file bak nella cartella principale e nelle sottocartelle al primo livello
-*.bak
-/*/*.bak

.gitlab-ci.yml

@@ -0,0 +1,318 @@
+variables:
+ VERS_MAIN: '1.0'
+ MACH_NAME: ''
+ MACH_NAME_TEST: ''
+ MANUFACTURER: ''
+ NEW_REL: ''
+ NET_SHARE_X: '\\10.74.82.201\EgwTech'
+ NET_SHARE_Z: '\\10.74.82.201\Artifacts'
+ NET_SHARE_S: '\\10.74.82.201\Scambio'
+ NET_SHARE_R: '\\10.74.82.201\EgwTech'
+ NET_SHARE_H: '\\10.74.82.252\team drives'
+ NET_USERQ: 'steamw\egalware'
+ NET_USER_SERVICES: 'steamw\services'
+ MACH_VERS: '0.0.0.0'
+ TEMP_PATH: 'C:\MachinesDeploy'
+ MACHINES_PATH_R: 'R:\EgtData\Machines_GIT'
+ DEST_MACHINES_PATH_H: 'H:'
+ SRC_PATH: ''
+ BASE_PATH: ''
+ TEST_PATH: ''
+ URL_VERSIONS_LOG: "https://liman.egalware.com/ELM.API/api/release/save"
+ MACH_VERS_NUM: '0.0.0.0'
+ CRITICAL_STRING: "#critical#"
+ TOOLS_MACHINE_PATH: ""
+
+
+#Note compilazione LUA:
+# lua54 -o bin\$FileName -s $FileName: -o = output, -s = NON include i debug symbols
+
+# helper copia script verso cartella di rete S:\ delle cartelle bin
+.ReplicaS: &ReplicaS
+   - |
+      net use S: /delete
+      SLEEP 2
+      net use S: $env:NET_SHARE_S /u:$env:NET_USERQ $SDRIVE_PASSWD
+      ROBOCOPY /MIR $env:BASE_PATH S:\LucaM\MachinesDeploy\$env:MACH_NAME\$env:MACH_VERS\ /XD "bin" /XD "$env:MACH_NAME_TEST"
+      SLEEP 2
+      net use S: /delete
+
+# helper copia script verso cartella di rete R:\
+.ReplicaR: &ReplicaR
+   - |
+      net use R: /delete
+      SLEEP 2
+      net use R: $env:NET_SHARE_R /u:$env:NET_USERQ $ZDRIVE_PASSWD
+      echo "-----------------------"
+      echo "   Copia macchina su R"
+      echo "-----------------------"
+      $customerPathR = $env:MACHINES_PATH_R + "\" + $env:MANUFACTURER
+      ROBOCOPY /MIR "$env:SRC_PATH" "$customerPathR\$env:MACH_NAME\" /XD "bin"
+      ROBOCOPY "$env:TEST_PATH" "$customerPathR\_TestMachines\$env:MACH_NAME_TEST\" /E /XD "bin"
+      ROBOCOPY /MIR "$env:BASE_PATH" "$customerPathR\_Deploy\$env:MACH_NAME\$env:MACH_VERS\" /XD "bin" /XD "$env:MACH_NAME_TEST"
+      SLEEP 2
+      net use R: /delete
+
+# helper copia script verso drive condiviso
+.ReplicaStor01: &ReplicaStor01
+   - |
+      net use H: /delete
+      SLEEP 2
+      net use H: $env:NET_SHARE_H /u:$env:NET_USER_SERVICES $SRVCS_PASSWD
+      echo "-----------------------"
+      echo "   Copia macchina su stor01"
+      echo "-----------------------"
+      SLEEP 2
+      $customerPathH = $env:DEST_MACHINES_PATH_H + "\" + $env:MANUFACTURER + "\test"
+      $destinationPath = "$customerPathH\$env:MACH_NAME" + "\"
+      ROBOCOPY "$env:BASE_PATH" "$destinationPath\" *.zip
+      SLEEP 2
+      net use H: /delete
+
+# helper copia script verso cartella di rete R:\ per develop
+.ReplicaR_DEV: &ReplicaR_DEV
+   - |
+      net use R: /delete
+      SLEEP 2
+      net use R: $env:NET_SHARE_R /u:$env:NET_USERQ $ZDRIVE_PASSWD
+      echo "-----------------------"
+      echo "   Copia macchina su R - DEV"
+      echo "-----------------------"
+      $customerPathR = $env:MACHINES_PATH_R + "\" + $env:MANUFACTURER
+      ROBOCOPY /MIR "$env:BASE_PATH" "$customerPathR\_Deploy\$env:MACH_NAME\_DEV\$env:MACH_VERS\" /XD "bin" /XD "$env:MACH_NAME_TEST"
+      SLEEP 2
+      net use R: /delete
+
+#helper copia sorgenti da R a percorso temporaneo
+.CreateBaseFolder: &CreateBaseFolder
+   - |   
+      net use R: /delete
+      SLEEP 2
+      net use R: $env:NET_SHARE_R /u:$env:NET_USERQ $ZDRIVE_PASSWD
+      echo "-----------------------"
+      echo "   Recupero file non git da R e copia su macchina virtuale"
+      echo "-----------------------"
+      # test se la cartella con gli utensili esiste per questa macchina
+      if (!(Test-Path -Path $env:TOOLS_MACHINE_PATH)) {
+      echo "-----------------------"
+      echo "CANNOT FIND TOOLS FOR THIS MACHINE!!"
+      echo "-----------------------"
+      Exit 1}
+      ROBOCOPY "$env:TOOLS_MACHINE_PATH" "$env:SRC_PATH" /E /XF "*.bat" /XF "*.yml" /XF ".gitignore" /XD ".git" /XF "UpdateLog.txt" /XD ".vscode"
+      ROBOCOPY "$env:TOOLS_MACHINE_PATH" "$env:TEST_PATH" /E /XF "*.bat" /XF "*.yml" /XF ".gitignore" /XD ".git" /XF "UpdateLog.txt" /XD ".vscode"
+      ROBOCOPY "$env:TOOLS_MACHINE_PATH" "$env:SRC_PATH\bin\$env:MACH_NAME\" /E /XF "*.bat" /XF "*.yml" /XF ".gitignore" /XD ".git" /XF "UpdateLog.txt" /XD ".vscode"
+      SLEEP 2
+      net use R: /delete
+
+# helper compilazione LUA a 32 e 64 bit
+.LuaCompile: &LuaCompile
+  - |
+     Set-Alias lua54  C:\Tools\Lua32\luac54
+     echo "-----------------------"
+     echo "   Copia file su macchina virtuale"
+     echo "-----------------------"
+     ROBOCOPY . "$env:SRC_PATH" /E /XF "*.bat" /XF "*.yml" /XF ".gitignore" /XD ".git" /XF "UpdateLog.txt" /XD ".vscode"
+     ROBOCOPY . "$env:TEST_PATH" /E /XF "*.bat" /XF "*.yml" /XF ".gitignore" /XD ".git" /XF "UpdateLog.txt" /XD ".vscode"
+     Rename-Item -Path "$env:TEST_PATH\$env:MACH_NAME.mlde" -NewName "$env:MACH_NAME_TEST.mlde"
+     Rename-Item -Path "$env:TEST_PATH\$env:MACH_NAME.ini" -NewName "$env:MACH_NAME_TEST.ini"
+     ROBOCOPY . "$env:SRC_PATH\bin\$env:MACH_NAME\" /E /XF "*.bat" /XF "*.yml" /XF ".gitignore" /XD ".git" /XF "UpdateLog.txt" /XD ".vscode"
+     echo "-----------------------"
+     echo "   Compilazione file *.lua 32/64bit"
+     echo "-----------------------"
+     $FileList = Get-ChildItem * -Include( "*.mlpe", "*.mlse")
+     ForEach ($File in $FileList) {
+       $FileName = Split-Path $File -leaf
+       lua54 -o $env:SRC_PATH\bin\$env:MACH_NAME\$FileName -s $FileName
+       echo "lua54 -o bin\$FileName -s $FileName"
+     }
+
+# helper recupero nome macchina e costruttore
+.machName-fix: &machName-fix
+   - |
+      echo "-----------------------"
+      echo "   Recupero nome macchina e costruttore"
+      echo "-----------------------"
+      $fileName = dir *.mlde
+      $env:MACH_NAME = $fileName.BaseName
+      $env:MACH_NAME_TEST = $env:MACH_NAME + ".TEST"
+      $comp = $fileName.BaseName -split "-"
+      $env:MANUFACTURER = $comp[0]
+      Write-Output $env:MANUFACTURER 
+
+# helper calcolo versione
+.version-fix: &version-fix
+   - |
+      echo "-----------------------"
+      echo "   Calcolo versione"
+      echo "-----------------------"
+
+      # calcolo versione formato stringa
+      $fPath = "$env:MACH_NAME.mlde";
+      $vLine = Select-String -path $fPath -Pattern '^PP_VER';
+      $comp = $vLine -split "=";
+      $env:MACH_VERS = $comp[1].Replace("'","").Trim()
+      # display versione formato stringa
+      Write-Output $env:MACH_VERS
+
+      # calcolo versione formato numerico
+      $fPath = "$env:MACH_NAME.mlde";
+      $vLine = Select-String -path $fPath -Pattern '^PP_NVER';
+      $comp = $vLine -split "=";
+      $env:MACH_VERS_NUM = $comp[1].Replace("'","").Trim()
+      # display versione formato numerico
+      Write-Output $env:MACH_VERS_NUM
+
+# helper calcolo versione se develop
+.version-fix_DEV: &version-fix_DEV
+   - |
+      echo "-----------------------"
+      echo "   Calcolo versione - DEV"
+      echo "-----------------------"
+      $commitAuthor = $CI_COMMIT_AUTHOR -split " "
+      $commitAuthor = $commitAuthor[0].Trim()
+      $env:MACH_VERS = $commitAuthor
+      # display versione
+      Write-Output $env:MACH_VERS
+
+# helper creazione folders 
+.folder-fix: &folder-fix
+   - |
+      echo "-----------------------"
+      echo "   Creazione cartelle su macchina virtuale"
+      echo "-----------------------"
+      $env:TOOLS_MACHINE_PATH = "$env:MACHINES_PATH_R\$env:MANUFACTURER\_DefaultMachineSetup\$env:MACH_NAME"
+      Write-Output  $env:TOOLS_MACHINE_PATH
+      $env:SRC_PATH = "$env:TEMP_PATH\$env:MACH_NAME\$env:MACH_VERS\$env:MACH_NAME";
+      $env:BASE_PATH = "$env:TEMP_PATH\$env:MACH_NAME\$env:MACH_VERS";
+      $env:TEST_PATH = "$env:TEMP_PATH\$env:MACH_NAME\$env:MACH_VERS\$env:MACH_NAME_TEST";
+      Write-Output  $env:BASE_PATH;     
+      if (Test-Path $env:BASE_PATH) { Remove-Item -Path "$env:BASE_PATH\*" -R -Force };
+      Write-Output  $env:TEST_PATH;
+
+# helper compressione e pulizia folders 
+.ZipClean: &ZipClean
+   - |
+      "  Compressione file su macchina virtuale"
+      $7zipPath = $env:ProgramFiles+"\7-Zip\7z.exe";
+      if (-not (Test-Path -Path $7zipPath -PathType Leaf)) {
+          throw "7 zip file '$7zipPath' not found"
+      }
+      Set-Alias 7zip $7zipPath
+      $Target = "$env:BASE_PATH\$env:MACH_NAME.zip"
+      cd "$env:SRC_PATH\bin\"
+      $Source = "*"
+      7zip a -tzip $Target $Source  
+      Write-Output "called ZIP $Source --> $Target"
+
+# helper invio notifica a log versioni online (LiMan)
+.SendToVersionsLog: &SendToVersionsLog
+   - |
+      echo "-----------------------"
+      echo "   Invio versione a log online"
+      echo "-----------------------"
+      $tags = ""
+      $date = ""
+      # se critico scrive tag
+      if ( $CI_COMMIT_MESSAGE | Select-String -Pattern $env:CRITICAL_STRING) {
+         $tags = "CRITICAL"
+         $date = (Get-Date).AddDays(1).toString("yyyy-MM-ddTHH:mm:ss.fffZ")
+      }
+      else
+      {
+         $date = (Get-Date).AddDays(3).toString("yyyy-MM-ddTHH:mm:ss.fffZ")
+      }
+      $body =
+      @{
+            codInst = "EgalWare"
+            codApp = $env:MACH_NAME
+            uplAppId = "UpdateManager"
+            masterKey = $LiMan_Key
+            tipo = "Machine"
+            versNum = $env:MACH_VERS_NUM
+            versText = $env:MACH_VERS
+            releaseDate = $date
+            relTags = $tags
+      }
+      $jsonBody = ConvertTo-Json -InputObject $body
+      echo $jsonBody
+      Invoke-WebRequest -Method Post -URI $env:URL_VERSIONS_LOG -ContentType "application/json" -Body $jsonBody -UseBasicParsing
+
+
+# helper esecuzione test 
+.RunTest: &RunTest
+   - |
+      Write-Output "Test done!"      
+
+
+stages:
+ - build
+#  - test
+#  - deploy
+
+LuaCompile:build:
+ stage: build
+ only:
+   - main
+   - master
+ tags:
+   - win
+ before_script:
+   - *machName-fix
+   - *version-fix
+   - *folder-fix
+ script:
+   - *CreateBaseFolder    
+   - *LuaCompile
+   - *ZipClean
+   - *ReplicaR
+   - *ReplicaStor01
+   - *SendToVersionsLog
+
+LuaCompileDev:build:
+ stage: build
+ only:
+   - develop
+ tags:
+   - win
+ before_script:
+   - *machName-fix
+   - *version-fix_DEV
+   - *folder-fix
+ script:
+   - *CreateBaseFolder    
+   - *LuaCompile
+   - *ZipClean
+   - *ReplicaR_DEV
+
+# LuaCompile:test:
+#  stage: test
+#  needs: ["LuaCompile:build"]
+#  only:
+#    - main
+#    - master
+#    - develop
+#  tags:
+#    - win
+#  before_script:
+#    - *version-fix
+#    - *folder-fix
+#  script:    
+#    - *LuaCompile
+#    - *RunTest
+   
+# LuaCompile:deploy:
+#  stage: deploy
+#  needs: ["LuaCompile:test"]
+#  only:
+#    - main
+#    - master
+#  tags:
+#    - win
+#  before_script:
+#    - *version-fix
+#    - *folder-fix
+#  script:    
+#    - *LuaCompile
+#    - *ZipClean
+#    - *ReplicaR
+

Essetre-90580012.mlde

@@ -1,4 +1,4 @@
--- Descrizione macchina Essetre-90580012 by EgalTech s.r.l.   2023/02/10
+-- Descrizione macchina Essetre-90580012 by EgalTech s.r.l.   2024/09/23
 -- Macchina Progress (parte Wall).
 -- 2023/09/01 DS ver 2.5i1 Primo rilascio partendo da 90580017.
 -- 2023/09/05 DS ver 2.5i2 Sistemazioni varie. Sottratto circa 30 da G1xx.
@@ -11,12 +11,16 @@
 --                         Tavole azzerate a X negativo (per Essetre Y positivo)
 -- 2024/02/10 DS ver 2.6b2 Sistemazione estremi assi Y.
 --                         Aumentato interasse tra le tavole quando accoppiate
-
+-- 2024/02/15 AV ver 2.6b3 Cambiato id motosega EU101->104 (Prima era EU41)
+--                         Corretta posizione parcheggio in base al nuovo lato di carico
+-- 2024/10/04 AV ver 2.6j1 Modificato controllo collisione tavola. Ora permessi 10mm
+-- 2024/11/28 LM ver 2.6k1 In WallData aggiunto parametri MIN_Z_SAW e CUT_VZ_MIN
 
 require( 'EmtGenerator')
 EgtEnableDebug( false)
 
-PP_VER = '2.6b2'
+PP_VER = '2.7h1'
+PP_NVER = '2.7.8.1'
 
 -- Parametri macchina
 NumericalControl = 'NUM'                                      -- NUM o TPA
@@ -36,7 +40,7 @@ MaxC1 = 275.0
 MillOffs = 170.0
 ChSawLen = 91.0
 ParkChSawX1 = ( MinX1 + MaxX1) / 2
-ParkChSawZ1 = -250
+ParkChSawZ1 = -400 -- OLD: -250
 ParkChSawC1 = 90
 MinX2 = -4750.0
 MaxX2 = 0.0
@@ -66,7 +70,7 @@ CoeffVM = 0.75
 
 -- Aggiornamento con dati da TechnoEssetre7
 local sTs3Data = EgtGetStringFromIni( 'Wall', 'DATA_DIR', "C:\\TechnoEssetre7\\EgtData", EgtGetIniFile()).."\\Essetre-90580012.data"
-local sData = EgtGetSourceDir().."\\Wall\\Ts3Data.lua"
+local sData = EgtGetCurrMachineDir().."\\Wall\\Ts3Data.lua"
 if EgtExistsFile( sTs3Data) then
    EgtCopyFile( sTs3Data, sData)
    local sTs3DataOld = sTs3Data..'.old'
@@ -229,6 +233,7 @@ EmtHead {
       OthColl = {'B1/SOLID', 'C1/SOLID'},
       Geo = 'H1_HEAD/GEO'}
 -- Sega a catena
+-- attenzione: gestita solo la home per la posizione 104, unica abilitata. Se si aggiungono altre posizioni, la home sarà da modificare nella OnSetHead
 EmtAxis {
       Name = 'A1',
       Parent = 'B1',
@@ -237,7 +242,7 @@ EmtAxis {
       Dir = Z_AX(),
       Pos = Point3d( 0, 0, 0),
       Stroke = { -90, 180},
-      Home = 0,
+      Home = 90,
       Geo = 'A1_AXIS/GEO'}
 local H3Id = EmtHead {
       Name = 'H3',
@@ -245,7 +250,7 @@ local H3Id = EmtHead {
       HSet = 'H1',
       Type = MCH_HT.STD,
       Pos = Point3d( 0, 0, -ChSawLen),
-      TDir = -Y_AX(),
+      TDir = X_AX(),
       ADir = Z_AX(),
       Rot1W = 0.1,
       SolCh = MCH_SCC.ADIR_NEAR,

Essetre-WALL.NUM.mlpe

@@ -181,6 +181,7 @@ function OnMachiningStart()
    --EMT.MCHLIBNAME = EgtGetMachiningParam( MCH_MP.NAME)
    EMT.MCHNAME = EgtGetOperationName( EMT.MCHID)
    EMT.MCHTYPE = EgtGetMachiningParam(MCH_MP.TYPE)
+   EMT.MCHUSERNOTES = EgtGetMachiningParam( MCH_MP.USERNOTES)
    -- non ancora iniziata la lavorazione
    EMT.MCHFIRST = true
    -- primo posizionamento sempre in globale
@@ -219,10 +220,13 @@ function OnRapid()
          -- se prima lavorazione sui fianchi con sega a catena
          if EMT.CSAWFIRST and string.sub( EMT.MCHNAME, 1, 5) == 'Csaw_' then
             EMT.CSAWFIRST = false
-            -- pausa per rimozione sfridi
-            local b3Raw = EgtGetRawPartBBox( EMT.RAWID)
-            local ParkY = min( -( b3Raw:getMin():getX() - 2000), -MinY)
-            EmtOutput( 'G104 Y' .. EmtLenToString( ParkY, 3) .. ' ET1' .. GetEF())
+            -- eventuale pausa per rimozione sfridi
+            if EMT.SCRAPFIRST then
+               EMT.SCRAPFIRST = false
+               local b3Raw = EgtGetRawPartBBox( EMT.RAWID)
+               local ParkY = max( -( MaxY + b3Raw:getMin():getX() + b3Raw:getDimX() + 3000), -MaxY)
+               EmtOutput( 'G104 Y' .. EmtLenToString( ParkY, 3) .. ' ET1' .. GetEF())
+            end
             -- pre-posizionamento
             EmitCount()
             EmtResetPrev()
@@ -240,11 +244,13 @@ function OnRapid()
          end
       -- altrimenti verifico se necessaria pausa
       else
-         if EMT.SCRAPFIRST and EgtExistsInfo( EMT.MCHID, 'MOVE_AFTER') then
-            EMT.SCRAPFIRST = false
+         local bSystemSR = ( EMT.SCRAPFIRST and EgtExistsInfo( EMT.MCHID, 'MOVE_AFTER'))
+         local bUserSR = ( EgtGetValInNotes( EMT.MCHUSERNOTES, 'ScrapRemove', 'i') == 1)
+         if bSystemSR or bUserSR then
+            if bSystemSR then EMT.SCRAPFIRST = false end
             -- pausa per rimozione sfridi
             local b3Raw = EgtGetRawPartBBox( EMT.RAWID)
-            local ParkY = min( -( b3Raw:getMin():getX() - 2000), -MinY)
+            local ParkY = max( -( MaxY + b3Raw:getMin():getX() + b3Raw:getDimX() + 3000), -MaxY)
             EmtOutput( 'G104 Y' .. EmtLenToString( ParkY, 3) .. ' ET1' .. GetEF())
          end
       end
@@ -555,10 +561,10 @@ function GetEU()
    elseif EMT.HEAD == 'H2' then
       sEU = ' EU0'
    elseif EMT.HEAD == 'H3' then
-      if abs( EMT.R3 - 0) < 0.1 then
-         sEU = ' EU41'
-      elseif abs( EMT.R3 - 90) < 0.1 then
-         sEU = ' EU40'
+      --if abs( EMT.R3 - 0) < 0.1 then
+      --   sEU = ' EU101'
+      if abs( EMT.R3 - 90) < 0.1 then
+         sEU = ' EU104'
       else
          EmtSetLastError( 1210, 'Chain saw orientation not allowed')
       end

Essetre-WALL.mlpe

@@ -9,9 +9,9 @@ EgtEnableDebug( false)
 ---------------------------------------------------------------------
 -- *** GENERATION ***
 ---------------------------------------------------------------------
-local sBaseDir = EgtGetSourceDir()
+local sBaseDir = EgtGetCurrMachineDir()
 if NumericalControl == 'NUM' then
-   dofile( sBaseDir .. 'Essetre-WALL.NUM.mlpe')
+   dofile( sBaseDir .. '\\Essetre-WALL.NUM.mlpe')
 elseif NumericalControl == 'TPA' then
    error( 'Numerical Control error : TPA not yet managed')
    --dofile( sBaseDir .. 'Essetre-WALL.TPA.mlpe')
@@ -323,6 +323,7 @@ function OnSimulMachiningStart()
    EMT.MCHNAME = EgtGetOperationName( EMT.MCHID)
    EMT.MCHTYPE = EgtGetMachiningParam( MCH_MP.TYPE)
    local sNotes = EgtGetMachiningParam( MCH_MP.USERNOTES)
+   EMT.MCHUSERNOTES = EgtGetMachiningParam( MCH_MP.USERNOTES)
    EMT.VMRS = false
    -- recupero CUTID e TASKID della feature lavorata
    local vId = EgtGetMachiningGeometry()
@@ -335,15 +336,15 @@ function OnSimulMachiningStart()
       EMT.TASKID = 0
    end
    -- eventuale pausa per rimozione sfridi
-   if EMT.SCRAPFIRST then
-      if ( EMT.HEAD == 'H3' and string.sub( EMT.MCHNAME, 1, 5) == 'Csaw_') or EgtExistsInfo( EMT.MCHID, 'MOVE_AFTER') then
-         EMT.SCRAPFIRST = false
-         EgtOutText( 'Pause for Scrap Remove')
-         ParkForScrapRemove()
-         ExecScrapRemove()
-         EgtPause( 500)
-         EgtOutText( '')
-      end
+   local bSystemSR = ( EMT.SCRAPFIRST and (( EMT.HEAD == 'H3' and string.sub( EMT.MCHNAME, 1, 5) == 'Csaw_') or EgtExistsInfo( EMT.MCHID, 'MOVE_AFTER')))
+   local bUserSR = ( EgtGetValInNotes( EMT.MCHUSERNOTES, 'ScrapRemove', 'i') == 1)
+   if bSystemSR or bUserSR then
+      if bSystemSR then EMT.SCRAPFIRST = false end
+      EgtOutText( 'Pause for Scrap Remove')
+      ParkForScrapRemove()
+      ExecScrapRemove()
+      EgtPause( 500)
+      EgtOutText( '')
    end
    -- non ancora iniziata la lavorazione
    EMT.MCHFIRST = true
@@ -452,7 +453,7 @@ end
 ---------------------------------------------------------------------
 function ParkForScrapRemove()
    local b3Raw = EgtGetRawPartBBox( EMT.RAWID)
-   local ParkY = min( -( b3Raw:getMin():getX() - 2000), -MinY)
+   local ParkY = min( ( MaxY + b3Raw:getMin():getX() + b3Raw:getDimX() + 3000), MaxY)
    SimulMoveAxis( 'Z1', EgtGetAxisHomePos( 'Z1'), MCH_SIM_STEP.RAPID)
    if EMT.TAB2 then
       SimulMoveAxes( 'Y', ParkY, MCH_SIM_STEP.RAPID, 'Y2', ParkY - DimTabX - OffsetTabs, MCH_SIM_STEP.RAPID)
@@ -463,76 +464,181 @@ end
 
 ---------------------------------------------------------------------
 function ExecScrapRemove()
-   if EMT.VMILL then
-      local nPart = EgtVolZmapPartCount( EMT.VMILL)
-      if nPart > 1 then
-         -- recupero i box dei pezzi
-         local vPrtBox = {}
-         local nPartId = EgtGetFirstPartInRawPart( EMT.RAWID)
-         while nPartId do
-            local b3Part = EgtGetBBoxGlob( EgtGetFirstNameInGroup( nPartId, 'Box') or GDB_ID.NULL, GDB_BB.STANDARD)
-            table.insert( vPrtBox, b3Part)
-            nPartId = EgtGetNextPartInRawPart( nPartId)
+   -- Se non c'è virtual milling attivo, esco
+   if not EMT.VMILL then return end
+   -- Se non ci sono almeno due parti nel virtual milling, esco
+   local nVmPart = EgtVolZmapPartCount( EMT.VMILL)
+   if nVmPart < 2 then return end
+   -- Recupero box e area dei pezzi
+   local vPart = {}
+   local nPartId = EgtGetFirstPartInRawPart( EMT.RAWID)
+   while nPartId do
+      -- box e area
+      local b3Part = EgtGetBBoxGlob( EgtGetFirstNameInGroup( nPartId, 'Box') or GDB_ID.NULL, GDB_BB.STANDARD)
+      local dPartArea = b3Part:getDimX() * b3Part:getDimY()
+      local nOlEntId = EgtGetFirstInGroup( EgtGetFirstNameInGroup( nPartId, 'Outline') or GDB_ID.NULL)
+      while nOlEntId do
+         if EgtGetType( nOlEntId) == GDB_TY.SRF_FRGN and EgtSurfFrNormVersor( nOlEntId, GDB_ID.ROOT):getZ() > 0.8 then
+            dPartArea = EgtSurfArea( nOlEntId)
+            break
          end
-         -- tengo solo le parti del Vmill che contengono almeno un box di un pezzo
-         for i = nPart, 1, -1 do
-            -- recupero il box della parte
-            local b3VmPart = EgtVolZmapGetPartBBoxGlob( EMT.VMILL, i - 1, GDB_BB.STANDARD)
-            -- lo ingrandisco per sicurezza
-            b3VmPart:expand( 100)
-            -- verifiche per parte da eliminare
-            local bToRemove = true
-            -- se box abbastanza grande, allora da verificare
-            local dVol = b3VmPart:getDimX() * b3VmPart:getDimY() * b3VmPart:getDimZ()
-            if dVol > 1e6 then
-               for j = 1, #vPrtBox do
-                  local b3Part = vPrtBox[j]
-                  if EnclosesXY( b3VmPart, b3Part) then
-                     bToRemove = false
+         nOlEntId = EgtGetNext( nOlEntId)
+      end
+      -- box espanso
+      local b3PartExp = BBox3d( b3Part)
+      b3PartExp:Add( b3PartExp:getMin() - Vector3d( 10, 10, 0))
+      b3PartExp:Add( b3PartExp:getMax() + Vector3d( 10, 10, 0))
+      -- salvo i dati
+      table.insert( vPart, { Box = b3Part, BoxExp = b3PartExp, Area = dPartArea, Outline = nOlEntId})
+      -- passo al successivo
+      nPartId = EgtGetNextPartInRawPart( nPartId)
+   end
+   -- Recupero box e area delle parti di Vmill
+   local vVmPart = {}
+   for i = 1, nVmPart do
+      -- recupero il box e calcolo l'area della parte come Vmill
+      local b3VmPart = EgtVolZmapGetPartBBoxGlob( EMT.VMILL, i - 1, GDB_BB.STANDARD)
+      local dVmPartArea = EgtVolZmapPartVolume( EMT.VMILL, i - 1) / b3VmPart:getDimZ()
+      -- box espanso
+      local b3VmPartExp = BBox3d( b3VmPart)
+      b3VmPartExp:Add( b3VmPart:getMin() - Vector3d( 100, 100, 0))
+      b3VmPartExp:Add( b3VmPart:getMax() + Vector3d( 100, 100, 0))
+      -- salvo i dati
+      table.insert( vVmPart, { Box = b3VmPart, BoxExp = b3VmPartExp, Area = dVmPartArea})
+   end
+
+   -- se presente squadratura, tengo tutti i pezzi all'interno
+   local nRawId = EgtGetFirstRawPart()
+   local SquaringEntities = {}
+   SquaringEntities = EgtGetNameInGroup( nRawId, 'SquaringGeometry')
+   local b3SquaringBox = nil
+   if SquaringEntities then
+      for i = 1, #SquaringEntities do
+         if i == 1 then
+            b3SquaringBox = EgtGetBBoxGlob( SquaringEntities[i], GDB_BB.STANDARD)
+         else
+            if b3SquaringBox then
+               b3SquaringBox:Add( EgtGetBBoxGlob( SquaringEntities[i], GDB_BB.STANDARD))
+            end
+         end
+      end
+      if b3SquaringBox then
+         b3SquaringBox:expand( 50)
+      end
+   end
+
+   -- Tengo solo le parti del Vmill che contengono almeno un box di un pezzo o che interferiscono e sono abbastanza grandi
+   local nValidCnt = 0
+   for i = #vVmPart, 1, -1 do
+      -- verifiche per parte da eliminare
+      local bToRemove = true
+      -- se area abbastanza grande, allora da verificare
+      if vVmPart[i].Area > 1e4 then
+         -- se presente squadratura, verifico che il VMILL sia all'interno del BOX squadratura
+         if not b3SquaringBox or EnclosesXY( b3SquaringBox, vVmPart[i].Box) then
+            -- verifico se sono sicuramente valide (i due box si equivalgono entro la tolleranza)
+            for j = 1, #vPart do
+               if ( vPart[j].Outline  and  vVmPart[i].Area > 0.95 * vPart[j].Area  and  vVmPart[i].Area < 1.05 * vPart[j].Area) or
+                  ( EnclosesXY( vVmPart[i].BoxExp, vPart[j].Box) and EnclosesXY( vPart[j].BoxExp, vVmPart[i].Box)) then
+                  bToRemove = false
+                  vVmPart[i].Part = j
+                  nValidCnt = nValidCnt + 1
+                  break
+               end
+            end
+            -- verifico se sono molto probabilmente valide
+            for j = 1, #vPart do
+               if bToRemove and ( OverlapsXY( vVmPart[i].Box, vPart[j].Box) and vVmPart[i].Area > 0.25 * vPart[j].Area) then
+                  bToRemove = false
+                  break
+               end
+            end
+         end
+      end
+      -- se richiesta eliminazione, la eseguo
+      if bToRemove then
+         EgtRemoveVolZmapPart( EMT.VMILL, i - 1)
+         table.remove( vVmPart, i)
+      end
+   end
+   -- Se il numero delle parti sicuramente valide uguaglia il numero dei pezzi, elimino le altre ed ho finito
+   if nValidCnt == #vPart then
+      for i = #vVmPart, 1, -1 do
+         if not vVmPart[i].Part then
+            EgtRemoveVolZmapPart( EMT.VMILL, i - 1)
+            table.remove( vVmPart, i)
+         end
+      end
+      return
+   end
+   -- Calcolo punti interni alle parti di Vmill non già dichiarate valide
+   for i = 1, #vVmPart do
+      if not vVmPart[i].Part then
+         local vtDir = VectorFromRotated( X_AX(), Z_AX(), 45) 
+         local ptP = vVmPart[i].Box:getCenter() - vtDir * ( vVmPart[i].Box:getRadius() + 10)
+         local bOk, vIntType, vIntDist = EgtLineVolZmapInters( ptP, vtDir, EMT.VMILL, GDB_RT.GLOB)
+         if bOk then
+            for j = 1, #vIntType do
+               -- se la corrente entra ed esiste la successiva che esce
+               if vIntType[j] == GDB_SLT.IN and j + 1 <= #vIntType and vIntType[j + 1] == GDB_SLT.OUT then
+                  local ptC = ptP + vtDir * (( vIntDist[j] + vIntDist[j + 1]) / 2)
+                  local nPart = EgtVolZmapGetPartMinDist( EMT.VMILL, ptC, GDB_RT.GLOB)
+                  if nPart == i - 1 then
+                     if not vVmPart[i].Cen then
+                        vVmPart[i].Cen = ptC
+                     elseif not vVmPart[i].Cen2 then
+                        vVmPart[i].Cen2 = ptC
+                     else
+                        vVmPart[i].Cen3 = ptC
+                        break
+                     end
+                  end
+               end
+            end
+         end
+      end
+   end
+   -- Verifico le parti di Vmill non già dichiarate valide
+   for i = #vVmPart, 1, -1 do
+      if not vVmPart[i].Part then
+         local bToRemove = true
+         if vVmPart[i].Cen then
+            for j = 1, #vPart do
+               if EnclosesPointXY( vPart[j].Box, vVmPart[i].Cen) then
+                  bToRemove = false
+                  break
+               elseif vVmPart[i].Cen2 and EnclosesPointXY( vPart[j].Box, vVmPart[i].Cen2) then
+                  bToRemove = false
+                  break
+               elseif vVmPart[i].Cen3 and EnclosesPointXY( vPart[j].Box, vVmPart[i].Cen3) then
+                  bToRemove = false
+                  break
+               end
+               -- controllo per gestire squadratura inserita manualmente da operatore
+               -- verifico se il box del part è completamente incluso nel box del VM, allora non posso cancellarlo
+               if Encloses( vVmPart[i].BoxExp, vPart[j].Box) then
+                  bToRemove = false
+                  break
+               end
+            end
+            for k = 1, #vVmPart do
+               if k ~= i then
+                  local vExpBox = BBox3d( vVmPart[k].Box)
+                  -- lo espando in XY per sicurezza
+                  vExpBox:Add( vExpBox:getMin() - Vector3d( 100, 100, 0))
+                  vExpBox:Add( vExpBox:getMax() + Vector3d( 100, 100, 0))
+                  -- verifico contenimento
+                  if EnclosesXY( vExpBox, vVmPart[i].Box) then
+                     bToRemove = true
                      break
                   end
                end
             end
-            -- se richiesta eliminazione, la eseguo
-            if bToRemove then
-               EgtRemoveVolZmapPart( EMT.VMILL, i - 1)
-            end
          end
-         -- se sono rimaste più parti del numero di pezzi, devo fare ulteriori verifiche
-         local nRest = EgtVolZmapPartCount( EMT.VMILL)
-         if nRest > #vPrtBox then
-            -- recupero tutti i box delle parti
-            local vVmpBox = {}
-            for i = 1, nRest do
-               local b3VmPart = EgtVolZmapGetPartBBoxGlob( EMT.VMILL, i - 1, GDB_BB.STANDARD)
-               table.insert( vVmpBox, b3VmPart)
-            end
-            --
-            local vVmpFlag = {}
-            for i = 1, #vPrtBox do
-               local b3Part = vPrtBox[i]
-               local nVmp
-               local dErr = 400
-               for j = 1, nRest do
-                  local b3VmPart = vVmpBox[j]
-                  local dCurrErr = ( b3Part:getCenter() - b3VmPart:getCenter()):len() +
-                                   abs( b3Part:getDimX() - b3VmPart:getDimX()) +
-                                   abs( b3Part:getDimY() - b3VmPart:getDimY()) +
-                                   abs( b3Part:getDimZ() - b3VmPart:getDimZ())
-                  if dCurrErr < dErr then
-                     nVmp = j
-                     dErr = dCurrErr
-                  end
-               end
-               if nVmp then
-                  vVmpFlag[nVmp] = i
-               end
-            end
-            for i = nRest, 1, -1 do
-               if not vVmpFlag[i] then
-                  EgtRemoveVolZmapPart( EMT.VMILL, i - 1)
-               end
-            end
+         -- se richiesta eliminazione, la eseguo
+         if bToRemove then
+            EgtRemoveVolZmapPart( EMT.VMILL, i - 1)
+            table.remove( vVmPart, i)
          end
       end
    end

Wall/NestingData.ini

@@ -0,0 +1,3 @@
+[WALL]
+Kerf=10
+Offset=25

Wall/WallData.lua

@@ -19,9 +19,11 @@ local WallData = {
    CUT_SIC = 20,                            -- distanza di sicurezza per tagli
    CUT_EXTRA = 0,                           -- affondamento extra standard per tagli di lama e fresature
    CUT_EXTRA_MIN = 0,                       -- affondamento extra ridotto per tagli di lama e fresature
+   CUT_VZ_MIN = -0.866,                     -- componente limite in Z del versore di un taglio (-60deg)
+   MIN_Z_SAW = -6,                          -- quota minima rispetto alla tavola (default 0)
    NZ_MINA = 0.5,                           -- componente limite in Z normale di una faccia (-30deg)
    NZ_MINB = -0.4,                          -- componente limite in Z normale di un insieme di facce (-23deg)
-   DRILL_TOL = 0.5,                         -- tolleranza tra diametro foro e diametro punta
+   DRILL_TOL = 0.2,                         -- tolleranza tra diametro foro e diametro punta
    DRILL_VZ_MIN = 0.5,                      -- componente limite in Z del versore di un foro
    DRILL_VX_MAX = 0.866,                    -- componente limite in X del versore di un foro sulle facce laterali
    DRILL_OVERLAP = 5,                       -- sovrapposizione tra due mezze forature
@@ -35,28 +37,35 @@ local WallData = {
    SIMUL_VIEW_DIR = 3,                      -- direzione di vista predefinita per la simulazione (1=NW, 2=SW, 3=NE, 4=SE)
    ORIG_CORNER = 'TL',                      -- angolo tavola per origine di battuta (BR (default), TR, BL, TL)
    RAWPART_ROT = 180,                       -- rotazione del pannello grezzo rispetto alla descrizione BTL
-   CUT_WITH_OUTLINE = false,                -- taglio delle feature con l'outline del pezzo
-   TAB_EXTRA_XP = 10050,                    -- extra spazio su tavola per grezzo in X più
+   CUT_WITH_OUTLINE = false,                 -- taglio delle feature con l'outline del pezzo
+   TAB_EXTRA_XP = 10500,                    -- extra spazio su tavola per grezzo in X più
    TAB_EXTRA_XM = 0,                        -- extra spazio su tavola per grezzo in X meno
    TAB_EXTRA_YP = 0,                        -- extra spazio su tavola per grezzo in Y più
    TAB_EXTRA_YM = 20,                       -- extra spazio su tavola per grezzo in Y meno
    DELTA_X = 0,                             -- allontanamento in X dai riferimenti
    DELTA_Y = 0,                             -- allontanamento in Y dai riferimenti
    DELTA_Z = 0,                             -- sollevamento dalla tavola
+   SQUARING_TYPE = 0,                       -- master panel squaring: 0 = disabled, 1 = on rawpart, 2 = shrink to parts
+   SQUARING_TOOL = 5,                       -- 0 = auto, 1 = double diskmill, 2 = double diskmill+blade, 3 = double blade, 4 = diskmill, 5 = blade, 6 = double mill, 7 = mill
+   SQUARING_USE_ZIGZAG = true,              -- false = oneway, true = zigzag. For mill only
+   SQUARING_STARTS_ON_REFERENCE = true,     -- false = squaring starts near machine parking, true = squaring starts on reference edge
+   SQUARING_OFFSET_XY = 0,                  -- > 0 = larger rectangle, < 0 = smaller rectangle. Only with squaring on rawpart
+   SQUARING_EXTEND_Z = 0,                   -- > 0 = squaring extends below Z0, < 0 = squaring stops above Z0
+   SQUARING_MAX_OVERMATERIAL = 40,          -- max overmaterial before squaring
 }
 
 local function GetChainSawBlockedAxis( nInd)
    if nInd == 1 then
-      return 'A1=0'
-   else
       return 'A1=90'
+   else
+      return 'A1=0'
    end
 end
 WallData.GetChainSawBlockedAxis = GetChainSawBlockedAxis
 
 -- Aggiornamento con dati da TechnoEssetre7
 local sTs3Data = EgtGetStringFromIni( 'Wall', 'DATA_DIR', "C:\\TechnoEssetre7\\EgtData", EgtGetIniFile()).."\\Essetre-90580012.data"
-local sData = EgtGetSourceDir().."\\Ts3Data.lua"
+local sData = EgtGetCurrMachineDir().."\\Wall\\Ts3Data.lua"
 if EgtExistsFile( sTs3Data) then
    EgtCopyFile( sTs3Data, sData)
    local sTs3DataOld = sTs3Data..'.old'