Add a Connector

Return to Introduction  Previous page  Next page

public Object

 

"Add a connector and set values.

 

Sub ConnectorTest

 

   Dim source as object

   Dim target as object

   Dim con as object

   Dim o as object

  

   Dim client as object

   Dim supplier as object

      

   ''use ElementID's to quickly load an element in this example

   ''... you must find suitable ID's in your model

  

   source = m_Repository.GetElementByID(129)

   target = m_Repository.GetElementByID(169)

  

   con = source.Connectors.AddNew ("test link 2", "Association")

  

   ''again- replace ID with a suitable one from your model

   con.SupplierID = 169

  

   If not con.Update Then

       Console.WriteLine(con.GetLastError)

   End If 

   source.Connectors.Refresh

  

   Console.WriteLine("Connector Created")

  

   o = con.Constraints.AddNew ("constraint2","type")

   If not o.Update Then

       Console.WriteLine(o.GetLastError)

   End If

  

   o = con.TaggedValues.AddNew ("Tag","Value")

   If not o.Update Then

       Console.WriteLine(o.GetLastError)

   End If

  

       ''use the client and supplier ends to set

       ''additional information      

         

   client = con.ClientEnd

   client.Visibility = "Private"

   client.Role = "m_client"

   client.Update

   supplier = con.SupplierEnd

   supplier.Visibility = "Protected"

   supplier.Role = "m_supplier"

   supplier.Update

  

   Console.WriteLine("Client and Supplier set")

  

   Console.WriteLine(client.Role)

   Console.WriteLine(supplier.Role)

 

End Sub