Adding a set of attributes to a large number of elements

[Bulent]

Is there a quick way of adding the same set of attributes to a large number of elements?

[qwerty]

No. EA still is not OO in many respects. The only way is to write a script (which is fairly easy).

q.

[Paolo F Cantoni]

Is there a quick way of adding the same set of attributes to a large number of elements?

You can drag a set of attributes from the browser of one element to another element on a diagram (thereby adding a copy to the destination).  However, if you have VERY many that's still tedious.

Paolo

[Guillaume]

Here is a suggested script to create the same attributes on the classes within the selected package. It can be improved to loop through the subpackages, only update classes with a given criteria such as a tagged value, etc.

Code: [Select]

option explicit
!INC Local Scripts.EAConstants-VBScript   
'
' Script Name: Populate attributes (package script)
' Author: Guillaume[at]umlchannel.com
' Purpose: Create the same set of attributes on each class within the selected package
' Date: 6/09/2017

sub OnProjectBrowserScript()
' Get the type of element selected in the Project Browser
dim treeSelectedType
treeSelectedType = Repository.GetTreeSelectedItemType()
select case treeSelectedType'
case otPackage
dim thePackage as EA.Package
set thePackage = Repository.GetTreeSelectedObject()
dim allObjects as EA.Collection
dim currentElement
set allObjects = thePackage.Elements
dim i
for i = 0 to allObjects.Count - 1
set currentElement = allObjects.GetAt( i )
if currentElement.Type = "Class" then
addAttribute currentElement, "attr1"
addAttribute currentElement, "attr2"
addAttribute currentElement, "attr3"
end if
next
case else
' Error message
Session.Prompt "This script does not support items of this type.", promptOK
end select
end sub

sub addAttribute(ClassToProcess, attributeName)
dim attributes as EA.Collection
set attributes = ClassToProcess.Attributes
dim newAttribute as EA.Attribute
set newAttribute = attributes.AddNew( attributeName, "" )
newAttribute.Update()
attributes.Refresh()
end sub

OnProjectBrowserScript

Hope it helps.