VBA建模 差一点了 能帮帮我吗
时间:10-02
整理:3721RD
点击:
这样建模的话 可以实习一行变尺寸的方块,但是不能在parameter list 那里修改参数值.过程是我是先进入一个模板,然后点击macros/make VBA macro, 然后编写代码,最后在macros那里 选中开始输入的名字。代码如下:
' again
Sub Main ()
Dim i,j,n,value
Dim sline As String
n=2 ' mean two bricks
For i=1 To 2 'loop to create some bricks
j = (i-1)*5 ‘方块间隔为5
sline = InputBox("length"+Cstr(i)) ' the length and width of brick
value = CDbl(InputBox("value")) ' length and width value
storeParameter(sline,value) 'make it as a parameter
With Brick
.reset
.Name "model"+Cstr(i) 'order name
.material "pec"
.Xrange (j,j+value)
.Yrange (0,j+value)
.Zrange (0,1)
.Create
End With
Next i
End Sub
' again
Sub Main ()
Dim i,j,n,value
Dim sline As String
n=2 ' mean two bricks
For i=1 To 2 'loop to create some bricks
j = (i-1)*5 ‘方块间隔为5
sline = InputBox("length"+Cstr(i)) ' the length and width of brick
value = CDbl(InputBox("value")) ' length and width value
storeParameter(sline,value) 'make it as a parameter
With Brick
.reset
.Name "model"+Cstr(i) 'order name
.material "pec"
.Xrange (j,j+value)
.Yrange (0,j+value)
.Zrange (0,1)
.Create
End With
Next i
End Sub
小编,你这个问题解决了吗
还没有呢,只能半参数建模了。
你怎么也需要这个功能,做什么方向的哈?朋友
我暂时不需要这个功能,但是可以先学习一下嘛
实现什么功能?
反射阵,现在解决了!