cLinkObjSetSelected Method |
Namespace: ETABS2016
If this item is Objects, the selected status is set for the link object specified by the Name item.
If this item is Group, the selected status is set for all link objects in the group specified by the Name item.
If this item is SelectedObjects, the selected status is set for all selected link objects, and the Name item is ignored.
Public 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 link object by points ret = SapModel.LinkObj.AddByPoint("1", "5", Name) 'set link object selected ret = SapModel.LinkObj.SetSelected("ALL", True, eItemType.Group) 'update view ret = SapModel.View.RefreshView 'close ETABS EtabsObject.ApplicationExit(False) 'clean up variables SapModel = Nothing EtabsObject = Nothing End Sub