矩形阵列——类型不匹配

zhuyongping

在vb中写了一段代码，实现矩形阵列，运行后出现“类型不匹配”，该了好多遍了，还是不行。希望有人帮帮忙~~
Dim Solidobj As AcadSolid
- P; Z, r8 D5 _# g# K( D1 eDim Retobj1 As Variant
NumberOfRows = 1
NumberOfColumns = P
NumberOfLevels = 1
DistBetweenRows = 0
, Y- s4 J2 X; @  a5 p% QDistBetweenColumns = J
DistBetweenLevels = 2
Set Solidobj = AcadApp.ActiveDocument.ModelSpace.AddSolid(Point1, Point2, Point3, Point4)
Set Retobj1 = Solidobj.ArrayRectangular(NumberOfRows, NumberOfColumns, NumberOfLevels, DistBetweenRows, DistBetweenColumns, DistBetweenLevels)
+ l- ^; G( \5 g其中P、J是前面计算所得的。
运行后出现“类型不匹配”。
但是确定“结束”也有矩形阵列出现的。

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

woaishuijia

Dim Retobj1 As Variant
# X; A9 o- ~/ e7 S  A( H# XRetobj1是变体型变量
Set Retobj1 = Solidobj.ArrayRectangular(NumberOfRows, NumberOfColumns, NumberOfLevels, DistBetweenRows, DistBetweenColumns, DistBetweenLevels)
  k' B. g% l2 r) j$ n, f4 V对变体型变量赋值不能用Set，对对象型变量赋值才用Set

zhuyongping

非常感谢，对了。