cPropFrameGetModifiers Method

Retrieves the modifier assignments for a frame section property. The default value for all modifiers is one.

Namespace:  ETABS2016
Assembly:  ETABS2016 (in ETABS2016.dll) Version: 16.0.0.0 (16.0.0.0)
Syntax
Copy
int GetModifiers(
	string Name,
	ref double[] Value
)

Parameters

Name
Type: SystemString
The name of an existing frame section property.
Value
Type: SystemDouble
This is an array of eight unitless modifiers:
ValueModifier
Value(0)Cross sectional area modifier
Value(1)Shear area in local 2 direction modifier
Value(2)Shear area in local 3 direction modifier
Value(3)Torsional constant modifier
Value(4)Moment of inertia about local 2 axis modifier
Value(5)Moment of inertia about local 3 axis modifier
Value(6)Mass modifier
Value(7)Weight modifier

Return Value

Type: Int32
Returns zero if the modifier assignments are successfully retrieved; 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
       Dim i As Integer
       Dim Value() As Double
       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)

   'set new frame section property
       ret = SapModel.PropFrame.SetISection("ISEC1", "A992Fy50", 24, 10, 0.5, 0.3, 14, 0.6)

   'assign modifiers
       ReDim Value(7)
       For i = 0 To 7
          Value(i) = 1
       Next i
       Value(5) = 100
       ret = SapModel.PropFrame.SetModifiers("ISEC1", Value)

   'get modifiers
       ret = SapModel.PropFrame.GetModifiers("ISEC1", MyValue)

   'close ETABS
       EtabsObject.ApplicationExit(False)

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