Assigns property modifiers to an area property.
Namespace: ETABS2015Assembly: ETABS2015 (in ETABS2015.dll) Version: 15.0.0.0 (15.0.0.0)
int SetModifiers(
string Name,
ref double[] Value
)
Function SetModifiers ( _
Name As String, _
ByRef Value As Double() _
) As Integer
int SetModifiers(
String^ Name,
array<double>^% Value
)
Parameters
- Name
- Type:
System String
The name of an existing area property.
- Value
- Type: System Double
An array of 10 unitless modifiers.
| Value | Modifier |
|---|
| Value(0) | Membrane f11 modifier |
| Value(1) | Membrane f22 modifier |
| Value(2) | Membrane f12 modifier |
| Value(3) | Bending m11 modifier |
| Value(4) | Bending m22 modifier |
| Value(5) | Bending m12 modifier |
| Value(6) | Shear v13 modifier |
| Value(7) | Shear v23 modifier |
| Value(8) | Mass modifier |
| Value(9) | Weight modifier |
Return Value
Returns zero if the modifiers are successfully assigned;
otherwise it returns a nonzero value.
The default value for all modifiers is one.
Public Sub Example()
Dim SapModel As cSapModel
Dim EtabsObject As cOAPI
Dim ret As Integer = -1
Dim i As Integer
Dim MyValue() As Double
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)
ReDim MyValue(9)
For i = 0 To 9
MyValue(i) = 1
Next i
MyValue(0) = 0.1
ret = SapModel.PropArea.SetModifiers("SLAB1", MyValue)
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 i As Integer
Dim MyValue() 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)
'assign modifiers
ReDim MyValue(9)
For i = 0 To 9
MyValue(i) = 1
Next i
MyValue(0) = 0.1
ret = SapModel.PropArea.SetModifiers("SLAB1", MyValue)
'close ETABS
EtabsObject.ApplicationExit(False)
'clean up variables
SapModel = Nothing
EtabsObject = Nothing
End Sub