cConstraintSetDiaphragm Method

DEPRECATED. Defines a Diaphragm constraint.

Namespace:  ETABS2016
Assembly:  ETABS2016 (in ETABS2016.dll) Version: 16.0.0.0 (16.0.0.0)
Syntax
Copy
int SetDiaphragm(
	string Name,
	eConstraintAxis Axis = eConstraintAxis.AutoAxis,
	string CSys = "Global"
)

Parameters

Name
Type: SystemString
The name of a constraint.
Axis (Optional)
Type: ETABS2016eConstraintAxis
CSys (Optional)
Type: SystemString
The name of the coordinate system in which the constraint is defined.

Return Value

Type: Int32
Returns zero if the constraint data is successfully added or modified, otherwise it returns a nonzero value.
Remarks
This function is DEPRECATED. Please refer to cDiaphragm.
Examples
VB
Copy
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)

   'define a new constraint
       ret = SapModel.ConstraintDef.SetDiaphragm("Diaph1")

   'close ETABS
       EtabsObject.ApplicationExit(False)

   'clean up variables
       SapModel = Nothing
       EtabsObject = Nothing
   End Sub
See Also