cPropLinkGetMultiLinearPoints Method

Retrieves the force-deformation data for a specified degree of freedom in multilinear elastic and multilinear plastic link properties.

Namespace:  ETABS2016
Assembly:  ETABS2016 (in ETABS2016.dll) Version: 16.0.0.0 (16.0.0.0)
Syntax
Copy
int GetMultiLinearPoints(
	string Name,
	int DOF,
	ref int NumberPoints,
	ref double[] F,
	ref double[] D,
	ref int MyType,
	ref double A1,
	ref double A2,
	ref double B1,
	ref double B2,
	ref double Eta
)

Parameters

Name
Type: SystemString
The name of an existing multilinear elastic or multilinear plastic link property.
DOF
Type: SystemInt32
NumberPoints
Type: SystemInt32
The number of foce-defomation points for the specified degree of freedom.
F
Type: SystemDouble
This is an array, dimensioned to NumberPoints - 1, that includes the force at each point. When DOF is U1, U2 or U3, this is a force. When DOF is R1, R2 or R3. this is a moment. [F] if DOF is less than or equal to 3, and [FL] if DOF is greater than 3.
D
Type: SystemDouble
MyType
Type: SystemInt32
This item applies only to multilinear plastic link properties. It is 1, 2 or 3, indicating the hysteresis type.
MyTpeHysteresis Type
1Kinematic
2Takeda
3Pivot
A1
Type: SystemDouble
A2
Type: SystemDouble
B1
Type: SystemDouble
B2
Type: SystemDouble
Eta
Type: SystemDouble

Return Value

Type: Int32
Returns zero if the data is successfully assigned; otherwise it returns a nonzero value.
Remarks
To successfully retrieve this data from the indicated link property, the following conditions must be met:
  1. The link property must be multilinear elastic or multilinear plastic.
  2. The specified DOF must be active.
  3. The specified DOF must not be fixed.
  4. The specified DOF must be nonlinear.
Examples
VB
Copy
Public Sub Example()
       Dim SapModel As cSapModel
       Dim EtabsObject As cOAPI
       Dim ret As Integer = -1
       Dim MyDOF() As Boolean
       Dim MyFixed() As Boolean
       Dim MyNonLinear() as Boolean
       Dim MyKe() As Double
       Dim MyCe() As Double
       Dim MyF() As Double
       Dim MyD() As Double
       Dim NumberPoints As Integer
       Dim F() As Double
       Dim D() As Double
       Dim MyType As Integer
       Dim a1 As Double
       Dim a2 As Double
       Dim b1 As Double
       Dim b2 As Double
       Dim eta As Double

   '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)

   'add link property
       ReDim MyDOF(5)
       ReDim MyFixed(5)
       ReDim MyNonLinear(5)
       ReDim MyKe(5)
       ReDim MyCe(5)

       MyDOF(0) = True
       MyKe(0) = 12
       MyCe(0) = 0.01

       MyDOF(1) = True
       MyNonLinear(1) = True
       MyKe(1) = 12
       MyCe(1) = 0.01

       MyDOF(2) = True
       MyFixed(2) = True

       ret = SapModel.PropLink.SetMultiLinearPlastic("MLP1", MyDOF, MyFixed, MyNonLinear, MyKe, MyCe, 2, 0)

   'set multilinear force-defomation data
       ReDim MyF(4)
       ReDim MyD(4)

       MyF(0) = -12
       MyF(1) = -10
       MyF(2) = 0
       MyF(3) = 8
       MyF(4) = 9

       MyD(0) = -8
       MyD(1) = -0.6
       MyD(2) = 0
       MyD(3) = 0.2
       MyD(4) = 6

       ret = SapModel.PropLink.SetMultiLinearPoints("MLP1", 2, 5, MyF, MyD, 3, 9, 12, 0.75, 0.8, .1)

   'get multilinear force-defomation data
       ret = SapModel.PropLink.GetMultiLinearPoints("MLP1", 2, NumberPoints, F, D, MyType, a1, a2, b1, b2, eta)

   'close ETABS
       EtabsObject.ApplicationExit(False)

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