cPointObjDeleteRestraint Method |
Namespace: ETABS2016
If Objects is selected, the Name item refers to a point object. The restraint assignments for that point object are removed.
If Group is selected, the Name item refers to a group. The restraint assignments for all point objects in the group are removed.
If SelectedObjects is selected, the Name item is ignored. The restraint assignments for all selected point objects are removed.
Public Sub Example() Dim SapModel As cSapModel Dim EtabsObject As cOAPI Dim ret As Integer = -1 '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) 'delete joint restraint assignment ret = SapModel.PointObj.DeleteRestraint("65") 'close ETABS EtabsObject.ApplicationExit(False) 'clean up variables SapModel = Nothing EtabsObject = Nothing End Sub