cLinkObjDelete Method |
Namespace: ETABS2016
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.
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