GetWeightAndMass Method

cPropLink GetWeightAndMass Method

CSi API ETABS 2015

Assigns weight and mass data to a link property.

Namespace: ETABS2015
Assembly: ETABS2015 (in ETABS2015.dll) Version: 15.0.0.0 (15.0.0.0)

Syntax

int GetWeightAndMass(
	string Name,
	ref double W,
	ref double M,
	ref double R1,
	ref double R2,
	ref double R3
)

int GetWeightAndMass(
	string Name,
	ref double W,
	ref double M,
	ref double R1,
	ref double R2,
	ref double R3
)

Function GetWeightAndMass ( _
	Name As String, _
	ByRef W As Double, _
	ByRef M As Double, _
	ByRef R1 As Double, _
	ByRef R2 As Double, _
	ByRef R3 As Double _
) As Integer

Function GetWeightAndMass ( _
	Name As String, _
	ByRef W As Double, _
	ByRef M As Double, _
	ByRef R1 As Double, _
	ByRef R2 As Double, _
	ByRef R3 As Double _
) As Integer

int GetWeightAndMass(
	String^ Name, 
	double% W, 
	double% M, 
	double% R1, 
	double% R2, 
	double% R3
)

int GetWeightAndMass(
	String^ Name, 
	double% W, 
	double% M, 
	double% R1, 
	double% R2, 
	double% R3
)

Parameters

Name: Type: System String
The name of an existing link property.

W: Type: System Double

M: Type: System Double

R1: Type: System Double
The rotational inertia of the link about its local 1 axis. [ML2]

R2: Type: System Double
The rotational inertia of the link about its local 2 axis. [ML2]

R3: Type: System Double
The rotational inertia of the link about its local 3 axis. [ML2]

Return Value

returns zero if the data is successfully assigned; otherwise it returns a nonzero value.

Remarks

Examples

C++

Copy to Clipboard Print

Public Sub Example()
       Dim SapModel As cSapModel
       Dim EtabsObject As cOAPI
       Dim ret As Integer = -1 
       Dim DOF() As Boolean 
       Dim Fixed() As Boolean 
       Dim Ke() As Double 
       Dim Ce() As Double 
       Dim w As Double 
       Dim m As Double 
       Dim R1 As Double 
       Dim R2 As Double 
       Dim R3 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)

   'add link property 
       ReDim DOF(5)
       ReDim Fixed(5)
       ReDim Ke(5)
       ReDim Ce(5)
       DOF(0) = True
       Ke(0) = 12
       ret = SapModel.PropLink.SetLinear("L1", DOF, Fixed, Ke, Ce, 0, 0)

   'set link property weight and mass
       ret = SapModel.PropLink.SetWeightAndMass("L1", 10, 0.26, 0.0012, 0.0014, 0.0016)

   'get link property weight and mass
       ret = SapModel.PropLink.GetWeightAndMass("L1", w, m, R1, R2, R3)

   'close ETABS
       EtabsObject.ApplicationExit(False)

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

Public Sub Example()
       Dim SapModel As cSapModel
       Dim EtabsObject As cOAPI
       Dim ret As Integer = -1 
       Dim DOF() As Boolean 
       Dim Fixed() As Boolean 
       Dim Ke() As Double 
       Dim Ce() As Double 
       Dim w As Double 
       Dim m As Double 
       Dim R1 As Double 
       Dim R2 As Double 
       Dim R3 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)

   'add link property 
       ReDim DOF(5)
       ReDim Fixed(5)
       ReDim Ke(5)
       ReDim Ce(5)
       DOF(0) = True
       Ke(0) = 12
       ret = SapModel.PropLink.SetLinear("L1", DOF, Fixed, Ke, Ce, 0, 0)

   'set link property weight and mass
       ret = SapModel.PropLink.SetWeightAndMass("L1", 10, 0.26, 0.0012, 0.0014, 0.0016)

   'get link property weight and mass
       ret = SapModel.PropLink.GetWeightAndMass("L1", w, m, R1, R2, R3)

   'close ETABS
       EtabsObject.ApplicationExit(False)

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