EgtBEAMWALL :

- aggiunto nuovo calcolo solidi per assemblaggio, verificato e commentato.

EgtBEAMWALL.ViewerOptimizer/BTLViewModel/BTLStructureVM.vb

@@ -1122,7 +1122,9 @@ Public Class BTLStructureVM
 
       Dim bOn As Boolean = EgtBeamGetBuildingIsOn()
       If bShow <> bOn Then
+         'If bShow Then EgtBeamCalcAllSolids(True)
          EgtBeamShowBuilding(bShow)
+         'If Not bShow Then EgtBeamShowAllSolids(False)
       End If
 
       ' ripristino precedente impostazione modificato

EgtBEAMWALL.ViewerOptimizer/StatusBar/MyStatusBarVM.vb

@@ -58,7 +58,11 @@ Public Class MyStatusBarVM
       ' Costringo ad aggiornare
       UpdateUI()
       ' Eventuale attesa
-      Thread.Sleep(nPause)
+      If nPause >= 0 Then
+         Thread.Sleep(nPause)
+      'ElseIf nPause = 1 Then
+      '   EgtDraw()
+      End If
       ' Ritorno eventuale stop
       If m_bStopProgress Then
          m_bStopProgress = False