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