Repository.Model.AddModel
Jump to navigation
Jump to search
Member of: SynthesisAPI.Repository
Adds a new model to a Synthesis repository. Returns a Boolean value; when true, indicates a successful save.
If a model with the same name already exists in the destination project, the name will be incremented automatically. For example, if "Model1" already exists, the new model might be renamed to "Model2," "Model3," etc.
Syntax
.Model.AddModel(m)
Parameters
m
- Required. The cModel object to be added.
Example
This example creates a new model resource, and then saves it in the first available project in a Synthesis repository.
VBA 'Add code to connect to a Synthesis repository. Dim MyRepository As New Repository ... 'Create a new model. The following example creates a 2-parameter Weibull reliability model, 'with beta = 1 and eta = 100. The model name is "MyNewModel." Dim ModelType As ModelTypeEnum Dim ModelCategory As ModelCategoryEnum Dim ModelName As String Dim ModelParams(2) As Double ModelType = ModelTypeEnum_Weibull2 ModelCategory = ModelCategoryEnum_Reliability ModelName = "MyNewModel" ModelParams(0) = 1 ModelParams(1) = 100 Dim newModel As New cModel Call newModel.SetModel(ModelType, ModelCategory, ModelName, ModelParams) 'Add the new model to project #1. MyRepository.Project.SetCurrentProject(1) Call MyRepository.Model.AddModel(newModel)
VB.NET 'Add code to connect to a Synthesis repository. Dim MyRepository As New Repository ... 'Create a new model. The following example creates a 2-parameter Weibull reliability model, 'with beta = 1 and eta = 100. The model name is "MyNewModel." Dim newModel As New cModel(ModelTypeEnum.Weibull2, ModelCategoryEnum.Reliability, "MyNewModel", 1, 100) 'Add the new model to project #1. MyRepository.Project.SetCurrentProject(1) MyRepository.Model.AddModel(newModel)