矩形阵列——类型不匹配

zhuyongping

在vb中写了一段代码，实现矩形阵列，运行后出现“类型不匹配”，该了好多遍了，还是不行。希望有人帮帮忙~~
3 V3 P/ r6 v7 ZDim Solidobj As AcadSolid
Dim Retobj1 As Variant
NumberOfRows = 1
NumberOfColumns = P
  o, ?& @# \! O8 ^& p) aNumberOfLevels = 1
DistBetweenRows = 0
( l4 i, y) m( d+ A* h+ MDistBetweenColumns = J
9 `9 X6 I, x; K  |DistBetweenLevels = 2
Set Solidobj = AcadApp.ActiveDocument.ModelSpace.AddSolid(Point1, Point2, Point3, Point4)
Set Retobj1 = Solidobj.ArrayRectangular(NumberOfRows, NumberOfColumns, NumberOfLevels, DistBetweenRows, DistBetweenColumns, DistBetweenLevels)
6 S- W+ V/ r( ?0 o: d  q其中P、J是前面计算所得的。
1 r/ p' y- t# s( w- s* g" @运行后出现“类型不匹配”。
) v& o$ j4 ~5 t* b8 S, H+ ?但是确定“结束”也有矩形阵列出现的。
) e- K) E4 m1 Z
[ 本帖最后由 zhuyongping 于 2008-11-24 16:37 编辑 ]

woaishuijia

Dim Retobj1 As Variant
Retobj1是变体型变量
Set Retobj1 = Solidobj.ArrayRectangular(NumberOfRows, NumberOfColumns, NumberOfLevels, DistBetweenRows, DistBetweenColumns, DistBetweenLevels)
对变体型变量赋值不能用Set，对对象型变量赋值才用Set

zhuyongping

非常感谢，对了。