1
General Board / Re: Bulk creation of relationships
« on: July 11, 2024, 10:28:31 am »
This is something that i run in excel vba :
Function addConnector(SourceElementID, TargetElementID, ConnectorType, connectorname, connectordirection)
Dim SourceElement As EA.element
Dim newconnector As EA.connector
Dim repository As EA.repository
Set eaapp = GetObject(, "EA.App")
Set repository = eaapp.repository
Set SourceElement = repository.GetElementByID(SourceElementID)
Set newconnector = SourceElement.connectors.AddNew(" ", ConnectorType)
newconnector.SupplierID = TargetElementID
newconnector.Name = connectorname
newconnector.Direction = connectordirection
newconnector.Update
Set addConnector = newconnector
End Function
you will need the source and target ids to run this
Function addConnector(SourceElementID, TargetElementID, ConnectorType, connectorname, connectordirection)
Dim SourceElement As EA.element
Dim newconnector As EA.connector
Dim repository As EA.repository
Set eaapp = GetObject(, "EA.App")
Set repository = eaapp.repository
Set SourceElement = repository.GetElementByID(SourceElementID)
Set newconnector = SourceElement.connectors.AddNew(" ", ConnectorType)
newconnector.SupplierID = TargetElementID
newconnector.Name = connectorname
newconnector.Direction = connectordirection
newconnector.Update
Set addConnector = newconnector
End Function
you will need the source and target ids to run this