使用 VBScript API for Enterprise Architect 'GetElementsByQuery'

Question

我正在努力将VBScript API理解为Enterprise Architect。

我想在且仅当尚未添加时添加一个伪像一个新的。

即使我知道strsourcename已经添加到存储库中，以下代码每次都会引发异常。

on error resume next ' in case no object found the query will throw an exception 
objCollection = Ea.Repository.GetElementsByQuery( "Simple", "strSourceName" )
If Err.Number = 0 Then
    Session.Output( "info: found :" & strSourceName & ":" )
Else
    Session.Output( "warn: not found :" & strSourceName & ":" )
    Err.Clear
End If

我对EA或VBScript都不熟悉，所以请放轻松。

事先感谢您的任何帮助。

Answer 1

您的脚本有几个怪癖。尝试这个：

dim o as EA.Collection
set o = Repository.GetElementsByQuery ("Simple", "strSourceName" )
Session.Output( "info: found :" & o.Count & ":" )

您会看到o.Count是0或大于0的东西。