Repository.Model.AddModel
Jump to navigation
Jump to search
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()