Files
egwwindowlua/Profiles/WinOpenProjectFile.lua
T
Emmanuele Sassi 04853e26fe - correzione ricerca profili su split
- correzione scelta profili per calcolo Delta
- aggiunti posizionamenti dowel per bottom rail
- correzione ricerca prev e next dell'outline per split
- aggiunta verifica esistenza file su import profilo
- aggiunto fix ordine outline su area
- cambiate path da cartella Window  a EgwWindowLua
- aggiunto dialogo di scelta file su open
2023-12-20 16:42:57 +01:00

77 lines
2.3 KiB
Lua

--
-- EEEEEEEEEE GGGGGG TTTTTTTTTTTTTT
-- EEEEEEEEEE GGGGGGGGGG TTTTTTTTTTTTTT
-- EEEE GGGG GGGG TTTT
-- EEEE GGGG TTTT
-- EEEEEEE GGGG GGGGGGG TTTT
-- EEEEEEE GGGG GGGGGGG TTTT
-- EEEE GGGG GGGG TTTT
-- EEEE GGGG GGGG TTTT
-- EEEEEEEEEE GGGGGGGGGG TTTT
-- EEEEEEEEEE GGGGGG TTTT
--
-- by Egalware s.r.l.
-- Window project software by Egalware s.r.l. 2023/05/02
require( 'EgtBase')
_ENV = EgtProtectGlobal()
EgtEnableDebug( true)
-- EgtEnableDebug( false)
-- Imposto direttorio per librerie
local sBaseDir = EgtGetSourceDir()
EgtOutLog("BaseDir=" .. sBaseDir)
EgtAddToPackagePath( sBaseDir .. '?.lua')
EgtAddToPackagePath( sBaseDir .. 'WinLib\\' .. '?.lua')
_G.package.loaded.WinConst = nil
require( 'WinConst')
_G.package.loaded.WinCreate = nil
local WinCreate = require( 'WinCreate')
_G.package.loaded.WinCalculate = nil
local WinCalculate = require( 'WinCalculate')
_G.package.loaded.WinManageProject = nil
local WinManageProject = require( 'WinManageProject')
-- apro dialogo di scelta file
local sOpeneDirPath = 'c:\\EgtData\\EgwWindowLua\\Projects'
local FilePathList = EgtFindAllFiles( sOpeneDirPath .. '\\*.jwd')
local sDialogFile = 'CB:'
for FilePathIndex = 1, #FilePathList do
local sName = EgtSplitString( FilePathList[FilePathIndex], '.')
sDialogFile = sDialogFile .. sName[1] .. ','
end
local sFileName = ''
local DialogRes = EgtDialogBox( 'Open Window Project', { 'Nome Progetto', sDialogFile })
if DialogRes and DialogRes[1] then
sFileName = DialogRes[1] .. '.jwd'
else
return
end
EgtNewFile()
EgtStartCounter()
--local sFileName = 'RoundArc_FixedGlass_Vertical&HorizontalSplit.jwd'
local sOpenFilePath = sOpeneDirPath .. '\\' .. sFileName
if WINDOW and WINDOW.FILE then
sOpenFilePath = WINDOW.FILE
end
if not WinManageProject.ReadFromFile( sOpenFilePath) then
return
end
-- imposto se calcolare i solidi o meno
WinCalculate.SetCalcSolid( true)
-- creo i pezzi
local nFrameId = EgtGetFirstNameInGroup( GDB_ID.ROOT, WIN_AREAASTERISK)
WinCalculate.CreatePartFromArea( nFrameId)
EgtZoom( SCE_ZM.ALL)
-- riporto tempi di esecuzione
local sOut = string.format( ' ExecTime = %.2f ms', EgtStopCounter())
EgtOutLog( sOut)