cAreaObjSetEdgeConstraint Method |
Namespace: ETABS2016
int SetEdgeConstraint( string Name, bool ConstraintExists, eItemType ItemType = eItemType.Objects )
If this item is Objects, the assignment is made to the area object specified by the Name item.
If this item is Group, the assignment is made to all area objects in the group specified by the Name item.
If this item is SelectedObjects, assignment is made to all selected area objects, and the Name item is ignored.
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) 'assign auto edge constraint option ret = SapModel.AreaObj.SetEdgeConstraint("ALL", True, eItemType.Group) ret = SapModel.AreaObj.SetEdgeConstraint("2", False) 'close ETABS EtabsObject.ApplicationExit(False) 'clean up variables SapModel = Nothing EtabsObject = Nothing End Sub