矩形阵列——类型不匹配

zhuyongping

在vb中写了一段代码，实现矩形阵列，运行后出现“类型不匹配”，该了好多遍了，还是不行。希望有人帮帮忙~~
Dim Solidobj As AcadSolid
; @- z' `( e5 c" {$ ~& oDim Retobj1 As Variant
) G2 K+ q/ \" k' F/ T0 J8 DNumberOfRows = 1
2 d0 H* A8 n; B6 M' tNumberOfColumns = P
NumberOfLevels = 1
  ^# j% I0 y# r2 N/ l: ODistBetweenRows = 0
DistBetweenColumns = J
DistBetweenLevels = 2
3 n% W$ q# p9 G, p9 LSet Solidobj = AcadApp.ActiveDocument.ModelSpace.AddSolid(Point1, Point2, Point3, Point4)
5 \7 j" c6 i3 _  C) v2 WSet Retobj1 = Solidobj.ArrayRectangular(NumberOfRows, NumberOfColumns, NumberOfLevels, DistBetweenRows, DistBetweenColumns, DistBetweenLevels)
- A" t5 y/ m9 U1 d; u其中P、J是前面计算所得的。
6 F; N9 k2 R6 S6 I5 u  N8 _运行后出现“类型不匹配”。
但是确定“结束”也有矩形阵列出现的。

& @: H& z- r' {% j[ 本帖最后由 zhuyongping 于 2008-11-24 16:37 编辑 ]

woaishuijia

Dim Retobj1 As Variant
0 E$ H& e6 K, A/ }! ERetobj1是变体型变量
Set Retobj1 = Solidobj.ArrayRectangular(NumberOfRows, NumberOfColumns, NumberOfLevels, DistBetweenRows, DistBetweenColumns, DistBetweenLevels)
对变体型变量赋值不能用Set，对对象型变量赋值才用Set

zhuyongping

非常感谢，对了。