cPropFrameGetNonPrismatic Method

Assigns data to a nonprismatic frame section property.

Namespace:  ETABS2016
Assembly:  ETABS2016 (in ETABS2016.dll) Version: 16.0.0.0 (16.0.0.0)
Syntax
Copy
int GetNonPrismatic(
	string Name,
	ref int NumberItems,
	ref string[] StartSec,
	ref string[] EndSec,
	ref double[] MyLength,
	ref int[] MyType,
	ref int[] EI33,
	ref int[] EI22,
	ref int Color,
	ref string Notes,
	ref string GUID
)

Parameters

Name
Type: SystemString
The name of an existing frame section property.
NumberItems
Type: SystemInt32
The number of segments assigned to the nonprismatic section.
StartSec
Type: SystemString
This is an array of the names of the frame section properties at the start of each segment.
EndSec
Type: SystemString
This is an array of the names of the frame section properties at the end of each segment.
MyLength
Type: SystemDouble
This is an array that includes the length of each segment. The length may be variable or absolute as indicated by the MyType item. [L] when length is absolute.
MyType
Type: SystemInt32
This is an array of either 1 or 2, indicating the length type for each segment:
ValueMyType
1Variable (relative length)
2Absolute
EI33
Type: SystemInt32
This is an array of 1, 2 or 3, indicating the variation type for EI33 in each segment:
ValueEI33
1Linear
2Parabolic
2Cubic
EI22
Type: SystemInt32
This is an array of 1, 2 or 3, indicating the variation type for EI22 in each segment:
ValueEI22
1Linear
2Parabolic
2Cubic
Color
Type: SystemInt32
Notes
Type: SystemString
GUID
Type: SystemString
The GUID (global unique identifier), if any, assigned to the section.

Return Value

Type: Int32
Returns zero if the data is 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 StartSec() As String
       Dim EndSec() As String
       Dim Length() As Double
       Dim SegType() As Integer
       Dim EI33() As Integer
       Dim EI22() As Integer
       Dim NumberItems As Integer
       Dim MyStartSec() As String
       Dim MyEndSec() As String
       Dim MyLength() As Double
       Dim MySegType() As Integer
       Dim MyEI33() As Integer
       Dim MyEI22() As Integer
       Dim Color As Integer
       Dim Notes As String
       Dim GUID As String

   '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 I-type frame section property
       ret = SapModel.PropFrame.SetISection("ISEC1", "A992Fy50", 24, 10, 0.5, 0.3, 14, 0.6)

   'set new I-type frame section property
       ret = SapModel.PropFrame.SetISection("ISEC2", "A992Fy50", 36, 15, 1, 0.5, 121, 0.9)

    'set new nonprismatic frame section property
       ReDim StartSec(2)
       ReDim EndSec(2)
       ReDim Length(2)
       ReDim SegType(2)
       ReDim EI33(2)
       ReDim EI22(2)
       StartSec(0) = "ISEC2"
       EndSec(0) = "ISEC1"
       Length(0) = 60
       SegType(0) = 2
       EI33(0)= 2
       EI22(0)= 1

       StartSec(1) = "ISEC1"
       EndSec(1) = "ISEC1"
       Length(1) = 1
       SegType(1) = 1
       EI33(1)= 2
       EI22(1)= 1

       StartSec(2) = "ISEC1"
       EndSec(2) = "ISEC2"
       Length(2) = 60
       SegType(2) = 2
       EI33(2)= 2
       EI22(2)= 1

       ret = SapModel.PropFrame.SetNonPrismatic("NP1", 3, StartSec, EndSec, Length, SegType, EI33, EI22)

   'get nonprismatic section data
        ret = SapModel.PropFrame.GetNonPrismatic("NP1", MyNumberItems, MyStartSec, MyEndSec, MyLength, MySegType, MyEI33, MyEI22, Color, Notes, GUID)

   'close ETABS
       EtabsObject.ApplicationExit(False)

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