OpenSTAAD V8i
Sets the node displacement annotation mode. This function works only in the post-processing mode of STAAD.Pro.
Where:
Integer variable controlling the annotation type. It may be one of the following values:
1 = X Displacement
2 = Y Displacement
3 = Z Displacement
4 = Resultant Displacement
Boolean variable (True or False). If True, STAAD.Pro viewing windows refresh with the current annotation mode.
Dim bRefresh As Boolean
Dim dLabel As Long
Dim bRet As Boolean
'Get the application object --
'Annotate the view with X displacement labels
'Make sure that Staad.Pro is in Postprocessing mode
bRet = staad.View.SetInterfaceMode 1
If bRet Then
bRefresh = True
dLabel = 1 ' disp x
staad.View.SetNodeAnotationMode(dLabel, bRefresh)
End If