OpenSTAAD V8i
This function creates a view with the specified name.
Where:
A string variable that will hold the name of the view to be created.
A long variable that will hold the flag value depending upon which the view will be created.
A long variable that will hold the error number if the view cannot be created.
(Boolean) True (1) if the function is successful, false (0) otherwise.
Dim objOpenSTAAD As Object
Dim strViewName As String
Dim lFlagVal as Long
Dim lErrorVal as Long
'Set the application object
Set objOpenSTAAD = GetObject( , "StaadPro.OpenSTAAD")
objOpenSTAAD.CreateNamedView strViewName, lFlagVal, lErrorVal