Applies To
	Product(s):	STAAD.Pro
	Version(s):	All
	Environment:	N/A
	Area:	OpenSTAAD
	Subarea:	Loading
	Original Author:	Bentley Technical Support Group

Problem Description:

How to add LOAD LIST command using OpenSTAAD function

Solution:

You can use function CreateLoadList for the task.

Function 1: CreateLoadList

This function adds LOAD LIST command.

Parameters:

[Input]  varListType: Load list type: 0 and 1 for load list and load envelope list, respectively

[Input]  varLoadCaseList: Load case reference ID(s) or Load Envelope ID(s)

VBA Syntax:

Set objOpenSTAAD = GetObject(, "StaadPro.OpenSTAAD")

Dim varListType As Long

Dim varLoadCaseList_for_Loadcase(2) As Long

Dim varLoadCaseList_for_Envelope(1) As Long

varListType = 0 'For Load cases/ Load Combination case

varLoadCaseList_for_Loadcase(0) = 6 'Load Case Number/ Load Combination Number

varLoadCaseList_for_Loadcase(1) = 7 'Load Case Number/ Load Combination Number

varLoadCaseList_for_Loadcase(2) = 8 'Load Case Number/ Load Combination Number

objOpenSTAAD.Load.CreateLoadList varListType, varLoadCaseList_for_Loadcase

 

varListType = 1 'For Load Envelope

varLoadCaseList_for_Envelope(0) = 1 'Load Envelope Number

varLoadCaseList_for_Envelope(1) = 2 'Load Envelope Number

objOpenSTAAD.Load.CreateLoadList varListType, varLoadCaseList_for_Envelope

Output: