- tutte le chiamate a EgtGetSourceDir() sostituite con EgtGetCurrMachineDir()

- aggiunto compile

Beam/BeamData.lua

@@ -65,7 +65,7 @@ local BeamData = {
 
 -- Aggiornamento con dati da TechnoEssetre7
 local sTs3Data = EgtGetStringFromIni( 'Beam', 'DATA_DIR', "C:\\TechnoEssetre7\\EgtData", EgtGetIniFile()).."\\Essetre-TURN.qqq.data"
-local sData = EgtGetSourceDir().."\\Ts3Data.qqq.lua"
+local sData = EgtGetCurrMachineDir().."\\Beam\\Ts3Data.qqq.lua"
 if EgtExistsFile( sTs3Data) then
    EgtCopyFile( sTs3Data, sData)
    local sTs3DataOld = sTs3Data..'.old'
@@ -112,14 +112,32 @@ end
 BeamData.GetMaxLenRidgeLapFromBottom = GetMaxLenRidgeLapFromBottom
 
 ---------------------------------------------------------------------
-local function GetChainSawBlockedAxis( nInd)
-   if nInd == 1 then
-      return 'Q=-90'
+local function GetBlockedAxis( sHead, nToolType, sBlockedAxis)
+   -- lama
+   if nToolType == MCH_TY.SAW_STD or nToolType == MCH_TY.SAW_FLAT then
+      return ''
+   -- sega a catena
+   elseif nToolType == MCH_TY.MORTISE_STD then
+      if sHead == 'H13' then
+         if sBlockedAxis == 'parallel' then
+            return 'Q=0'
+         elseif sBlockedAxis == 'perpendicular' then
+            return 'Q=-90'
+         end
+      else
+         return ''
+      end
+   -- fresa
+   elseif nToolType == MCH_TY.MILL_STD or nToolType == MCH_TY.MILL_NOTIP then
+      return ''
+   -- punta
+   elseif nToolType == MCH_TY.DRILL_STD or nToolType == MCH_TY.DRILL_LONG then
+      return ''
    else
-      return 'Q=0'
+      return ''
    end
 end
-BeamData.GetChainSawBlockedAxis = GetChainSawBlockedAxis
+BeamData.GetBlockedAxis = GetBlockedAxis
 
 ---------------------------------------------------------------------
 return BeamData

Compile.bat

@@ -0,0 +1,36 @@
+
+REM Compilazione degli script macchina Egaltech                         2024.02.22
+REM Per togliere info di debug aggiungere flag -s prima del nome del file di input
+
+REM Compilazione 32 bit e copia file da non compilare
+
+@echo off
+
+REM chiedo all'utente la versione da assegnare alla macchina da compilare
+set /p "machineVersion=Inserisci versione: "
+
+REM variabili per costruire i percorsi delle cartelle
+set "machineName=Essetre-TURN"
+set "deployFolder=C:\MachinesDeploy"
+set "machinePath=%deployFolder%\%machineName%\"
+set "fullPathSource=%deployFolder%\%machineName%\%machineVersion%\%machineName%"
+set "fullPathZip=%deployFolder%\%machineName%\%machineVersion%"
+
+REM elimino eventuale cartella esistente
+rmdir /s /Q %fullPathZip%
+
+REM copio i sorgenti nel percorso di destinazione
+ROBOCOPY . %fullPathSource%\ /E /XF "Compile.bat" /XF ".gitignore" /XD ".git" /XF "UpdateLog.txt"
+REM copio i sorgenti nel percorso temporaneo per i compilati
+ROBOCOPY . %fullPathSource%\bin\%machineName%\ /E /XF "Compile.bat" /XF ".gitignore" /XD ".git" /XF "UpdateLog.txt"
+
+REM copio i file compilati nel percorso temporaneo per i compilati
+\EgtProg\Dll32\luac54 -o %fullPathSource%\bin\%machineName%\Essetre-TURN.mlpe     		 	           Essetre-TURN.mlpe    
+\EgtProg\Dll32\luac54 -o %fullPathSource%\bin\%machineName%\Essetre-TURN.mlse                        Essetre-TURN.mlse    
+\EgtProg\Dll32\luac54 -o %fullPathSource%\bin\%machineName%\Essetre-TURN.NUM.mlpe                    Essetre-TURN.NUM.mlpe
+
+REM comprimo i file compilati in uno zip pronto per essere distribuito
+tar.exe acvf %fullPathZip%\%machineName%.zip -C %fullPathSource%\bin\ %machineName%\*.*
+
+REM elimino il percorso temporaneo
+rmdir /s /Q %fullPathSource%\bin\

Essetre-TURN.mlde

@@ -19,11 +19,13 @@
 -- 2023/02/16 DS ver 2.5b1 In tavola ora TiltingLike riceve valore 1 (asse tilting parallelo a X).
 -- 2023/09/25 DS ver 2.5i1 Aggiunta gestione T25, T26, T27 e T28 per punte lunghe. Modifica calcolo offset testa 2 rispetto a testa 1.
 -- 2023/09/26 DS ver 2.5i2 Corretta emissione G114 per modifica precedente.
+-- 2024/02/19 LM ver 2.6b1 In BeamData aggiunta funzione GetBlockedAxis che sostituisce la GetChainSawBlockedAxis.
+-- 2024/02/27 LM ver 2.6b2 Tutte le chiamate a EgtGetSourceDir() sostituite con EgtGetCurrMachineDir(). Aggiunto compile.
 
 require( 'EmtGenerator')
 EgtEnableDebug( false)
 
-PP_VER = '2.5i2'
+PP_VER = '2.6b2'
 
 -- Parametri macchina
 NumericalControl = 'NUM'                                      -- solo NUM
@@ -93,7 +95,7 @@ BIG_TOOL_DIAM = 300
 CoeffVM = 0.5
 
 -- Aggiornamento con dati da BeamData.lua
-local sBeamData = EgtGetSourceDir().."\\Beam\\BeamData.lua"
+local sBeamData = EgtGetCurrMachineDir().."\\Beam\\BeamData.lua"
 if EgtExistsFile( sBeamData) then
    local BD = dofile( sBeamData)
    if BD then
@@ -103,7 +105,7 @@ end
 
 -- Aggiornamento con dati da TechnoEssetre7
 local sTs3Data = EgtGetStringFromIni( 'Beam', 'DATA_DIR', "C:\\TechnoEssetre7\\EgtData", EgtGetIniFile()).."\\Essetre-TURN.data"
-local sData = EgtGetSourceDir().."\\Beam\\Ts3Data.lua"
+local sData = EgtGetCurrMachineDir().."\\Beam\\Ts3Data.lua"
 if EgtExistsFile( sTs3Data) then
    EgtCopyFile( sTs3Data, sData)
    local sTs3DataOld = sTs3Data..'.old'

Essetre-TURN.mlpe

@@ -8,9 +8,9 @@ EgtEnableDebug( false)
 ---------------------------------------------------------------------
 -- *** GENERATION ***
 ---------------------------------------------------------------------
-local sBaseDir = EgtGetSourceDir()
+local sBaseDir = EgtGetCurrMachineDir()
 if NumericalControl == 'NUM' then
-   dofile( sBaseDir .. 'Essetre-TURN.NUM.mlpe')
+   dofile( sBaseDir .. '\\Essetre-TURN.NUM.mlpe')
 elseif NumericalControl == 'TPA' then
    error( 'Numerical Control error : TPA not yet managed')
 else

Essetre-TURN.mlse

@@ -7,8 +7,8 @@ require( 'EmtGenerator')
 EgtEnableDebug( false)
 
 -- Carico i dati globali
-local sBaseDir = EgtGetSourceDir()
-local BD = dofile( sBaseDir .. 'Beam\\BeamData.lua')
+local sBaseDir = EgtGetCurrMachineDir()
+local BD = dofile( sBaseDir .. '\\Beam\\BeamData.lua')
 
 EgtOutLog ( '** Essetre-TURN '..PP_VER..' **', 1)