Réserver une Démo

SVP notez : Cette page d’aide n’est pas pour la dernière version d’Enterprise Architect. La dernière aide peut être trouvée ici.

Pré. Proc.

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