Add and Delete Features

public Object

Dim element as object

Dim idx as integer

Dim attribute as object

Dim method as object

'just load an element by ID - you must

'substitute a valid ID from your model

element = m_Repository.GetElementByID(246)

''create a new method

method = element.Methods.AddNew("newMethod", "int")

method.Update

element.Methods.Refresh

'now loop through methods for Element - and delete our addition

For idx = 0 to element.Methods.Count-1

   method =element.Methods.GetAt(idx)

   Console.Writeline(method.Name)

   If(method.Name = "newMethod") Then

       element.Methods.Delete(idx)

   End if

Next

'create an attribute

attribute = element.attributes.AddNew("NewAttribute", "int")

attribute.Update

element.attributes.Refresh

'loop through and delete our new attribute

For idx = 0 to element.attributes.Count-1

   attribute =element.attributes.GetAt(idx)

   Console.Writeline(attribute.Name)

   If(attribute.Name = "NewAttribute") Then

       element.attributes.Delete(idx)

   End If

Next