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

Problem Description:

How to assign STEEL CHECK CODE command using OpenSTAAD function

Solution:

You can use function AssignDesignCommand

Using the same function, TAKE OFF, GROUP/FIXED GROUP/SELECT/SELECT OPTIMIZED command can also be assigned.

Parameter:

[Input]   nBriefRef: The Design Brief reference ID.

[Input]   strCommandName: Design command name.

[Input]   strCommandValue: Parameter for design command.

[Input]   varMembers: Number ID of Member(s) to be assigned to.

Sample VBA Syntax:

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

 

Dim nBriefRef As Long

Dim strCommandName(5) As String

Dim strCommandValue As String

Dim varMembers(3) As Long

 

nBriefRef = 1 'Parameter Block Number

 

strCommandName(0) = "CHECK CODE"

'strCommandName(1) = "TAKE OFF"

'strCommandName(2) = "GROUP"

'strCommandName(3) = "FIXED GROUP"

'strCommandName(4) = "SELECT"

'strCommandName(5) = "SELECT OPTIMIZED"

strCommandValue = ""

varMembers(0) = 2

varMembers(1) = 4

varMembers(2) = 5

varMembers(3) = 7

 

objOpenStaad.Design.AssignDesignCommand nBriefRef, strCommandName(0), strCommandValue, varMembers