Repository.Model.AddModel

Saves a new model in the repository. Returns True if successful, otherwise returns False.

Syntax

• AddModel( m AscModel )As Boolean

Parameters

m: The cModel to add.

Usage Example

In this example, a new model is created and added to a repository.

 '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)

 'Declare a new model using an in-line parameter list. See cModel. 
 Dim newModel As New cModel(ModelTypeEnum.Weibull2, ModelCategoryEnum.Reliability, "NewModel1", 1, 100)
 
 'Add model to the current project. 
 Dim SuccessAddModel As Boolean = False
 SuccessAddModel = MyRepository.Model.AddModel(newModel)
 
 'Disconnect from the repository. 
 MyRepository.DisconnectFromRepository()