Temas
Tema |
Detalle |
public Object |
Ejemplo ilustrando 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 agregue un nuevo Modelo
model = m_Repository.Models.AddNew("AdvancedModel","") If not model.Update() Then Console.WriteLine(model.GetLastError()) End If
''actualice la colección de modelos m_Repository.Models.Refresh
''ahora trabaje a través de la colección de modelos y agregue 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
''por propósito de prueba, tan sólo elimine el ''Modelo recién creado y su contenido m_Repository.Models.Delete(idx)
End If Next
End Sub
|