Repository.Model.IsModelUsed

Version 10 Only- Checks if the model is currently in use by other items.

Syntax

IsModelUsed(ByVal ID As Integer) As Boolean

Parameters

ID: The ID that will have its use checked.

Usage Example

 'Declare a new repository connection object. 
 Dim MyRepository As New Repository
 
 'Connect to the Synthesis repository. 
 Dim Success As Boolean = False
 Success = MyRepository.ConnectToRepository("RepositoryFileNamePath")
 
 'Get the list of models in the connected repository. 
 Dim ListOfModels() As NameIdPair
 ListOfModels = MyRepository.GetAllModelsInfo()
 
 'Retrieve the model with ID = 20. 
 Dim AModel as cModel
 AModel = MyRepository.GetModel(20)
 
 'Change the model's name. 
 AModel.Name = "New Name"
  
 'Update the model in the repository. 
 Dim SuccessUpdateModel As Boolean
 SuccessUpdateModel = MyRepository.UpdateModel(20)

 'Check to see if Model 20 is being used. 
 Dim SucessIsModelUsed As Boolean
 SucessIsModelUsed = MyRepository.IsModelUsed (20)
   
 'Disconnect from the repository. 
 MyRepository.DisconnectFromRepository