CST MWS有關(guān)VBA建模的一個(gè)問(wèn)題

我想做一個(gè)高度隨機(jī)分布的圓柱陣列（1000根*1000根），使用Macro時(shí)發(fā)現(xiàn)如只設(shè)置圓柱位置參數(shù)化每次啟動(dòng)Macro時(shí)需輸入?yún)?shù)值十分麻煩，而且圓柱名不能重復(fù)導(dǎo)致每次都要修改name。所以打算用一個(gè)循環(huán)程序，我編的如下，運(yùn)行時(shí)有問(wèn)題“”，期待高手解答
Sub Main ()
With cylind
Dim i As Integer
i=0
While i<1000
With Cylinder
.Reset
.Name "solid(i)"-----------------------------------------此處有問(wèn)題，因?yàn)閚ame默認(rèn)是字符串，i起不到作用
.Component "component1"
.Material "PEC"
.OuterRadius "10"
.InnerRadius "0.0"
.Axis "y"
.Yrange "0", "50"
.Xcenter "i"
.Zcenter "0"
.Segments "0"
.Create-----------------------------------------------------此處運(yùn)行時(shí)發(fā)現(xiàn)顯示This name already exists, please choose a unique name(,Create)
End With
i=i+10
Wend
End With
End Sub

之前做過(guò)一個(gè)需要“i”的VBA，希望能給你一些參考：
For i=1 To 32 //定義循環(huán)從端口1到32(如果端口數(shù)目不同，可以自行改變數(shù)目)
SelectTreeItem"2D/3D ResultsH-Fieldh-ield(f=63.6;z=0) ["+cstr(i)+"]“
這樣出來(lái)的結(jié)果，就是[1] [2]..............[32]