运行 通过命令行在 Enterprise-Architect 中使用 VBScript
Running the VBScript in Enterprise-Architect via command line
我写了一个 VBScript,它将导出 excel 文件(包含一些元素信息)。但是每次我需要打开 EA 来生成 excel.
出于 CI 目的,我需要从命令行 运行 脚本。是否可以通过命令行 运行 存在于企业架构师内部的脚本?
是也不是。为了访问 EA 的 API,您需要有一个 运行 EA 实例。您可以使用
从 EA 外部访问它
Dim Repository
Set EAapp = GetObject(, "EA.App")
Set Repository = EAapp.repository
或者您只使用 EA 本身的脚本...
可以绕过 API 直接使用 EA 的数据库。但那是另外一回事了。
解决方案
参考qwerty_so .
Option Explicit
On Error Resume Next
EaExample
Sub EaExample()
Dim App
Set App = GetObject(,"EA.App")
dim currentPackage
set currentPackage = App.Repository.GetPackageByGuid("{134E96EA-623E-410e-A13F-73DDDDA1E091}")
MsgBox currentPackage.Name
End Sub
从命令行打开 EAP 实例和运行脚本。
我写了一个 VBScript,它将导出 excel 文件(包含一些元素信息)。但是每次我需要打开 EA 来生成 excel.
出于 CI 目的,我需要从命令行 运行 脚本。是否可以通过命令行 运行 存在于企业架构师内部的脚本?
是也不是。为了访问 EA 的 API,您需要有一个 运行 EA 实例。您可以使用
从 EA 外部访问它Dim Repository
Set EAapp = GetObject(, "EA.App")
Set Repository = EAapp.repository
或者您只使用 EA 本身的脚本...
可以绕过 API 直接使用 EA 的数据库。但那是另外一回事了。
解决方案
参考qwerty_so
Option Explicit
On Error Resume Next
EaExample
Sub EaExample()
Dim App
Set App = GetObject(,"EA.App")
dim currentPackage
set currentPackage = App.Repository.GetPackageByGuid("{134E96EA-623E-410e-A13F-73DDDDA1E091}")
MsgBox currentPackage.Name
End Sub
从命令行打开 EAP 实例和运行脚本。