我尝试使用VBA脚本自动化Enterprise Architect中元素之间的可追溯性。如果元素之间已经存在可追溯性,那么我需要跳过这些元素。
我使用一个简单的查询编写,其中EAP中存在对象ID。
set useCaseCollection = Repository.GetElementSet("select Start_Object_ID from t_connector where (Start_Object_ID = -1222814411 and End_Object_ID = 505879126 and Connector_Type = 'Realisation')",2)
If Err.Number <> 0 Then
Session.Output( useCaseCollection.Count)
End if
On Error Goto 0
现在的问题是,如果元素之间存在可追溯性,我将得到一个异常,因为在集合中找不到项目。如果没有可追溯性,那么它将值打印为零。以上方法有什么问题,或者有其他解决方案可以解决此问题?
答案 0 :(得分:1)
我想答案很简单。 GetElementSet
仅适用于t_object
(元素),不适用于t_connector
。请改用SQLQuery
。或使用JOIN
实际返回连接的元素,而不是对象ID。
遵循这些原则:
dim useCaseCollection as EA.Collection
set useCaseCollection = Repository.GetElementSet("select * from t_object WHERE object_ID in (SELECT start_object_id FROM t_connector)",2)
Session.Output( useCaseCollection.Count)
答案 1 :(得分:1)
我认为将查询中的字段Start_Object_ID
的别名更改为读取Object_ID
set useCaseCollection = Repository.GetElementSet("select Start_Object_ID as Object_ID from t_connector where (Start_Object_ID = -1222814411 and End_Object_ID = 505879126 and Connector_Type = 'Realisation')",2)
当然,其余的查询都可以;我从未见过否定的对象ID。