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")
  
 'Set a first available project as current. 
 MyRepository.Project.SetCurrentProject(0)

 'Get the list of models in the current project. 
 Dim ListOfModels() As NameIdPair
 ListOfModels = MyRepository.Model.GetAllModelsInfo()
 
 'Retrieve the model with ID = 20. 
 Dim AModel as cModel
 AModel = MyRepository.Model.GetModel(20)
 
 'Change the model's name. 
 AModel.Name = "New Name"
  
 'Update the model in the repository. 
 Dim SuccessUpdateModel As Boolean
 SuccessUpdateModel = MyRepository.Model.UpdateModel(20)

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