OpenSTAAD V8i

Command.IsAnalyzing

Monitor the status of an analysis process.

Where:

status

An integer variable:

• 0 = Analysis completed (i.e., not running)
• 1 = Process is running

Dim stat as Integer
Do While stat = 1
	Application.Wait (Now() + CDate("00:00:02")) ‘This method will wait for 2 seconds before checking the analysis status
	stat = objOpenSTAAD. IsAnalyzing ()
Loop
MsgBox “Analysis has completed”, VbOkOnly