OpenSTAAD V8i
This function sets the short job information of the currently open .STD file.
Where:
A string variable that will hold the Job Name for the current .STD file.
A string variable that will hold the Job Client for the current .STD file.
A string variable that will hold the Engineer’s Name for the current .STD file.
Dim objOpenSTAAD As Object
Dim strJobName as String
Dim strJobClient as String
Dim strEnggName as String
'Set the application object
Set objOpenSTAAD = GetObject( , "StaadPro.OpenSTAAD")
objOpenSTAAD.SetShortJobInfo strJobName, strJobClient, strEngName