cPropMaterialSetSSCurve Method |
Namespace: ETABS2016
int SetSSCurve( string Name, int NumberPoints, ref int[] PointID, ref double[] Strain, ref double[] Stress, double Temp = 0 )
Value | Point ID |
---|---|
-5 | -E |
-4 | -D |
-3 | -C |
-2 | -B |
-1 | -A |
0 | None |
1 | A |
2 | B |
3 | C |
4 | D |
5 | E |
The point IDs must be input in numerically increasing order, except that 0 (None) values are allowed anywhere. No duplicate values are allowed excepth for 0 (None).
Points that have a negative strain must have a zero or negative stress. Similarly, points that have a positive strain must have a zero or positive stress.
There must be one point defined that has zero strain and zero stress.
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.
Public Sub Example() Dim SapModel As cSapModel Dim EtabsObject As cOAPI Dim ret As Integer = -1 Dim PointID() As Integer Dim Strain() As Double Dim Stress() 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) 'initialize new material property ret = SapModel.PropMaterial.SetMaterial("Steel", eMatType.Steel) 'assign other properties ret = SapModel.PropMaterial.SetOSteel("Steel", 55, 68, 60, 70, 0, 1, 0, 0, 0) 'assign user SS curve ReDim PointID(4) ReDim Strain(4) ReDim Stress(4) Strain(0) = -0.003: Stress(0) = -50: PointID(0) = -3 Strain(1) = -0.001: Stress(1) = -25: PointID(1) = 0 Strain(2) = 0: Stress(2) = -0: PointID(2) = 1 Strain(3) = 0.003: Stress(3) = 40: PointID(3) = 0 Strain(4) = 0.008: Stress(4) = 80: PointID(4) = 5 ret = SapModel.PropMaterial.SetSSCurve("Steel", 5, PointID, Strain, Stress) 'close ETABS EtabsObject.ApplicationExit(False) 'clean up variables SapModel = Nothing EtabsObject = Nothing End Sub