From 5f7c9184346d2255765be1fc7e1fd0dc0d25906b Mon Sep 17 00:00:00 2001
From: Dario Sassi <dario.sassi@egalware.com>
Date: Wed, 14 Jan 2026 16:22:11 +0100
Subject: [PATCH] Saomad-Just3500 3.1a1 : - modifiche per ToolTrace e ingombro
 tavola2.

---
 Saomad-Just3500.ini  |   7 +++++++
 Saomad-Just3500.mlde |  16 +++++++++-------
 Saomad-Just3500.mlpe |  16 +++++++++++++---
 Saomad-Just3500.nge  | Bin 679158 -> 679180 bytes
 Scripts/ExitMach.lua |  27 +++++++++++++++++++++++++++
 Scripts/InitMach.lua |  29 ++++++-----------------------
 Window/WinData.lua   |  23 +++++++++++++----------
 7 files changed, 75 insertions(+), 43 deletions(-)
 create mode 100644 Scripts/ExitMach.lua

diff --git a/Saomad-Just3500.ini b/Saomad-Just3500.ini
index 86b6efe..588b896 100644
--- a/Saomad-Just3500.ini
+++ b/Saomad-Just3500.ini
@@ -31,6 +31,10 @@ SawRoughing=0
 SawFinishing=0
 Chiseling=0
 
+[Machining]
+InitScript=InitMach.lua
+ExitScript=ExitMach.lua
+
 [Disposition]
 InitScript=InitDisp.lua
 
@@ -55,5 +59,8 @@ WinPlace=0,458,74,669,933
 Enable=1
 Save=0
 
+[ToolTrace]
+Enable=1
+
 [SetUp]
 Default=Default
diff --git a/Saomad-Just3500.mlde b/Saomad-Just3500.mlde
index 3157c90..419007d 100644
--- a/Saomad-Just3500.mlde
+++ b/Saomad-Just3500.mlde
@@ -1,12 +1,13 @@
--- Special Operations macchina Saomad Just3500 by Egalware s.r.l.   15/01/2024
--- 2024.01.15 ver 2.6g1 Prima versione
+-- Special Operations macchina Saomad Just3500 by Egalware s.r.l.   2026/01/14
+-- 2024.01.15 ver 2.6a1 Prima versione
+-- 2026/01/14 ver 3.1a1 Sistemazioni per ToolTrace e ingombro tavola2.
 
 -- Intestazioni
 require( 'EmtGenerator')
 EgtEnableDebug( false)
 
-PP_VER = '2.6g1'
-MIN_MACH_VER = '2.6g1'
+PP_VER = '3.1a1'
+MIN_MACH_VER = '2.7a1'
 
 EgtOutLog ( '** Saomad-Just3500 '..PP_VER..' (MinMach '.. MIN_MACH_VER ..') **', 1)
 
