Retrieves the diaphragm assignment to the specified area object
Namespace: ETABS2015Assembly: ETABS2015 (in ETABS2015.dll) Version: 15.0.0.0 (15.0.0.0)
int GetDiaphragm(
string Name,
ref string DiaphragmName
)
Function GetDiaphragm ( _
Name As String, _
ByRef DiaphragmName As String _
) As Integer
int GetDiaphragm(
String^ Name,
String^% DiaphragmName
)
Parameters
- Name
- Type:
System String
The name of a defined area object.
- DiaphragmName
- Type: System String
The name of the diaphragm assigned to the area object.
This item is "None" if no diaphragm is assigned to the area object.
Return Value
Returns zero if the diaphragm is successfully retrieved;
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