Temas
Tema |
Detalle |
public Object |
''Un ejemplo de cómo crear un diagrama y agregarle un elemento. ''Note el uso opcional de uso de configuración rectangular de elementos ''dimensiones izquierda, derecha, superior e inferior en la llamada 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
'' agregar elemento a diagrama - proveer coordenadas rectangulares 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
|