Agregar y Administrar Paquetes

Superior  Previo  Próximo

Objeto público

Ejemplo que muestra como agregar un Modelo o un Paquete  

 

Sub TestPackageLifecycle

 

Dim idx as integer 

Dim idx2 as integer 

Dim package as object 

Dim model as object 

Dim o as object 

 

' ' primero agrega un nuevo Modelo

 

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

If not model.Update() Then 

Console.WriteLine(model.GetLastError()) 

End If 

 

' ' refresca la colección de modelos

m_Repository.Models.Refresh 

 

' ' ahora trabaja a través de la colección de modelos y agrega un paquete

 

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 

 

      ' ' sólo para propósitos de prueba elimina 

      ' ' el Modelo recientemente creado y sus contenidos

       m_Repository.Models.Delete(idx) 

 

      End If 

Next 

 

End Sub