Deletes a specified tendon property.
Namespace: ETABS2015Assembly: ETABS2015 (in ETABS2015.dll) Version: 15.0.0.0 (15.0.0.0)
int Delete(
string Name
)
Function Delete ( _
Name As String _
) As Integer
int Delete(
String^ Name
)
Parameters
- Name
- Type:
System String
The name of an existing tendon property.
Return Value
Returns zero if the property is successfully deleted; otherwise it returns a nonzero value.
It returns an error if the specified property can not be deleted, for example,
if it is assigned to an existing object.
Public Sub Example()
Dim SapModel As cSapModel
Dim EtabsObject As cOAPI
Dim ret As Integer = -1
Dim Name 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.PropMaterial.AddQuick(Name, ETABS2013.eMatType.Tendon, , , , , , ETABS2013.eMatTypeTendon.ASTM_A416Gr270)
ret = SapModel.PropTendon.SetProp("T1", Name, 1, 2.25)
ret = SapModel.PropTendon.SetProp("T2", Name, 1, 3.25)
ret = SapModel.PropTendon.Delete("T1")
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 Name 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, ETABS2013.eMatType.Tendon, , , , , , ETABS2013.eMatTypeTendon.ASTM_A416Gr270)
'set new tendon properties
ret = SapModel.PropTendon.SetProp("T1", Name, 1, 2.25)
ret = SapModel.PropTendon.SetProp("T2", Name, 1, 3.25)
'delete tendon property
ret = SapModel.PropTendon.Delete("T1")
'close ETABS
EtabsObject.ApplicationExit(False)
'clean up variables
SapModel = Nothing
EtabsObject = Nothing
End Sub