矩形阵列——类型不匹配

zhuyongping

在vb中写了一段代码，实现矩形阵列，运行后出现“类型不匹配”，该了好多遍了，还是不行。希望有人帮帮忙~~
& C" x$ v6 Z9 B$ @& u% f9 ^; sDim Solidobj As AcadSolid
Dim Retobj1 As Variant
NumberOfRows = 1
5 j4 B$ r, v+ RNumberOfColumns = P
NumberOfLevels = 1
DistBetweenRows = 0
DistBetweenColumns = J
; y/ f. ?, A+ Q0 b. `4 kDistBetweenLevels = 2
Set Solidobj = AcadApp.ActiveDocument.ModelSpace.AddSolid(Point1, Point2, Point3, Point4)
: ^9 x( Y( R& V+ iSet Retobj1 = Solidobj.ArrayRectangular(NumberOfRows, NumberOfColumns, NumberOfLevels, DistBetweenRows, DistBetweenColumns, DistBetweenLevels)
+ G& W2 |  h. ^: S/ ]; p: w其中P、J是前面计算所得的。
运行后出现“类型不匹配”。
但是确定“结束”也有矩形阵列出现的。

1 q0 u% N) J9 A' [6 |& b[ 本帖最后由 zhuyongping 于 2008-11-24 16:37 编辑 ]

woaishuijia

Dim Retobj1 As Variant
6 [/ U1 _1 D% F, @7 s4 d9 X4 ~8 Q+ lRetobj1是变体型变量
7 L3 |" n+ C# Y& ]+ USet Retobj1 = Solidobj.ArrayRectangular(NumberOfRows, NumberOfColumns, NumberOfLevels, DistBetweenRows, DistBetweenColumns, DistBetweenLevels)
对变体型变量赋值不能用Set，对对象型变量赋值才用Set

zhuyongping

非常感谢，对了。