cPropAreaSetModifiers Method |
Assigns property modifiers to an area property.
Namespace:
ETABS2016
Assembly:
ETABS2016 (in ETABS2016.dll) Version: 16.0.0.0 (16.0.0.0)
Syntaxint SetModifiers(
string Name,
ref double[] Value
)
Function SetModifiers (
Name As String,
ByRef Value As Double()
) As Integer
int SetModifiers(
String^ Name,
array<double>^% Value
)
abstract SetModifiers :
Name : string *
Value : float[] byref -> int
Parameters
- Name
- Type: SystemString
The name of an existing area property. - Value
- Type: SystemDouble
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
Type:
Int32Returns zero if the modifiers are successfully assigned;
otherwise it returns a nonzero value.
RemarksThe default value for all modifiers is one.
ExamplesPublic 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 Sub
See Also