Visibility of assocations in ArchiMate diagrams

In ArchiMate there are multiple ways to define assocations between entities in ArchiMate. The most important and most used approach is to create an association (of any relevant kind) between two concepts. With this approach you have the possibility to create diagrams with elements and associations which are both visible and have the association in the repository so also in reports and other diagrams this association willl be available. 

However in some cases you want to have another diagram technique where you place the one element within the boundaries of an enclosing entity. See for example the diagram below.


In this diagram a display is made which component is relevant for a certain business process. However the associations are not visible and for reporting and other diagrams an association is preferred. What happens then is shown in the diagram below


You can see a number of associations in the diagram but these are already implicit because the one element is enclosed in the other. So one approach can be that we manually hide all the implicit associations. This is cumbersome. Therefore we created the script below so making the associations invisible when an element is enclosed in another diagram. This makes it possible to automatically show and hide associations depending on the position of the entities related to the connection. The code is shown below:

!INC Local Scripts.EAConstants-VBScript

' Klembord handigheidje " ""

Sub VisibleUnvisibleAssocation(currentDiagram)


if not currentDiagram is nothing then

' Get a reference to any selected connector/objects


dim objDL as EA.DiagramLink

Dim objDO as EA.DiagramObject

Dim targetDO as EA.DiagramObject

Dim sourceDO as EA.DiagramObject


dim selectedConnector as EA.Connector

Dim targetID, sourceID


Repository.EnableUIUpdates = false

For each objDL in currentDiagram.DiagramLinks

set selectedConnector = Repository.GetConnectorByID(objDL.ConnectorID)

sourceID = selectedConnector.SupplierID

targetID = selectedConnector.ClientID

session.output targetId

session.output sourceID

For each objDO In currentDiagram.DiagramObjects

Session.output objDO.InstanceID

If objDO.ElementID = targetID Then

Set targetDO = objDO

End If

If objDO.ElementID = sourceID Then

Set sourceDO = objDO

End If


If>= AND targetDO.bottom<=sourceDO.bottom AND targetDO.left<=sourceDO.left AND targetDO.right>=sourceDO.right Then

objDL.IsHidden = true

ElseIf<= AND targetDO.bottom>=sourceDO.bottom AND targetDO.left>=sourceDO.left AND targetDO.right<=sourceDO.right Then

objDL.IsHidden = true


objDL.IsHidden = false

End If

' If (A.xleft> K.xleft AND A.ytop

' If targetDO.left<=sourceDO.left AND>= AND targetDO.right<=sourceDO.right AND targetDO.bottom<=sourceDO.bottom  Then

' objDL.IsHidden = true

' ElseIfsourceDO.left<=targetDO.left AND>= AND sourceDO.right<=targetDO.right AND sourceDO.bottom<=targetDO.bottom  Then

' objDL.IsHidden = true


    ' Else

' objDL.IsHidden = false

' End If



Session.Output(" Verwerkt ")






Repository.EnableUIUpdates = true


Session.Prompt "This script requires a diagram to be visible", promptOK

end if


end sub


It is a function in a library so you can call it from a project browser and from a diagram script entry.





Copyright (c) 2017 Van Roosmalen en Interactory. Ontwerp door FCT.