My Profile
Help
Hot Topics
Top Community Contributors
Displaying items by tag: script
ArchiMate Search helper in EA
Introduction
One of the challenges of a teambased architecture repository based on the ArchiMate language is to reduce the number of duplicate entities. With duplicates I mean an Archimate concept with the same name and stereotype that has two or more instances in the repository.
Especially in large repositories with a complex project browser configuration and a large number of modellers the changes of duplicates are substantial. Therefore mostly a procedure is introduced based on the steps that a modeller has to do a repository search before he or she can actually add an element from the toolbox and modify it
Search
For searching for elements in the repository there is a search dialog availabe that opens by default in a simple common search that searches for a text in all the items. This works fine but has a number of limitations for an ArchiMate modeller:
- The search is relatively slow
- The modeller is not interested in the full content but only in ArchiMate elements of a specific type.
Luckily we can define our own searches in EA and an example of a ArchiMate specific search is shown bin the image below:
In this image you see that we can search for application components only and the list is by default sorted by objectname. This will help us in a later stage in user friendliness. The SQL statement is given below.
SELECT t_object.ea_guid AS CLASSGUID, t_object.name as ObjectName, t_object.Stereotype, ParentPkg.Name as ParentName, t_object.ModifiedDate, t_object.Author, t_object.[Version], t_object.[Alias], t_object.Object_Type as CLASSTYPE,t_object.Note as Notes FROM t_object, t_package as ParentPkg WHERE (t_object.name LIKE '#WC#[Search Term]#WC#' OR '[Search Term]'='') AND t_object.stereotype IN('ArchiMate_ApplicationComponent') AND t_object.Package_ID = ParentPkg.Package_ID ORDER BY t_object.Name
The trick is in two parts of the select statement:
- The first one is that we filter on the stereotype of the element so we only see a limited number of elements based on that stereotype
- The second is that we do a trick with the search term. We combine a search term search with a full search so you can see all the elements when the search term is empty
Model view
This helps us a lot in finding the relevant elements relatively fast however the search screen has a number of limitations in which selecting all the time the right query is relatively user unfriendly. However luckily Enterprise Architect has another screen for implementing this user friendly approach in a convenient way: the model view.
In the modelview you can define your own search view and link these views to a search in the search component of EA. See the picture below
In this screen you see a sample of a number of ArchiMate specific searches based on their stereotype. When you expand one of these searches you get the list of elements based on this stereotype. Since we have a combination of a keyword search and a full search (on the stereotype) the modeller can select the approach that best fits his needs. In the view you can select an element by typing in the first characters another option is to open the conext menu and go to the search function in EA and now we open the richt search immediately.
Download
For download of this solution or for downloading other scripts or add ons please visit the eaxpertise website.
Automatically trace elements to domain model in Enterprise Architect
This script will search the text in the comments, scenario’s and linked document of the selected elements for terms in the domain model. If it finds a match it will create a trace from your selected element to the element in the domain model.
The idea is that when we write descriptions and scenario’s we often use terms already defined in the domain model, so it would be good if we had a real trace from the element in the domain model and the element using it in its description.
But it is hard to keep the descriptions and scenario’s in sync with the traces to the domain model. This script does the hard part for us and keeps those traces in sync. All you need to do is type your description and run the script. The script will find the referenced elements in the domain model and create a trace link to it. It will also remove any automatic traces that are not valid anymore.
Next to the Name, Notes, and the Linked Document, this script will also search the scenarios, both theScenario Description, as the structured Scenario Steps. In case of a Scenario Step the script will insert to the name of the domain model element in the Uses column.
Note that the script is case sensitive. That is the reason why RoomType does not appear in the uses column. Enterprise Architect itself isn’t that picky, and it underlines Roomtype anyway because it finds a relationship to RoomType.
In order to execute the script you have to select either one or more elements in the project browser, or select a package in the project browser.
Then select Script|Link To Domain Model
Free download
The script
In the first part we ask the user to select the domain model package.
If you want to use this script on a particular model you may want to replace that by a hard coding the Domain models GUID into the script.
Since this script may run for a while on a large model, we also create an output tab so we can inform the user of our progress.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
sub main 'let the user select the domain model package dim response response = Msgbox ( "Please select the domain model package" , vbOKCancel+vbQuestion, "Selecte domain model" ) if response = vbOK then dim domainModelPackage as EA.Package set domainModelPackage = selectPackage() if not domainModelPackage is nothing then Repository.CreateOutputTab "Link to Domain Model" Repository.ClearOutput "Link to Domain Model" Repository.EnsureOutputVisible "Link to Domain Model" 'link selected elements to the domain model elements linkSelectionToDomainModel(domainModelPackage) 'tell the user we are done Repository.WriteOutput "Link to Domain Model" , "Finished!" , 0 end if end if end sub |
Next we create a dictionary of all classes in domain model package and all of the sub-packages recursively.
1
2
3
4
5
6
7
8
|
'first get the pattern from all the classes in the domain model dim dictionary Set dictionary = CreateObject( "Scripting.Dictionary" ) 'create domain model dictionary 'tell the user what we are doing Repository.WriteOutput "Link to Domain Model" , "Creating domain model dictionary" , 0 addToClassDictionary domainModelPackage.PackageGUID, dictionary |
Based on this dictionary we can create one large Regular Expression that will tell us which of the terms in the dictionary are used in a certain text.
1
2
3
4
5
6
7
8
9
|
' and prepare the regex object dim pattern 'create the pattern based on the names in the dictionary pattern = createRegexPattern(dictionary) Dim regExp Set regExp = CreateObject( "VBScript.RegExp" ) regExp.Global = True regExp.IgnoreCase = False regExp.Pattern = pattern |
Then we check what is selected in the project browser. If the user has selected one or more elements we start process those elements. If a package is selected then we process the elements in the selected package.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
' Get the type of element selected in the Project Browser dim treeSelectedType treeSelectedType = Repository.GetTreeSelectedItemType() ' Either process the selected Element, or process all elements in the selected package select case treeSelectedType case otElement ' Code for when an element is selected dim selectedElements as EA.Collection set selectedElements = Repository.GetTreeSelectedElements() 'link the selected elements with the linkDomainClassesWithElements dictionary,regExp,selectedElements case otPackage ' Code for when a package is selected dim selectedPackage as EA.Package set selectedpackage = Repository.GetTreeSelectedObject() 'link use domain classes with the elements in the selected package linkDomainClassesWithElementsInPackage dictionary, regExp,selectedPackage case else ' Error message Session.Prompt "You have to select Elements or a Package" , promptOK end select |
Here’s the complete code for the script.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
|
option explicit !INC Local Scripts.EAConstants-VBScript ' ' Script Name: Link to Domain Model ' Author: Geert Bellekens ' Purpose: Link elements with classes in the domain model based on their name. ' Date: 15/11/2015 ' sub main 'let the user select the domain model package dim response response = Msgbox ( "Please select the domain model package" , vbOKCancel+vbQuestion, "Selecte domain model" ) if response = vbOK then dim domainModelPackage as EA.Package set domainModelPackage = selectPackage() if not domainModelPackage is nothing then Repository.CreateOutputTab "Link to Domain Model" Repository.ClearOutput "Link to Domain Model" Repository.EnsureOutputVisible "Link to Domain Model" 'link selected elements to the domain model elements linkSelectionToDomainModel(domainModelPackage) 'tell the user we are done Repository.WriteOutput "Link to Domain Model" , "Finished!" , 0 end if end if end sub 'this is the actual call to the main function main function linkSelectionToDomainModel(domainModelPackage) 'first get the pattern from all the classes in the domain model dim dictionary Set dictionary = CreateObject( "Scripting.Dictionary" ) 'create domain model dictionary 'tell the user what we are doing Repository.WriteOutput "Link to Domain Model" , "Creating domain model dictionary" , 0 addToClassDictionary domainModelPackage.PackageGUID, dictionary 'tell the user what we are doing Repository.WriteOutput "Link to Domain Model" , "Interpreting dictionary" , 0 ' and prepare the regex object dim pattern 'create the pattern based on the names in the dictionary pattern = createRegexPattern(dictionary) Dim regExp Set regExp = CreateObject( "VBScript.RegExp" ) regExp.Global = True regExp.IgnoreCase = False regExp.Pattern = pattern ' Get the type of element selected in the Project Browser dim treeSelectedType treeSelectedType = Repository.GetTreeSelectedItemType() ' Either process the selected Element, or process all elements in the selected package select case treeSelectedType case otElement ' Code for when an element is selected dim selectedElements as EA.Collection set selectedElements = Repository.GetTreeSelectedElements() 'link the selected elements with the linkDomainClassesWithElements dictionary,regExp,selectedElements case otPackage ' Code for when a package is selected dim selectedPackage as EA.Package set selectedpackage = Repository.GetTreeSelectedObject() 'link use domain classes with the elements in the selected package linkDomainClassesWithElementsInPackage dictionary, regExp,selectedPackage case else ' Error message Session.Prompt "You have to select Elements or a Package" , promptOK end select end function 'this function will get all elements in the given package and subpackages recursively and link them to the domain classes function linkDomainClassesWithElementsInPackage(dictionary,regExp,selectedPackage) dim packageList set packageList = getPackageTree(selectedPackage) dim packageIDString packageIDString = makePackageIDString(packageList) dim getElementsSQL getElementsSQL = "select o.Object_ID from t_object o where o.Package_ID in (" & packageIDString & ")" dim usecases set usecases = getElementsFromQuery(getElementsSQL) linkDomainClassesWithElements dictionary,regExp,usecases end function function linkDomainClassesWithElements(dictionary,regExp,elements) dim element as EA.Element 'loop de elements for each element in elements 'tell the user what we are doing Repository.WriteOutput "Link to Domain Model" , "Linking element: " & element.Name, 0 'first remove all automatic traces removeAllAutomaticTraces element 'match based on notes and linked document dim elementText 'get full text (name +notes + linked document + scenario names + scenario notes) elementText = element.Name elementText = elementText & vbNewLine & Repository.GetFormatFromField( "TXT" ,element.Notes) elementText = elementText & vbNewLine & getLinkedDocumentContent(element, "TXT" ) elementText = elementText & vbNewLine & getTextFromScenarios(element) dim matches set matches = regExp.Execute(elementText) 'for each match create a «trace» link with the element linkMatchesWithelement matches, element, dictionary 'link based on text in scenariosteps dim scenario as EA.Scenario 'get all dependencies left dim dependencies set dependencies = getDependencies(element) 'loop scenarios for each scenario in element.Scenarios dim scenarioStep as EA.ScenarioStep for each scenarioStep in scenario.Steps 'first remove any additional terms in the uses field scenarioStep.Uses = removeAddionalUses(dependencies, scenarioStep.Uses) set matches = regExp.Execute(scenarioStep.Name) dim classesToMatch set classesToMatch = getClassesToMatchDictionary(matches, dictionary) dim classToMatch as EA.Element for each classToMatch in classesToMatch.Items if not instr(scenarioStep.Uses,classToMatch.Name) > 0 then scenarioStep.Uses = scenarioStep.Uses & " " & classToMatch.Name end if 'create the dependency between the use case and the domain model class linkElementsWithAutomaticTrace element, classToMatch next 'save scenario step scenarioStep.Update scenario.Update next next next end function function linkMatchesWithelement(matches, element, dictionary) dim classesToMatch
|