OpenSTAAD V8i

SaveNamedView

This function saves the current view with the specified name.

Where:

ViewName

A string variable that will hold the name of the view to be saved.

ErrorVal

A long variable that will hold the error number if the view cannot be saved.  

Dim strViewName As String
Dim lErrorVal as Long
'Set the application object
Set objOpenSTAAD = GetObject( , "StaadPro.OpenSTAAD")
objOpenSTAAD.SaveNamedView strViewName, lErrorVal