cPropFrameGetAutoSelectSteel Method |
Namespace: ETABS2016
int GetAutoSelectSteel( string Name, ref int NumberItems, ref string[] SectName, ref string AutoStartSection, ref string Notes, ref string GUID )
Public Sub Example() Dim SapModel As cSapModel Dim EtabsObject As cOAPI Dim ret As Integer = -1 Dim MyName() As String Dim NumberItems As Integer Dim SectName() As String Dim AutoStartSection As String Dim Notes As String Dim GUID 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") 'get auto select list data ret = SapModel.PropFrame.GetAutoSelectSteel("AUTO1", NumberItems, SectName, AutoStartSection, Notes, GUID) 'close ETABS EtabsObject.ApplicationExit(False) 'clean up variables SapModel = Nothing EtabsObject = Nothing End Sub