- gestiti dowel degli split in ciclo separato

- migliorata gestione test

Profiles/WinOpenProjectFile.lua

@@ -33,20 +33,25 @@ 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'
+local sOpenFilePath = ''
+-- verifico se lanciato file in batch per test
+if WINDOW and WINDOW.FILE then
+   sOpenFilePath = WINDOW.FILE
 else
-   return
+   -- altrimenti apro dialogo di scelta file
+   local sOpenDirPath = 'c:\\EgtData\\EgwWindowLua\\Projects'
+   local FilePathList = EgtFindAllFiles( sOpenDirPath .. '\\*.jwd')
+   local sDialogFile = 'CB:'
+   for FilePathIndex = 1, #FilePathList do
+      local sName = EgtSplitString( FilePathList[FilePathIndex], '.')
+      sDialogFile = sDialogFile .. sName[1] .. ','
+   end
+   local DialogRes = EgtDialogBox( 'Open Window Project', { 'Nome Progetto', sDialogFile })
+   if DialogRes and DialogRes[1] then
+      sOpenFilePath = sOpenDirPath .. '\\' .. DialogRes[1] .. '.jwd'
+   else
+      return
+   end
 end
 
 EgtNewFile()
@@ -54,10 +59,6 @@ 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
@@ -68,6 +69,7 @@ WinCalculate.SetCalcSolid( true)
 -- creo i pezzi
 local nFrameId = EgtGetFirstNameInGroup( GDB_ID.ROOT, WIN_AREAASTERISK)
 WinCalculate.CreatePartFromArea( nFrameId)
+WinCalculate.AddSplitDowelToParts( nFrameId)
 
 EgtZoom( SCE_ZM.ALL)