Repository.Model.AddModel: Difference between revisions
Jump to navigation
Jump to search
Kate Racaza (talk | contribs) mNo edit summary |
Kate Racaza (talk | contribs) No edit summary |
||
| Line 2: | Line 2: | ||
<onlyinclude>Adds a new model to a | <onlyinclude>Adds a new model to a project. Returns a '''Boolean''' value; when true, indicates a successful save.</onlyinclude> | ||
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. | 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. | ||
| Line 18: | Line 18: | ||
'''VBA''' | '''VBA''' | ||
{{APIComment|' | {{APIComment|'Declare a new Repository object and connect to a Synthesis repository.}} | ||
{{APIPrefix|Dim}} MyRepository {{APIPrefix|As New}} Repository | {{APIPrefix|Dim}} MyRepository {{APIPrefix|As New}} Repository | ||
MyRepository.ConnectToAccessRepository({{APIString|"C:\RSRepository1.rsr10"}}) | |||
{{APIComment|'Create a new model. The following example creates a 2-parameter Weibull reliability model,}} | {{APIComment|'Create a new model. The following example creates a 2-parameter Weibull reliability model,}} | ||
{{APIComment|'with beta = 1 and eta = 100. The model name is "MyNewModel."}} | {{APIComment|'with beta = 1 and eta = 100. The model name is "MyNewModel."}} | ||
{{APIPrefix|Dim}} ModelType {{APIPrefix|As}} ModelTypeEnum | |||
{{APIPrefix|Dim}} ModelCategory {{APIPrefix|As}} ModelCategoryEnum | |||
{{APIPrefix|Dim}} ModelName {{APIPrefix|As String}} | |||
{{APIPrefix|Dim}} ModelParams(2) {{APIPrefix|As Double}} | |||
ModelType = ModelTypeEnum_Weibull2 | |||
ModelCategory = ModelCategoryEnum_Reliability | |||
ModelName = {{APIString|"MyNewModel"}} | |||
ModelParams(0) = 1 | |||
ModelParams(1) = 100 | |||
{{APIPrefix|Dim}} newModel {{APIPrefix|As New}} cModel | |||
{{APIPrefix|Call}} newModel.SetModel(ModelType, ModelCategory, ModelName, ModelParams) | |||
{{APIComment|'Add the new model to project #1.}} | {{APIComment|'Add the new model to project #1.}} | ||
MyRepository.Project.SetCurrentProject(1) | |||
{{APIPrefix|Call}} MyRepository.Model.AddModel(newModel) | |||
'''VB.NET''' | '''VB.NET''' | ||
{{APIComment|' | {{APIComment|'Declare a new Repository object and connect to a Synthesis repository.}} | ||
{{APIPrefix|Dim}} MyRepository {{APIPrefix|As New}} Repository | {{APIPrefix|Dim}} MyRepository {{APIPrefix|As New}} Repository | ||
MyRepository.ConnectToAccessRepository({{APIString|"C:\RSRepository1.rsr10"}}) | |||
{{APIComment|'Create a new model. The following example creates a 2-parameter Weibull reliability model,}} | {{APIComment|'Create a new model. The following example creates a 2-parameter Weibull reliability model,}} | ||
{{APIComment|'with beta = 1 and eta = 100. The model name is "MyNewModel."}} | {{APIComment|'with beta = 1 and eta = 100. The model name is "MyNewModel."}} | ||
{{APIPrefix|Dim}} newModel {{APIPrefix|As New}} cModel(ModelTypeEnum.Weibull2, ModelCategoryEnum.Reliability, {{APIString|"MyNewModel"}}, 1, 100) | |||
{{APIComment|'Add the new model to project #1.}} | {{APIComment|'Add the new model to project #1.}} | ||
MyRepository.Project.SetCurrentProject(1) | |||
MyRepository.Model.AddModel(newModel) | |||
Revision as of 15:45, 8 April 2016
 |
Member of: SynthesisAPI.Repository
Adds a new model to a project. 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 'Declare a new Repository object and connect to a Synthesis repository. Dim MyRepository As New Repository MyRepository.ConnectToAccessRepository("C:\RSRepository1.rsr10") '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 'Declare a new Repository object and connect to a Synthesis repository. Dim MyRepository As New Repository MyRepository.ConnectToAccessRepository("C:\RSRepository1.rsr10") '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)