@@ -115,7 +116,7 @@ local Tab2Id = EmtTable {
       Ref1 = Point3d( DeltaTabX, DeltaTabY, DeltaTabZ),
       Coll = 'Tab2/SOLID',
       Geo = 'TABLE2/GEO',
-      Aux = 'TABLE2/SOLID'}
+      Aux = {'TABLE2/SOLID1','TABLE2/SOLID2'}}
 --    Gruppop teste    ----------
 local Y1Id = EmtAxis {
       Name = 'Y1',
@@ -339,13 +340,14 @@ end
 function OnResetMachine()
    EmtUnlinkAllRawPartsFromGroups()
    EmtUnlinkAllFixturesFromGroups()
-   -- nascondo Vmill
+   -- nascondo Vmill e ToolTrace
    local nRawId = EgtGetFirstRawPart()
    while nRawId do
       local nVmId = EgtGetFirstNameInGroup( nRawId, 'VMill')
+      local nTtId = EgtGetFirstNameInGroup( nRawId, 'ToolTrace')
       local nId = EgtGetFirstInGroup( nRawId)
       while nId do
-         EgtSetStatus( nId, EgtIf( nId ~= nVmId, GDB_ST.ON, GDB_ST.OFF))
+         EgtSetStatus( nId, EgtIf( nId ~= nVmId and nId ~= nTtId, GDB_ST.ON, GDB_ST.OFF))
          nId = EgtGetNext( nId)
       end
       nRawId = EgtGetNextRawPart( nRawId)
diff --git a/Saomad-Just3500.mlpe b/Saomad-Just3500.mlpe
index 976bc63..f27ebac 100644
--- a/Saomad-Just3500.mlpe
+++ b/Saomad-Just3500.mlpe
@@ -1,4 +1,4 @@
--- Special Operations macchina Saomad Just3500 by Egalware s.r.l.   15/01/2024
+-- Special Operations macchina Saomad Just3500 by Egalware s.r.l.   2026/01/14
 
 -- Intestazioni
 require( 'EmtGenerator')
@@ -22,13 +22,15 @@ local COLL_SAFE_DIST = 3
 ---------------------------------------------------------------------
 function OnSimulInit()
    EgtSetStatus( EgtGetFirstNameInGroup( EgtGetTableId( 'Tab'), 'SOLID'), GDB_ST.OFF) 
-   EgtSetStatus( EgtGetFirstNameInGroup( EgtGetTableId( 'Tab2'), 'SOLID'), GDB_ST.OFF)
+   EgtSetStatus( EgtGetFirstNameInGroup( EgtGetTableId( 'Tab2'), 'SOLID1'), GDB_ST.OFF)
+   EgtSetStatus( EgtGetFirstNameInGroup( EgtGetTableId( 'Tab2'), 'SOLID2'), GDB_ST.OFF)
 end
 
 ---------------------------------------------------------------------
 function OnSimulExit()
    EgtSetStatus( EgtGetFirstNameInGroup( EgtGetTableId( 'Tab'), 'SOLID'), GDB_ST.ON) 
-   EgtSetStatus( EgtGetFirstNameInGroup( EgtGetTableId( 'Tab2'), 'SOLID'), GDB_ST.ON)
+   EgtSetStatus( EgtGetFirstNameInGroup( EgtGetTableId( 'Tab2'), 'SOLID1'), GDB_ST.ON)
+   EgtSetStatus( EgtGetFirstNameInGroup( EgtGetTableId( 'Tab2'), 'SOLID2'), GDB_ST.ON)
 end
 
 ---------------------------------------------------------------------
@@ -212,6 +214,14 @@ function OnSimulDispositionStart()
             table.insert( EMT.CODET, EMT.VMILL[i])
          end
       end
+      -- se vero inizio, cancello gruppo/i per traccia tooltip e ne ricreo uno
+      if not EMT.SIM1ST then
+         EgtErase( EgtGetNameInGroup( EMT.PIECES[1].Id, 'ToolTrace'))
+         EMT.TOOLTRACE = EgtGroup( EMT.PIECES[1].Id)
+         EgtSetName( EMT.TOOLTRACE, 'ToolTrace')
+         EgtSetLevel( EMT.TOOLTRACE, GDB_LV.TEMP)
+         EgtSetColor( EMT.TOOLTRACE, 'RED')
+      end
    -- se fase 2
    else
       ExecMoveToZmax()
diff --git a/Saomad-Just3500.nge b/Saomad-Just3500.nge
index 43736e386a177f5463e31c300d3ca7a8db91c24b..5d7d1602aa1f92824a70700d44eb9088f879f6e3 100644
GIT binary patch
delta 183
zcmV;o07(D#xhaggDS(6lgaU*Egam{Iga(8Mgb0KQv<h@wf5%Z;&S?G^uX{O5?<X$q
zXM1t~1D&OxcmRyf(yDB8mS$Q1EUn6pv-F2LOYbLzzjx<eY=J$e>AVF#|Am&D)AZFA
z$fk$l#2M*(#ac+2b2|N{bYiZ#l>0VHn`3V-B`k3%t?JHV#rDWlx(!Xl^_S|Dtm@99
l#rCwO?krp^8KqU-L%jIE8i)A1e?wya{{a(kGTx?UCjdsxUTgpW

delta 161
zcmV;S0ABx$x+(U#DS(6lgaU*Egam{Iga(8Mgb0KQv<h@we}CsudOvY*KihlzALuCk
z!~tM*lvZV%qcqF<M`=}d9Hl?TQCjZ(`$^evKeOhEI=uJKh{-D^KpdR&-Y=yS8_cC#
zj8WR0Pje~pgG*^ucfS9(XPaVZs0^;ZRL5CWca{OR$0~JaDPSqB>K<~y|J8uO-~Ah+
P?f(x<f4=um17;@xufI+i

diff --git a/Scripts/ExitMach.lua b/Scripts/ExitMach.lua
new file mode 100644
index 0000000..f935279
--- /dev/null
+++ b/Scripts/ExitMach.lua
@@ -0,0 +1,27 @@
+-- 2025/03/20
+-- Machining Exit for Saomad-Just3500 machine
+
+-- Intestazioni
+require( 'EgtBase')
+_ENV = EgtProtectGlobal()
+EgtEnableDebug( false)
+
+--------------------------------------------------------------------------------
+-- *** Uscita da Lavorazioni ***
+
+-- Disabilito segnalazione modifica progetto
+local bEnMod = EgtGetEnableModified() 
+EgtDisableModified()
+
+-- Visualizzo gruppi che potrebbero essere stati nascosti
+local vAuxId = { EgtGetFirstNameInGroup( GDB_ID.ROOT, 'Area*'), EgtGetFirstNameInGroup( GDB_ID.ROOT, 'Aux')}
+EgtSetStatus( vAuxId, GDB_ST.ON)
+
+EgtZoom( SCE_ZM.ALL, false)
+
+-- Ripristino segnalazione modifica progetto
+if bEnMod then
+   EgtEnableModified()
+end
+
+MACH.ERR = 0
diff --git a/Scripts/InitMach.lua b/Scripts/InitMach.lua
index 6ac761b..6dd86f3 100644
--- a/Scripts/InitMach.lua
+++ b/Scripts/InitMach.lua
@@ -1,5 +1,5 @@
--- 2018/11/21  16:30:00
--- Machining Init for Essetre-FAST machine
+-- 2025/03/20
+-- Machining Init for Saomad-Just3500 machine
 
 -- Intestazioni
 require( 'EgtBase')
@@ -9,32 +9,15 @@ EgtEnableDebug( false)
 --------------------------------------------------------------------------------
 -- *** Ingresso in Lavorazioni ***
 
--- Rendo visibile il pezzo e le geometrie aggiunte, nascondo il Box
-local function ProcessPart( PartId)
-   -- nascondo il Box
-   EgtSetStatus( EgtGetFirstNameInGroup( PartId, 'Box') or GDB_ID.NULL, GDB_ST.OFF)
-end
-
 -- Disabilito segnalazione modifica progetto
 local bEnMod = EgtGetEnableModified() 
 EgtDisableModified()
 
--- Processo i pezzi nella radice
-local PartId = EgtGetFirstPart()
-while PartId do
-   ProcessPart( PartId)
-   PartId = EgtGetNextPart( PartId)
-end
+-- Nascondo gruppi che potrebbero essere visibili
+local vAuxId = { EgtGetFirstNameInGroup( GDB_ID.ROOT, 'Profile'), EgtGetFirstNameInGroup( GDB_ID.ROOT, 'Area*'), EgtGetFirstNameInGroup( GDB_ID.ROOT, 'Aux')}
+EgtSetStatus( vAuxId, GDB_ST.OFF)
 
--- Processo i pezzi già nei gruppi di lavoro (quando appena lanciata Process)
-local GhostId = EgtGetFirstGhostPart()
-while GhostId do
-   local PartId = EgtGetInfo( GhostId, GDB_SI.SOURCE, 'i')
-   if PartId then
-      ProcessPart( PartId)
-   end
-   GhostId = EgtGetNextGhostPart( GhostId)
-end
+EgtZoom( SCE_ZM.ALL, false)
 
 -- Ripristino segnalazione modifica progetto
 if bEnMod then
diff --git a/Window/WinData.lua b/Window/WinData.lua
index 50d1729..2aeecfb 100644
--- a/Window/WinData.lua
+++ b/Window/WinData.lua
@@ -1,4 +1,4 @@
--- WinData.lua by Egalware s.r.l. 2024/06/13
+-- WinData.lua by Egalware s.r.l. 2025/03/19
 -- Raccolta dati generali per Serramenti
 
 EgtOutLog( ' Just3500-WinData started', 1)
@@ -23,21 +23,21 @@ local WinData = {
 ---------------------------------------------------------------------
 local function VerifyPieces( PARTS)
    if not PARTS or #PARTS > 2 then
-      EgtOutBox( 'ATTENZIONE : massimo due pezzi per macchinata', 'Lavora Pezzi', 'ERROR')
-      return false
+      local sErr = 'ATTENZIONE : massimo due pezzi per macchinata'
+      return false, sErr
    end
 
    -- controllo che le dimensioni siano compatibili
    for i = 1, #PARTS do
       if #PARTS == 1 then
          if PARTS[i].dPartLength > ( WinData.DIM_CAR + WinData.DIST_CARR_OPEN + WinData.DIM_CAR) then
-            EgtOutBox( 'ATTENZIONE : pezzo troppo lungo', 'Lavora Pezzi', 'ERROR')
-            return false
+            local sErr = 'ATTENZIONE : pezzo troppo lungo'
+            return false, sErr
          end
       else
          if PARTS[i].dPartLength > WinData.MAXDIMPIECE1CAR then
-            EgtOutBox( 'ATTENZIONE : pezzo ' .. PARTS[i].sName .. ' troppo lungo', 'Lavora Pezzi', 'ERROR')
-            return false
+            local sErr = 'ATTENZIONE : pezzo ' .. PARTS[i].sName .. ' troppo lungo'
+            return false, sErr
          end
       end
    end
@@ -51,7 +51,10 @@ WinData.VerifyPieces = VerifyPieces
 local function ExecDisposition( PARTS)
 
    -- si verifica che i pezzi selezionati siano compatibili con la macchina
-   VerifyPieces( PARTS)
+   local bOk, sErr = VerifyPieces( PARTS)
+   if not bOk then
+      return false, sErr
+   end
 
    -- se ho un pezzo
    if #PARTS == 1 then
@@ -82,8 +85,8 @@ local function ExecDisposition( PARTS)
       EgtSetStatus( PARTS[i].idRaw, GDB_ST.ON)
 
       if not EgtMoveToCornerRawPart( PARTS[i].idRaw, vtOffs, MCH_CR.BL) then
-         EgtOutLog( 'InitDisp for Saomad-Just3500 : error positioning raw part on table')
-         return false
+         local sErr = 'ATTENZIONE : error positioning raw part on table'
+         return false, sErr
       end
    end