Locks or unlocks the model.
Namespace: ETABS2015Assembly: ETABS2015 (in ETABS2015.dll) Version: 15.0.0.0 (15.0.0.0)
int SetModelIsLocked(
bool Lockit
)
int SetModelIsLocked(
bool Lockit
)
Function SetModelIsLocked ( _
Lockit As Boolean _
) As Integer
int SetModelIsLocked(
bool Lockit
)
int SetModelIsLocked(
bool Lockit
)
Parameters
- Lockit
- Type:
System Boolean
The item is True if the model is to be locked
and False if it is to be unlocked.
Return Value
Returns zero if the locked status of the model is successfully set.
Otherwise it returns a nonzero value.
With some exceptions, definitions and assignments can not be changed
in a model while the model is locked. If an attempt is made to change
a definition or assignment while the model is locked and that change
is not allowed in a locked model, an error will be returned.
Public Sub Example()
Dim SapModel As cSapModel
Dim EtabsObject As cOAPI
Dim ret As Integer = -1
EtabsObject = CreateObject("CSI.ETABS.API.ETABSObject")
ret = EtabsObject.ApplicationStart()
SapModel = EtabsObject.SapModel
ret = SapModel.InitializeNewModel()
ret = SapModel.File.NewSteelDeck(4,12,12,4,4,24,24)
ret = SapModel.SetModelIsLocked(True)
EtabsObject.ApplicationExit(False)
SapModel = Nothing
EtabsObject = Nothing
End SubPublic 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()
'create steel deck template model
ret = SapModel.File.NewSteelDeck(4,12,12,4,4,24,24)
'Lock model
ret = SapModel.SetModelIsLocked(True)
'close ETABS
EtabsObject.ApplicationExit(False)
'clean up variables
SapModel = Nothing
EtabsObject = Nothing
End Sub