Dim s As SIMAN
Dim m As ModelPrivate Sub CommandButton1_Click()
Dim num As Long
num = Val(InputBox("请输入所需单元个数:", "单元设定"))Set m = ThisDocument.Model
Set s = m.SIMANDim i As Long
Dim total As Long
For i = 1 To num
If num = 0 Then Exit For
total = 0
total = total + i
Set m = ThisDocument.ModelDim Seize1modi As Arena.Module
Dim Seize2modi As Arena.Module
Let a = "Buffer"
b = "MS "
Set Resourcemodi = m.Modules.Create("BasicProcess", "Resource", 0, 0)
Let Resourcemodi.Data("Name") = a & 1 + i
Resourcemodi.Data("Capacity") = "2"
Resourcemodi.UpdateShapesSet Statisticmodi = m.Modules.Create("AdvancedProcess", "Statistic", 0, 0)
Let Statisticmodi.Data("Name") = b & 2 + i & d
Statisticmodi.Data("Type") = "Frequency"
Statisticmodi.Data("ValueState") = "State"
Let Statisticmodi.Data("FRes") = b & 2 + i
Statisticmodi.UpdateShapes
Dim m As ModelPrivate Sub CommandButton1_Click()
Dim num As Long
num = Val(InputBox("请输入所需单元个数:", "单元设定"))Set m = ThisDocument.Model
Set s = m.SIMANDim i As Long
Dim total As Long
For i = 1 To num
If num = 0 Then Exit For
total = 0
total = total + i
Set m = ThisDocument.ModelDim Seize1modi As Arena.Module
Dim Seize2modi As Arena.Module
Let a = "Buffer"
b = "MS "
Set Resourcemodi = m.Modules.Create("BasicProcess", "Resource", 0, 0)
Let Resourcemodi.Data("Name") = a & 1 + i
Resourcemodi.Data("Capacity") = "2"
Resourcemodi.UpdateShapesSet Statisticmodi = m.Modules.Create("AdvancedProcess", "Statistic", 0, 0)
Let Statisticmodi.Data("Name") = b & 2 + i & d
Statisticmodi.Data("Type") = "Frequency"
Statisticmodi.Data("ValueState") = "State"
Let Statisticmodi.Data("FRes") = b & 2 + i
Statisticmodi.UpdateShapes
解决方案 »
- 送分100分:传一个数&HFFFF,到一个函数的参数后,这个参数接到的数成了-26215,这是怎么回事。
- 请问怎么用VBA读出某个Chart对象的类型
- 关于用winsock传字符串时,丢包的问题
- 有没有办法让PictureBox支持透明?
- (300分求解双窗难题)请songyaowu接分
- 今晚英超阿森纳对切尔西,大家怎么看,我是曼联球迷!
- 版主,小健有一事相问?(进者有分)
- 问不是编程的问题
- 我想用datacombo控件的change事件来从数据库中提取数据,能实现吗?请帮忙举个例子
- 各位大哥,vc开发的控件怎么用在VB里头?可以用在VB里吗??
- window 如何自动启动一些应用程序
- CATIA VBA中循环里语句为何没有效果
Set Xobj=new XXX
Xobj.Open("YYY")
之类的,就象是用VB操作Excel文档一样的步骤,然后才能Set m = ThisDocument.Model,后面的操作就基本按你的原来的程序了。
如果都没有相关资料,那么用exescope看看主程序及其他看起来像供第三方调用的dll等件的typelib信息。例如下面是excel.exe的typelib信息的一部分:
实际也就是供第三方调用的各个类接口 方法函数等。有这个那么必有相应的帮助文档。