Add a Connector

Topics

Topic

Detail

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 ElementIDs to quickly load an element in this example

   ''... you must find suitable IDs 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