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 |