矩形阵列——类型不匹配

zhuyongping

在vb中写了一段代码，实现矩形阵列，运行后出现“类型不匹配”，该了好多遍了，还是不行。希望有人帮帮忙~~
Dim Solidobj As AcadSolid
Dim Retobj1 As Variant
: p2 y. K5 \$ N1 V  xNumberOfRows = 1
# H- g; a3 v0 [2 E$ {NumberOfColumns = P
# A! p" ^' h9 S' T7 n7 yNumberOfLevels = 1
1 l) P; c7 G* H3 HDistBetweenRows = 0
% F) G* D: h$ J" o+ o9 Z' rDistBetweenColumns = J
DistBetweenLevels = 2
" O/ Z' {( p; v9 z4 W! `; aSet Solidobj = AcadApp.ActiveDocument.ModelSpace.AddSolid(Point1, Point2, Point3, Point4)
" \' M  d/ a; f) w' B8 DSet Retobj1 = Solidobj.ArrayRectangular(NumberOfRows, NumberOfColumns, NumberOfLevels, DistBetweenRows, DistBetweenColumns, DistBetweenLevels)
  I. Q, _& _. B/ U1 a: m其中P、J是前面计算所得的。
  S9 f) s' R1 p( `运行后出现“类型不匹配”。
) ~& Q1 D4 J& D  l3 X但是确定“结束”也有矩形阵列出现的。
* Z, _3 @. g" h0 Q, I* q" {4 J
[ 本帖最后由 zhuyongping 于 2008-11-24 16:37 编辑 ]

woaishuijia

Dim Retobj1 As Variant
8 P6 k5 N& D3 r1 I: A, hRetobj1是变体型变量
Set Retobj1 = Solidobj.ArrayRectangular(NumberOfRows, NumberOfColumns, NumberOfLevels, DistBetweenRows, DistBetweenColumns, DistBetweenLevels)
! `; a) e. v. w6 T对变体型变量赋值不能用Set，对对象型变量赋值才用Set

zhuyongping

非常感谢，对了。