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