Please note : This help page is for an older version of Enteprise Archtiect. The latest help can be found here.

Topic
Prev Next

Add and Manage Packages

This example illustrates how to add a Model or a Package to the project.

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