矩形阵列——类型不匹配

zhuyongping

在vb中写了一段代码，实现矩形阵列，运行后出现“类型不匹配”，该了好多遍了，还是不行。希望有人帮帮忙~~
Dim Solidobj As AcadSolid
Dim Retobj1 As Variant
( y7 Q0 w4 w, K+ uNumberOfRows = 1
NumberOfColumns = P
NumberOfLevels = 1
- H" F- Z0 [+ _3 |' m3 xDistBetweenRows = 0
DistBetweenColumns = J
2 {* z; |7 n, G* L. c) WDistBetweenLevels = 2
) [  F* L+ g- h) ?2 d, f1 WSet Solidobj = AcadApp.ActiveDocument.ModelSpace.AddSolid(Point1, Point2, Point3, Point4)
Set Retobj1 = Solidobj.ArrayRectangular(NumberOfRows, NumberOfColumns, NumberOfLevels, DistBetweenRows, DistBetweenColumns, DistBetweenLevels)
+ l, V8 ?% B% c其中P、J是前面计算所得的。
6 o! b% X+ U) Z运行后出现“类型不匹配”。
" K0 f' r2 H$ d: Y但是确定“结束”也有矩形阵列出现的。

  X5 f" _" b+ D7 l4 _  n[ 本帖最后由 zhuyongping 于 2008-11-24 16:37 编辑 ]

woaishuijia

Dim Retobj1 As Variant
Retobj1是变体型变量
) V4 K4 ]3 T1 Q$ `1 w* B3 X+ nSet Retobj1 = Solidobj.ArrayRectangular(NumberOfRows, NumberOfColumns, NumberOfLevels, DistBetweenRows, DistBetweenColumns, DistBetweenLevels)
* @& W7 v3 p5 h: Y9 Y4 p对变体型变量赋值不能用Set，对对象型变量赋值才用Set

zhuyongping

非常感谢，对了。