cPropMaterialGetWeightAndMass Method |
Namespace: ETABS2016
This item applies only if the specified material has properties that are temperature dependent. That is, it applies only if properties are specified for the material at more than one temperature.
Public Sub Example() Dim SapModel As cSapModel Dim EtabsObject As cOAPI Dim ret As Integer = -1 Dim w As Double Dim m 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) 'initialize new material property ret = SapModel.PropMaterial.SetMaterial("Steel", eMatType.Steel) 'assign material property weight per unit volume ret = SapModel.PropMaterial.SetWeightAndMass("Steel", 1, 0.00029) 'get material weight and mass per unit volume ret = SapModel.PropMaterial.GetWeightAndMass("Steel", w, m) 'close ETABS EtabsObject.ApplicationExit(False) 'clean up variables SapModel = Nothing EtabsObject = Nothing End Sub