cPropTendonGetNameList Method |
Namespace: ETABS2016
The array is dimensioned to (NumberNames - 1) inside the program, filled with the names, and returned to the API user.
Public Sub Example() Dim SapModel As cSapModel Dim EtabsObject As cOAPI Dim ret As Integer = -1 Dim Name As String Dim NumberNames As Integer 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) 'add tendon material ret = SapModel.PropMaterial.AddQuick(Name, eMatType.Tendon, , , , , , eMatTypeTendon.ASTM_A416Gr270) 'set new tendon property ret = SapModel.PropTendon.SetProp("T1", Name, 1, 2.25) 'get tendon property names ret = SapModel.PropTendon.GetNameList(NumberNames, MyName) 'close ETABS EtabsObject.ApplicationExit(False) 'clean up variables SapModel = Nothing EtabsObject = Nothing End Sub