矩形阵列——类型不匹配

zhuyongping

在vb中写了一段代码，实现矩形阵列，运行后出现“类型不匹配”，该了好多遍了，还是不行。希望有人帮帮忙~~
. j- _! X! n9 }- x5 W2 gDim Solidobj As AcadSolid
+ H8 i  N6 L1 A4 ?+ |Dim Retobj1 As Variant
$ c9 F; }6 W( ]  u  X4 wNumberOfRows = 1
4 s! r2 ?+ |- E# }NumberOfColumns = P
NumberOfLevels = 1
DistBetweenRows = 0
DistBetweenColumns = J
DistBetweenLevels = 2
8 g  p: h/ P: `Set Solidobj = AcadApp.ActiveDocument.ModelSpace.AddSolid(Point1, Point2, Point3, Point4)
- b* ?0 |: b) x6 b! g/ @$ }7 K; G5 ~Set Retobj1 = Solidobj.ArrayRectangular(NumberOfRows, NumberOfColumns, NumberOfLevels, DistBetweenRows, DistBetweenColumns, DistBetweenLevels)
. Q! R. Z. g6 t其中P、J是前面计算所得的。
. i  g: c) j4 I0 g4 ~% y8 k- x( b运行后出现“类型不匹配”。
但是确定“结束”也有矩形阵列出现的。

[ 本帖最后由 zhuyongping 于 2008-11-24 16:37 编辑 ]

woaishuijia

Dim Retobj1 As Variant
Retobj1是变体型变量
! z0 C7 n% T* {9 H6 ^7 N! m$ NSet Retobj1 = Solidobj.ArrayRectangular(NumberOfRows, NumberOfColumns, NumberOfLevels, DistBetweenRows, DistBetweenColumns, DistBetweenLevels)
1 Y) y& n5 E/ c% I5 m; |  P: F; S3 Z对变体型变量赋值不能用Set，对对象型变量赋值才用Set

zhuyongping

非常感谢，对了。