几个自己做的航空终端区模型

hlg1437

非病毒，360的木马预警属于误报

AlexSYSU

看了一下visio，虽然不太了解问题，但仅是流程图就可以看出楼主属牛啦！
最近做关于老师布置了一个关于仓库的仿真，我打算用station来表示库位，用distance来代表库位间的距离。由于仓库有100多个货位，工作量实在太大了，决定用代码来做，用宏录了一下代码，修改成以下VBA代码，但是总报错，求指点。建立两个station并定义distance代码如下
————————————————————————————————————————
Private Sub ModelLogic_RunBeginSimulation()
Dim m As Model
Dim ASRS As Module
Dim myDis As Module

Set m = ThisDocument.Model
Set ASRS = m.Modules.Create("AdvancedTransfer", "Station", 1000, 100)
ASRS.Data("Name") = "ASRS"
ASRS.Data("Station Type") = "Set"
ASRS.Data("StAtt") = "index"
ASRS.Data("MemberStation(1)") = "location 1"
ASRS.Data("MemberStation(2)") = "location 2"
myDis = m.Modules.Create("AdvancedTransfer", "Distance", 0, 0)
myDis.Data("BegStation(1)") = "location 1"
myDis.Data("EndStation(1)") = "location 2"
myDis.Data("Distance(1)") = "2"
End Sub
————————————————————————————————————
先谢！！

hlg1437

抱歉，我对arena里面的VBA使用的不太多
而且不太清楚你想实现的功能是什么
用仿真软件建模就像用砖瓦盖房一样，尽量使用现有的砖瓦、大梁、预制板能够快速完成建筑任务，但有时候一些个性化的特殊要求只能用水泥沙子（coding）来做，如果你对预制板等类的东西比较熟练的话，你会发现真正需要用水泥沙子的地方并不太多。个人意见仅供参考。
个人感觉论坛里面狼刃在arena vba这块比较不错，你可以请教请教他
如果能提供更为详尽背景资料的话，我也可以帮你看看
回复 2# AlexSYSU