- 易迪拓培训,专注于微波、射频、天线设计工程师的培养
VBA建模 差一点了 能帮帮我吗
录入:edatop.com 点击:
这样建模的话 可以实习一行变尺寸的方块,但是不能在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
本帖提到的人: @foxman @wh_wh22 @zjn317253663
小编,你这个问题解决了吗
还没有呢,只能半参数建模了。
你怎么也需要这个功能,做什么方向的哈?朋友
我暂时不需要这个功能,但是可以先学习一下嘛
实现什么功能?
反射阵,现在解决了!
申明:网友回复良莠不齐,仅供参考。如需专业解答,请学习易迪拓培训专家讲授的CST视频培训教程。
上一篇:传播常数
下一篇:两个关于不同版本CST的差别的问题,请教各位!