Deletes link objects.
Namespace: ETABS2015Assembly: ETABS2015 (in ETABS2015.dll) Version: 15.0.0.0 (15.0.0.0)
int Delete(
string Name,
eItemType ItemType = eItemType.Objects
)
Function Delete ( _
Name As String, _
Optional ItemType As eItemType = eItemType.Objects _
) As Integer
int Delete(
String^ Name,
eItemType ItemType = eItemType::Objects
)
Parameters
- Name
- Type:
System String
The name of an existing link object or group,
depending on the value of the ItemType item.
- ItemType (Optional)
- Type: ETABS2015 eItemType
This is one of the items in the eItemType enumeration.
If this item is Objects, the link object specified by the
Name item is deleted.
If this item is Group, the all link objects in the group
specified by the Name item are deleted.
If this item is SelectedObjects, all selected link objects
are deleted, and the Name item is ignored.
Return Value
Returns zero if the link objects are successfully deleted;
otherwise it returns a nonzero value.
Public Sub Example()
Dim SapModel As cSapModel
Dim EtabsObject As cOAPI
Dim ret As Integer = -1
Dim Name1 As String
Dim Name2 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.LinkObj.AddByPoint("2", "4", Name1)
ret = SapModel.LinkObj.AddByPoint("1", "5", Name2)
ret = SapModel.LinkObj.Delete(Name1)
ret = SapModel.View.RefreshView
EtabsObject.ApplicationExit(False)
SapModel = Nothing
EtabsObject = Nothing
End Sub
Public Sub Example()
Dim SapModel As cSapModel
Dim EtabsObject As cOAPI
Dim ret As Integer = -1
Dim Name1 As String
Dim Name2 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 link object by points
ret = SapModel.LinkObj.AddByPoint("2", "4", Name1)
ret = SapModel.LinkObj.AddByPoint("1", "5", Name2)
'delete link object
ret = SapModel.LinkObj.Delete(Name1)
'refresh view
ret = SapModel.View.RefreshView
'close ETABS
EtabsObject.ApplicationExit(False)
'clean up variables
SapModel = Nothing
EtabsObject = Nothing
End Sub