- Modificate tutti i lua dei bottoni per portarli in libreria
This commit is contained in:
+5
-39
@@ -10,43 +10,9 @@ EgtEnableDebug( false)
|
||||
local sBaseDir = EgtGetSourceDir()
|
||||
EgtAddToPackagePath( sBaseDir .. 'LuaLibs\\?.lua')
|
||||
|
||||
-- Costanti generali
|
||||
local AMD = require( 'AddManData')
|
||||
-- Librerie
|
||||
_G.package.loaded.RunMaterialParamEdit = nil
|
||||
local RMPE = require( 'RunMaterialParamEdit')
|
||||
|
||||
-- recupero cartella dei materiali
|
||||
local sCalcBaseDir = EgtGetStringFromIni( '3dPrinting', 'BaseDir', 'C:\\ProgramData\\Egaltech\\EgtCam5\\3dPrinting', EgtGetIniFile())
|
||||
local sMaterialDirPath = sCalcBaseDir .. '\\Materials\\'
|
||||
|
||||
-- recupero elenco file dei materiali
|
||||
local Files = EgtFindAllFiles( sMaterialDirPath..'*.csv')
|
||||
if not Files then
|
||||
EgtOutBox( 'Material files not found', 'Error', 'ERROR')
|
||||
return
|
||||
end
|
||||
local sMaterials = ''
|
||||
for i = 1, #Files do
|
||||
local sDir, sFile, sExt = EgtSplitPath( Files[i])
|
||||
if sMaterials ~= "" then
|
||||
sMaterials = sMaterials .. ','
|
||||
end
|
||||
sMaterials = sMaterials .. sFile
|
||||
end
|
||||
|
||||
-- chiedo quale file aprire
|
||||
MaterialValues = EgtDialogBox( 'Materials edit', { 'Material', 'CB:' .. sMaterials})
|
||||
if not MaterialValues or #MaterialValues < 1 then return end
|
||||
|
||||
-- verifico esistenza file
|
||||
local sSelMaterialPath = sMaterialDirPath .. MaterialValues[1] .. '.csv'
|
||||
if not EgtExistsFile( sSelMaterialPath) then
|
||||
EgtOutBox( 'Material file not found', 'Error', 'ERROR')
|
||||
return
|
||||
end
|
||||
|
||||
-- apro programma di edit
|
||||
local sEditProgPath = EgtGetStringFromIni( '3dPrinting', RESULT_READ_PROG, "", EgtGetIniFile())
|
||||
if not sEditProgPath or not EgtWinExec( sEditProgPath .. ' ' .. sSelMaterialPath) then
|
||||
EgtOutBox( 'Impossible opening software to show Material. You can find them it in ' .. sSelMaterialPath, 'Error', 'ERROR')
|
||||
end
|
||||
|
||||
------------------------- MAIN --------------------------------------
|
||||
-- Calcolo
|
||||
RMPE.Exec()
|
||||
|
||||
Reference in New Issue
Block a user