Agregar y Administrar Diagramas

Superior  Previo  Próximo

Objeto público

' ' un  ejemplo de cómo crear un diagrama y agregarle un elemento 

' ' tenga en cuenta el uso opcional de la configuración rectangular del elemento usando 

' ' las dimensiones izquierda, derecha, arriba y abajo en la llamada a AddNew 

 

Sub DiagramLifeCycle

 

Dim diagram as object 

Dim v as object 

Dim o as object 

Dim package as object 

 

Dim idx as Integer 

Dim idx2 as integer 

 

package = m_Repository.GetPackageByID(5) 

 

diagram = package.Diagrams.AddNew("Logical Diagram","Logical") 

If not diagram.Update Then 

Console.WriteLine(diagram.GetLastError) 

End if 

 

diagram.Notes = "Hello there this is a test" 

diagram.update() 

 

o = package.Elements.AddNew("ReferenceType","Class") 

o.Update 

 

' ' agrega un elemento al diagrama - provea las coordenadas de rectángulo opcionales 

 

v = diagram.DiagramObjects.AddNew("l=200;r=400;t=200;b=600;","") 

v.ElementID = o.ElementID 

v.Update 

 

Console.WriteLine(diagram.DiagramID) 

 

 

End Sub