cPropMaterialSetDamping Method

Sets the additional material damping data for the material.

Namespace:  ETABS2016
Assembly:  ETABS2016 (in ETABS2016.dll) Version: 16.0.0.0 (16.0.0.0)
Syntax
Copy
int SetDamping(
	string Name,
	double ModalRatio,
	double ViscousMassCoeff,
	double ViscousStiffCoeff,
	double HystereticMassCoeff,
	double HystereticStiffCoeff,
	double Temp = 0
)

Parameters

Name
Type: SystemString
The name of an existing material property.
ModalRatio
Type: SystemDouble
The modal damping ratio.
ViscousMassCoeff
Type: SystemDouble
The mass coefficient for viscous proportional damping.
ViscousStiffCoeff
Type: SystemDouble
The stiffness coefficient for viscous proportional damping.
HystereticMassCoeff
Type: SystemDouble
The mass coefficient for hysteretic proportional damping.
HystereticStiffCoeff
Type: SystemDouble
The stiffness coefficient for hysteretic proportional damping.
Temp (Optional)
Type: SystemDouble
The temperature at which the specified data applies. The temperature must have been previously defined for the material.

This item applies only if the specified material has properties that are temperature dependent. That is, it applies only if properties are specified for the material at more than one temperature.

Return Value

Type: Int32
Returns zero if the data is successfully assigned; otherwise it returns a nonzero value.
Remarks
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)

   'assign material damping data
     ret = SapModel.PropMaterial.SetDamping("4000Psi", 0.04, 0, 0, 0, 0)

   'close ETABS
       EtabsObject.ApplicationExit(False)

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