Add and Manage Diagrams

public Object

''An example of how to create a diagram and add an element to it.

''Note the optional use of element rectangle setting using

''left,right,top and bottom dimensions in AddNew call.

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

   '' add element to diagram - supply optional rectangle co-ordinates

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

   v.ElementID = o.ElementID

   v.Update

   Console.WriteLine(diagram.DiagramID)

End Sub