Prev | Next |
Add a Connector
This is an example of code to add a connector and set its 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