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
|