Annamaria Sassi
42 lines
1.2 KiB
Lua
42 lines
1.2 KiB
Lua
-- MachGroupsManual.lua by Egalware s.r.l. 2026/07/24
|
|
-- Creazione dei MachGroup del file già aperto in modalità manuale da EgtCAM5
|
|
|
|
-- Intestazioni
|
|
require( 'EgtBase')
|
|
_ENV = EgtProtectGlobal()
|
|
EgtEnableDebug( false)
|
|
|
|
local MachineNameList = {}
|
|
MachineNameList[1] = 'Saomad-Just3500'
|
|
--MachineNameListT[2] = 'Saomad-Just3500-Copy'
|
|
local Opt_Type = 'WINDOW'
|
|
|
|
_G.WIN = { MACHINELIST = MachineNameList,
|
|
OPT_TYPE = Opt_Type}
|
|
|
|
local sIniFilePath = EgtGetIniFile()
|
|
local sBaseDir = EgtGetStringFromIni( 'Window', 'BaseDir', '', sIniFilePath)
|
|
|
|
local nMachId = EgtGetFirstMachGroup()
|
|
while nMachId do
|
|
local nCurrMachId = nMachId
|
|
nMachId = EgtGetNextMachGroup( nMachId)
|
|
EgtRemoveMachGroup(nCurrMachId)
|
|
end
|
|
|
|
-- aggiungo le macchinate
|
|
local bOk, sErr = pcall( dofile, sBaseDir .. '\\CAMAuto\\' .. 'CreateMachGroups.lua')
|
|
|
|
if bOk then
|
|
-- salvo una macchinata per ogni file
|
|
local sFilePath = EgtGetCurrFilePath()
|
|
local sFileDir, _, sExt = EgtSplitPath( sFilePath)
|
|
nMachId = EgtGetFirstMachGroup()
|
|
while nMachId do
|
|
EgtSaveMachGroupToFile( nMachId, sFileDir .. EgtGetMachGroupName( nMachId) .. '.bwe')
|
|
nMachId = EgtGetNextMachGroup( nMachId)
|
|
end
|
|
end
|
|
|
|
-- salvo il file
|
|
EgtSaveFile() |