矩形阵列——类型不匹配

zhuyongping

在vb中写了一段代码，实现矩形阵列，运行后出现“类型不匹配”，该了好多遍了，还是不行。希望有人帮帮忙~~
Dim Solidobj As AcadSolid
Dim Retobj1 As Variant
" x' B6 w7 S1 g3 w, GNumberOfRows = 1
NumberOfColumns = P
: E% P- {6 B7 D2 a; M, MNumberOfLevels = 1
3 \" @! a" X& H$ P( S( }) m  U' D; ?DistBetweenRows = 0
$ j1 n5 i, F3 rDistBetweenColumns = J
+ L% r9 c' k  A7 w- a2 Z, S" A: xDistBetweenLevels = 2
  w. |# k! a& vSet Solidobj = AcadApp.ActiveDocument.ModelSpace.AddSolid(Point1, Point2, Point3, Point4)
Set Retobj1 = Solidobj.ArrayRectangular(NumberOfRows, NumberOfColumns, NumberOfLevels, DistBetweenRows, DistBetweenColumns, DistBetweenLevels)
, g! }! e; I: _9 Y7 @; D其中P、J是前面计算所得的。
2 V8 F! V; O; l3 h1 H4 b运行后出现“类型不匹配”。
但是确定“结束”也有矩形阵列出现的。

! p8 p+ ^) Z* \. C: t" D2 I[ 本帖最后由 zhuyongping 于 2008-11-24 16:37 编辑 ]

woaishuijia

Dim Retobj1 As Variant
Retobj1是变体型变量
Set Retobj1 = Solidobj.ArrayRectangular(NumberOfRows, NumberOfColumns, NumberOfLevels, DistBetweenRows, DistBetweenColumns, DistBetweenLevels)
# G' p$ N) q$ @" Z6 U5 k% f对变体型变量赋值不能用Set，对对象型变量赋值才用Set

zhuyongping

非常感谢，对了。