cPropMaterialSetMassSource Method

DEPRECATED Sets the mass source for the model.

Namespace:  ETABS2016
Assembly:  ETABS2016 (in ETABS2016.dll) Version: 16.0.0.0 (16.0.0.0)
Syntax
Copy
int SetMassSource(
	int MyOption,
	int NumberLoads,
	ref string[] LoadPat,
	ref double[] SF
)

Parameters

MyOption
Type: SystemInt32
This is 1, 2 or 3, indicating the mass source option.
ValueOption
1From element self mass and additional masses
2From loads
3From element self mass and additional masses and loads
NumberLoads
Type: SystemInt32
The number of load patterns from which mass is obtained. This item applies only when MyOption is 2 or 3.
LoadPat
Type: SystemString
This is an array of the names of the load patterns from which mass is obtained. This item applies only when MyOption is 2 or 3.
SF
Type: SystemDouble

Return Value

Type: Int32
Returns zero if the mass source is successfully set; 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 MyLoadPat() As String
       Dim MySF() As Double
       Dim MyOption As Integer
       Dim NumberLoads As Integer
       Dim LoadPat() As String
       Dim sf() 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 mass source
       ReDim MyLoadPat(1)
       ReDim MySF(1)
       MyLoadPat(0) = "DEAD"
       MyLoadPat(1) = "LIVE"
       MySF(0) = 1
       MySF(1) = 0.2
       ret = SapModel.PropMaterial.SetMassSource(3, 2, MyLoadPat, MySF)

   'close ETABS
       EtabsObject.ApplicationExit(False)

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