SetPresentUnits

cSapModel SetPresentUnits_2 Method

CSi API ETABS 2015

Specifies the units for the model

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

Syntax

int SetPresentUnits_2(
	eForce forceUnits,
	eLength lengthUnits,
	eTemperature temperatureUnits
)

int SetPresentUnits_2(
	eForce forceUnits,
	eLength lengthUnits,
	eTemperature temperatureUnits
)

Function SetPresentUnits_2 ( _
	forceUnits As eForce, _
	lengthUnits As eLength, _
	temperatureUnits As eTemperature _
) As Integer

Function SetPresentUnits_2 ( _
	forceUnits As eForce, _
	lengthUnits As eLength, _
	temperatureUnits As eTemperature _
) As Integer

int SetPresentUnits_2(
	eForce forceUnits, 
	eLength lengthUnits, 
	eTemperature temperatureUnits
)

int SetPresentUnits_2(
	eForce forceUnits, 
	eLength lengthUnits, 
	eTemperature temperatureUnits
)

Parameters

forceUnits: Type: ETABS2015 eForce
A value from the eForce enumeration

lengthUnits: Type: ETABS2015 eLength
A value from the eLength enumeration

temperatureUnits: Type: ETABS2015 eTemperature
A value from the eTemperature enumeration

Return Value

Returns zero if the present units are successfully set, otherwise returns nonzero

Remarks

Examples

C++

Copy to Clipboard Print

Public Sub Example()
       Dim SapModel As cSapModel
       Dim EtabsObject As cOAPI
       Dim ret As Integer = -1 

   '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()

   'set present units
    ret = SapModel.SetPresentUnits_2(ETABS2015.eForce.kN, ETABS2015.eLength.m, ETABS2015.eTemperature.C)

   'create steel deck template model
       ret = SapModel.File.NewSteelDeck(4,12,12,4,4,24,24)

   'get present units 
       Dim forceUnits As ETABS2015.eForce
       Dim lengthUnits As ETABS2015.eLength
       Dim temperatureUnits As ETABS2015.eTemperature
       ret = SapModel.GetPresentUnits_2(forceUnits, lengthUnits, temperatureUnits)

   'run model (this will create the analysis model)
       ret = SapModel.Analyze.RunAnalysis

   '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 

   '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()

   'set present units
    ret = SapModel.SetPresentUnits_2(ETABS2015.eForce.kN, ETABS2015.eLength.m, ETABS2015.eTemperature.C)

   'create steel deck template model
       ret = SapModel.File.NewSteelDeck(4,12,12,4,4,24,24)

   'get present units 
       Dim forceUnits As ETABS2015.eForce
       Dim lengthUnits As ETABS2015.eLength
       Dim temperatureUnits As ETABS2015.eTemperature
       ret = SapModel.GetPresentUnits_2(forceUnits, lengthUnits, temperatureUnits)

   'run model (this will create the analysis model)
       ret = SapModel.Analyze.RunAnalysis

   'close ETABS
       EtabsObject.ApplicationExit(False)

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