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