Arena 在库存方面的例子

茄子小猪猪

求助。
大家好，我是个菜鸟，刚刚接触Arena这个软件，现在手里有个任务，要帮老师编写一本仿真的书，所以想寻找一些Arena在库存方面的应用，想问问大家有什么好的资源没有？或者通过什么途径寻找呢？
小菜鸟在这谢谢各位啦！！{:3_57:}

shidianqi

1 仿真使用Arena,看看里面有没有，我忘记了，还有一些书是以Arena为例的，你到图书馆看看
2 查阅论文，中国知网上有两篇，你下不来我再帮你下
不知道答案是否满意，祝研究成功

茄子小猪猪

回复 2# shidianqi


    恩！非常感谢，论文在学校里能下的，感觉国内的论文数量还是挺少的~

AlexSYSU

同样是库存问题{:3_62:}，我最近也在做关于仓库(ASRS)库位管理的仿真。实在是进行不下去了，求高人指点！
问题是：仓库有100多个货位，由一个自动控制的存贮设备进行拣货。
我用station来表示货位，并定义每两个station间的距离。工作量实在太大了，决定用代码来做，用宏录了一下代码，修改成以下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