public Object

 

Example illustrating how to add a Model or a Package.

 

Sub TestPackageLifecycle

  

   Dim idx as integer

   Dim idx2 as integer

   Dim package as object

   Dim model as object

   Dim o as object

  

   ''first add a new Model

 

   model = m_Repository.Models.AddNew("AdvancedModel","")

   If not model.Update() Then

       Console.WriteLine(model.GetLastError())

   End If

  

   ''refresh the models collection

   m_Repository.Models.Refresh

          

   ''now work through models collection and add a package       

 

   For idx = 0 to m_Repository.Models.Count -1

       o = m_Repository.Models.GetAt(idx)

       Console.WriteLine(o.Name)

       If o.Name = "AdvancedModel" Then

               package = o.Packages.Addnew("Subpackage","Nothing")

               If not package.Update() Then

                   Console.WriteLine(package.GetLastError())

               End If

              

               package.Element.Stereotype = "system"

               package.Update

              

 

               ''for testing purposes just delete the

               ''newly created Model and its contents

               m_Repository.Models.Delete(idx)

 

       End If     

   Next

  

End Sub