有沒有辦法在Enterprise Architect中刪除多個標記值？

Question

我有元素有10個或更多的標記值，而不是一次刪除這些，有沒有辦法同時刪除這些？

Answer 1

不在GUI中，您必須編寫腳本。

標籤存儲在元素的TaggedValues集合中。當您刪除條目時，會有一個提示向後遍歷集合。

Answer 2

有一個EA的幫助頁面這證實了這個目前還不可能：

要刪除這個屬性，你必須打開元素屬性對話框， 轉到標記值選項卡，並手動刪除該項目。有 目前沒有快捷方式從多個元素 同時刪除標籤。

http://www.sparxsystems.com/enterprise_architect_user_guide/10/modeling_basics/addtaggedvalues.html

Answer 3

由於Uffe指出的那樣，你可以用一個腳本來完成。有關EA腳本的更多信息，請參閱the EA User Guide here。

此處作爲一例是通過刪除名稱標籤的所有實例的單個元素上的VBScript中的一個功能：

function deleteTaggedValueForElement(theElement, theTagName) 

    dim i 
    if not theElement is nothing and Len(theTagName) > 0 then 
     dim tags as EA.Collection 
     set tags = theElement.TaggedValues 

     for i = tags.Count - 1 to 0 step -1 
      dim theTag as EA.TaggedValue 
      set theTag = tags.GetAt(i) 
      if theTag.Name = theTagName then 
       call theElement.TaggedValues.DeleteAt(i, FALSE) 
      end if 
     next 
    end if 

end function 

sub main 
    dim theTagName 
    dim theQuery 
    dim theElements as EA.Collection 

    theTagName = "MyTag" 
    theQuery= "SELECT t_object.Object_ID FROM t_objectproperties INNER JOIN t_object ON t_objectproperties.Object_ID = t_object.Object_ID WHERE t_objectproperties.Property='" & theTagName & "'" 
    set theElements = Repository.GetElementSet(theQuery, 2) 

    dim theElement 
    for each theElement in theElements 
     call deleteTaggedValueForElement(theElement, theTagName) 
    next 

end sub 

main