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

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

之前做過一個需要“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)+"]“
這樣出來的結(jié)果，就是[1] [2]..............[32]