使用外部VB程序构建竞技场仿真模型

发布于 2024-12-27 05:03:39 字数 856 浏览 1 评论 0原文

我需要使用完全独立的外部 VB 程序构建 Arena 模拟模型，而不是使用内置的 VBA 编程功能。我在构建此类程序方面取得了一些进展，但对其行为不满意。

是否可以在不启动 Arena.exe 的情况下创建模型？
如果在模型创建步骤期间程序由于任何原因（例如调试终止）而停止，则对 CreateObject 函数的后续调用将失败，并出现类似“无法创建 ActiveX/Com 对象”的结果。即使我通过任务管理器手动终止 Arena.exe，仍然会出现此错误。如何避免这种情况？

-- 当前代码 --

Try 
    arenaApp = CType(CreateObject("Arena.Application"), Arena.Application)
    arenaModel = arenaApp.Models.Add
    ... some code to build model, adding modules, blah blah blah, ...
    arenaModel.SaveAs(fileName)
Finally
    If (arenaApp IsNot Nothing) Then arenaApp.Quit()
End Try

-- 平台 --

平台：Win 7 64
Visual Studio：2010（Express 版）
DotNet Framework：4.0
Arena 版本：13.9
VB 项目参考：C:\Program Files (x86)\Rockwell Software\Arena\ Arena.exe

非常感谢。

任汉

原文

I have a requirement to construct a Arena simulation model using an entirely separated external VB program, instead of using the build-in VBA programming capabilty. I have some progress on building such program, but not satisfied with the behavior.

Is it possible to create a Model without starting the Arena.exe?
If the program halt for any reason (such as termination of debugging) during the model creation steps, the subsequent call to the CreateObject function failed with result like "Cannot create ActiveX/Com objects". This error still occurs even if I manually kill the Arena.exe via the Task Manager. How to avoid this?

-- Current Code --

Try 
    arenaApp = CType(CreateObject("Arena.Application"), Arena.Application)
    arenaModel = arenaApp.Models.Add
    ... some code to build model, adding modules, blah blah blah, ...
    arenaModel.SaveAs(fileName)
Finally
    If (arenaApp IsNot Nothing) Then arenaApp.Quit()
End Try

-- Platform --