- Aggiunti ProcessEvents su calcolo solido

- Lettura pezzi per Icarus
2022-09-27 17:20:33 +02:00
parent 0d356741ae
commit f84c491295
3 changed files with 33 additions and 3 deletions
@@ -57,6 +57,9 @@ function RunMachParamFromSWCalc.Exec()
      local dSliceStep = EgtGetInfo( nPartId, KEY_SLICE_STEP, 'd')
      local dStrand = EgtGetInfo( nPartId, KEY_STRAND, 'd')
      local dStrandCount = EgtGetInfo( nPartId, KEY_SHELLS_NBR, 'd')
+      -- recupero numero di strati per progress
+      local nLastLayerId = EgtGetLastNameInGroup( nPartId, SLICE_LAYER .. '*')
+      local nLayerQty = EgtGetInfo( nLastLayerId, KEY_SLICE_NBR, 'i')
      -- ciclo sui layer
      local nLayerIndex = 1
      local nLayerId = EgtGetFirstNameInGroup( nPartId, SLICE_LAYER .. nLayerIndex)
@@ -166,6 +169,8 @@ function RunMachParamFromSWCalc.Exec()
         EgtSetInfo( nLayerResultId, KEY_FCUR, dLayerFeed)
         EgtSetInfo( nLayerResultId, KEY_LENGTH, dTotLayerLength)
         EgtSetInfo( nLayerResultId, KEY_SPEED, dSpeed)
+         -- aggiorno interfaccia
+         EgtProcessEvents( 400 + ( nLayerIndex / nLayerQty * 100), 0)
         nLayerIndex = nLayerIndex + 1
         nLayerId = EgtGetFirstNameInGroup( nPartId, SLICE_LAYER .. nLayerIndex)
      end