Assigns a diaphragm to a specified area object
Namespace: ETABS2015Assembly: ETABS2015 (in ETABS2015.dll) Version: 15.0.0.0 (15.0.0.0)
int SetDiaphragm(
string Name,
string DiaphragmName
)
Function SetDiaphragm ( _
Name As String, _
DiaphragmName As String _
) As Integer
int SetDiaphragm(
String^ Name,
String^ DiaphragmName
)
Parameters
- Name
- Type:
System String
The name of an existing area object
- DiaphragmName
- Type: System String
This the name of an existing diaphragm to be assigned to the specified
area object. If it is "None", no diaphragm will be assigned to the area object.
Return Value
Returns zero if the diaphragm is successfully assigned;
otherwise it returns a nonzero value.
Public Sub Example()
Dim SapModel As cSapModel
Dim EtabsObject As cOAPI
Dim ret As Integer = -1
Dim DiaphragmName 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.Diaphragm.SetDiaphragm("MyDiaph1A", SemiRigid:=True)
ret = SapModel.AreaObj.SetDiaphragm("4", "MyDiaph1A")
ret = SapModel.AreaObj.GetDiaphragm("4", DiaphragmName)
EtabsObject.ApplicationExit(False)
SapModel = Nothing
EtabsObject = Nothing
End SubPublic Sub Example()
Dim SapModel As cSapModel
Dim EtabsObject As cOAPI
Dim ret As Integer = -1
Dim DiaphragmName 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)
'define a new diaphragm
ret = SapModel.Diaphragm.SetDiaphragm("MyDiaph1A", SemiRigid:=True)
'assign diaphragm to area
ret = SapModel.AreaObj.SetDiaphragm("4", "MyDiaph1A")
'get area diaphragm assignment
ret = SapModel.AreaObj.GetDiaphragm("4", DiaphragmName)
'close ETABS
EtabsObject.ApplicationExit(False)
'clean up variables
SapModel = Nothing
EtabsObject = Nothing
End Sub