Assigns frame section properties to an auto select list. If this function is called for an
existing frame section property, all items for the section are reset to their default value.
Namespace: ETABS2015Assembly: ETABS2015 (in ETABS2015.dll) Version: 15.0.0.0 (15.0.0.0)
int SetAutoSelectSteel(
string Name,
int NumberItems,
ref string[] SectName,
string AutoStartSection = "Median",
string Notes = "",
string GUID = ""
)
Function SetAutoSelectSteel ( _
Name As String, _
NumberItems As Integer, _
ByRef SectName As String(), _
Optional AutoStartSection As String = "Median", _
Optional Notes As String = "", _
Optional GUID As String = "" _
) As Integer
Function SetAutoSelectSteel ( _
Name As String, _
NumberItems As Integer, _
ByRef SectName As String(), _
Optional AutoStartSection As String = "Median", _
Optional Notes As String = "", _
Optional GUID As String = "" _
) As Integer
int SetAutoSelectSteel(
String^ Name,
int NumberItems,
array<String^>^% SectName,
String^ AutoStartSection = L"Median",
String^ Notes = L"",
String^ GUID = L""
)
Parameters
- Name
- Type:
System String
The name of an existing or new frame section property.
If this is an existing property, that property is modified; otherwise, a new property is added.
- NumberItems
- Type: System Int32
The number of frame section properties included in the auto select list.
- SectName
- Type: System String
- AutoStartSection (Optional)
- Type: System String
This is either Median or the name of a frame section property
in the SectName array. It is the starting section for the auto select list.
- Notes (Optional)
- Type: System String
- GUID (Optional)
- Type: System String
The GUID (global unique identifier), if any, assigned to the section.
If this item is input as Default, the program assigns a GUID to the section.
Return Value
Returns zero if the auto select list is successfully filled;
otherwise it returns a nonzero value.
Public Sub Example()
Dim SapModel As cSapModel
Dim EtabsObject As cOAPI
Dim ret As Integer = -1
Dim MyName() As String
EtabsObject = CreateObject("CSI.ETABS.API.ETABSObject")
ret = EtabsObject.ApplicationStart()
SapModel = EtabsObject.SapModel
ret = SapModel.InitializeNewModel()
ret = SapModel.File.NewSteelDeck(4,12,12,4,4,24,24)
ret = SapModel.PropFrame.SetAngle("ANGLE1", "A992Fy50", 6, 4, 0.5, 0.5)
ret = SapModel.PropFrame.SetAngle("ANGLE2", "A992Fy50", 5, 3, 0.4, 0.4)
ret = SapModel.PropFrame.SetAngle("ANGLE3", "A992Fy50", 4, 2, 0.3, 0.3)
ReDim MyName(2)
MyName(0) = "ANGLE1"
MyName(1) = "ANGLE2"
MyName(2) = "ANGLE3"
ret = SapModel.PropFrame.SetAutoSelectSteel("AUTO1", 3, MyName, "ANGLE2")
EtabsObject.ApplicationExit(False)
SapModel = Nothing
EtabsObject = Nothing
End SubPublic Sub Example()
Dim SapModel As cSapModel
Dim EtabsObject As cOAPI
Dim ret As Integer = -1
Dim MyName() As String
'create ETABS object
EtabsObject = CreateObject("CSI.ETABS.API.ETABSObject")
'start ETABS application
ret = EtabsObject.ApplicationStart()
'create SapModel object
SapModel = EtabsObject.SapModel
'initialize model
ret = SapModel.InitializeNewModel()
'create steel deck template model
ret = SapModel.File.NewSteelDeck(4,12,12,4,4,24,24)
'set new frame section properties
ret = SapModel.PropFrame.SetAngle("ANGLE1", "A992Fy50", 6, 4, 0.5, 0.5)
ret = SapModel.PropFrame.SetAngle("ANGLE2", "A992Fy50", 5, 3, 0.4, 0.4)
ret = SapModel.PropFrame.SetAngle("ANGLE3", "A992Fy50", 4, 2, 0.3, 0.3)
'set new auto select list frame section property
ReDim MyName(2)
MyName(0) = "ANGLE1"
MyName(1) = "ANGLE2"
MyName(2) = "ANGLE3"
ret = SapModel.PropFrame.SetAutoSelectSteel("AUTO1", 3, MyName, "ANGLE2")
'close ETABS
EtabsObject.ApplicationExit(False)
'clean up variables
SapModel = Nothing
EtabsObject = Nothing
End Sub