Please note : This help page is not for the latest version of Enterprise Architect. The latest help can be found here.

Add and Manage Packages

Topics

Topic

Detail

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