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 |