cSapModelSetPresentUnits Method

Sets the display (present) units.

Namespace:  ETABS2016
Assembly:  ETABS2016 (in ETABS2016.dll) Version: 16.0.0.0 (16.0.0.0)
Syntax
Copy
int SetPresentUnits(
	eUnits Units
)

Parameters

Units
Type: ETABS2016eUnits
One of the items in the eUnits enumeration

Return Value

Type: Int32
Returns zero if the units are successfully set and nonzero if they are not set.
Remarks
Examples
VB
Copy
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 to KN-m
       ret = SapModel.SetPresentUnits(KN_m_C)

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

   'get present units
       Dim presentUnits as eUnits
       presentUnits = SapModel.GetPresentUnits()

   'close ETABS
       EtabsObject.ApplicationExit(False)

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