Repository.Model.IsModelUsed

Syntax
IsModelUsed( ID )

Parameters
 * ID: The ID that will have its use checked.

Usage Example
Dim MyRepository As New Repository Dim Success As Boolean = False Success = MyRepository.ConnectToRepository("RepositoryFileNamePath") MyRepository.Project.SetCurrentProject(0) Dim ListOfModels As NameIdPair ListOfModels = MyRepository.Model.GetAllModelsInfo Dim AModel as cModel AModel = MyRepository.Model.GetModel(20) AModel.Name = "New Name" Dim SuccessUpdateModel As Boolean SuccessUpdateModel = MyRepository.Model.UpdateModel(20) Dim SucessIsModelUsed As Boolean SucessIsModelUsed = MyRepository.Model.IsModelUsed (20) MyRepository.DisconnectFromRepository