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


   End if


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



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



   '' 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





End Sub