- Aggiunti ProcessEvents su calcolo solido

- Lettura pezzi per Icarus

LuaLibs/RunGcodeGenerate.lua

@@ -23,6 +23,9 @@ end
 ---------------------------------------------------------------------
 function RunGcodeGenerate.Exec()
    
+   -- aggiorno interfaccia
+   EgtProcessEvents( 501, 0)
+
    -- Recupero il pezzo (per ora primo e unico)
    local nPartIndex = 1
    local nPartId = EgtGetFirstNameInGroup( GDB_ID.ROOT, PART .. nPartIndex) or EgtGetFirstNameInGroup( GDB_ID.ROOT, PART)
@@ -41,6 +44,9 @@ function RunGcodeGenerate.Exec()
    -- Recupero i parametri relativi al layer
    local LayerParams = GetLayerParamsForGcodeGenerate( nPartId)
 
+   -- aggiorno interfaccia
+   EgtProcessEvents( 505, 0)
+
    -- Ciclo sui layer
    local vEntId = {}
    for nIdx = 1, #vLayIds do
@@ -50,7 +56,7 @@ function RunGcodeGenerate.Exec()
          -- recupero il gruppo dei percorsi utensile
          local nTpathGrpId = EgtGetFirstNameInGroup( nCrvGrpId, TOOLPATH_GRP)
          if not nTpathGrpId then
-         EgtOutBox( 'Error missing toolpaths', 'GcodeGenerate')
+            EgtOutBox( 'Error missing toolpaths', 'GcodeGenerate')
             return 
          end
          -- recupero le entità nel gruppo
@@ -68,6 +74,9 @@ function RunGcodeGenerate.Exec()
       return
    end
 
+   -- aggiorno interfaccia
+   EgtProcessEvents( 510, 0)
+
    -- Imposto gruppo di lavoro
    EgtSetCurrMachGroup()
 
@@ -87,6 +96,9 @@ function RunGcodeGenerate.Exec()
       return
    end
 
+   -- aggiorno interfaccia
+   EgtProcessEvents( 520, 0)
+
    EgtSetMachiningGeometry( vEntId)
 
    local sNotes = EgtAdjustNotes( '', 'LinkZup', LayerParams.LinkZup)
@@ -103,12 +115,18 @@ function RunGcodeGenerate.Exec()
       return
    end
 
+   -- aggiorno interfaccia
+   EgtProcessEvents( 550, 0)
+
    -- Salvo il progetto
    local sFilePath = EgtGetCurrFilePath()
    sFilePath = EgtChangePathExtension( sFilePath, 'nge')
    EgtSetCurrFilePath( sFilePath)
    EgtSaveFile()
 
+   -- aggiorno interfaccia
+   EgtProcessEvents( 580, 0)
+
    -- Genero il programma CN
    local sInfo = 'EgtCAM5 ver.' .. EgtGetExeVersion() .. ' - ' .. sPath
    local bGenOk = EgtGenerate( '', sInfo)
@@ -116,6 +134,9 @@ function RunGcodeGenerate.Exec()
       EgtEstimate('')
    end
 
+   -- aggiorno interfaccia
+   EgtProcessEvents( 590, 0)
+
    EgtResetCurrMachGroup()
 
    if PRINT and PRINT.PROGRAM == 1 then
@@ -131,6 +152,10 @@ function RunGcodeGenerate.Exec()
          EgtOutBox( 'Generation failed.', 'GcodeGeneration', 'ERROR')
       end
    end
+   
+   -- aggiorno interfaccia
+   EgtProcessEvents( 600, 0)
+
 end
 
 ---------------------------------------------------------------------