矩形阵列——类型不匹配

zhuyongping

在vb中写了一段代码，实现矩形阵列，运行后出现“类型不匹配”，该了好多遍了，还是不行。希望有人帮帮忙~~
Dim Solidobj As AcadSolid
. _0 b- p) g! {% x% Z0 FDim Retobj1 As Variant
NumberOfRows = 1
( ?3 o% }+ n3 B) d9 d5 P6 @- ~NumberOfColumns = P
: P/ R2 b, ^$ ^/ CNumberOfLevels = 1
: o$ Y7 b: [* k% |5 iDistBetweenRows = 0
DistBetweenColumns = J
DistBetweenLevels = 2
: K/ O  `/ A; VSet Solidobj = AcadApp.ActiveDocument.ModelSpace.AddSolid(Point1, Point2, Point3, Point4)
: C7 W; J5 _, O& p4 zSet Retobj1 = Solidobj.ArrayRectangular(NumberOfRows, NumberOfColumns, NumberOfLevels, DistBetweenRows, DistBetweenColumns, DistBetweenLevels)
* W- t6 R) e9 z. o' V' {其中P、J是前面计算所得的。
运行后出现“类型不匹配”。
& i: B, h" s- g! N但是确定“结束”也有矩形阵列出现的。

$ @; O, A6 |/ M0 n6 t7 k[ 本帖最后由 zhuyongping 于 2008-11-24 16:37 编辑 ]

woaishuijia

Dim Retobj1 As Variant
  F! J4 J. y# E5 L+ GRetobj1是变体型变量
Set Retobj1 = Solidobj.ArrayRectangular(NumberOfRows, NumberOfColumns, NumberOfLevels, DistBetweenRows, DistBetweenColumns, DistBetweenLevels)
2 S2 a1 d* A0 [! F; o3 G对变体型变量赋值不能用Set，对对象型变量赋值才用Set

zhuyongping

非常感谢，对了。