矩形阵列——类型不匹配

zhuyongping

在vb中写了一段代码，实现矩形阵列，运行后出现“类型不匹配”，该了好多遍了，还是不行。希望有人帮帮忙~~
Dim Solidobj As AcadSolid
Dim Retobj1 As Variant
NumberOfRows = 1
; h3 V3 b0 z0 b  d& {7 q9 h  ^) LNumberOfColumns = P
NumberOfLevels = 1
4 |9 ^2 _. T  n- G# `3 i7 }DistBetweenRows = 0
2 k9 j4 y" ]* T" C1 h- Y) U/ G! EDistBetweenColumns = J
( U7 y5 i0 _6 B+ m6 iDistBetweenLevels = 2
. E$ g6 {2 Q# ~; o) FSet Solidobj = AcadApp.ActiveDocument.ModelSpace.AddSolid(Point1, Point2, Point3, Point4)
8 `/ j& S: P4 b, z3 _8 L# zSet Retobj1 = Solidobj.ArrayRectangular(NumberOfRows, NumberOfColumns, NumberOfLevels, DistBetweenRows, DistBetweenColumns, DistBetweenLevels)
1 ~7 S: G2 h; r* c2 P其中P、J是前面计算所得的。
4 A! p, G8 b& Y. z' C( z- z运行后出现“类型不匹配”。
9 N* L, E+ @, R  K! K9 i6 x但是确定“结束”也有矩形阵列出现的。

8 v! ]8 N2 I3 Y* i' e" e* H[ 本帖最后由 zhuyongping 于 2008-11-24 16:37 编辑 ]

woaishuijia

Dim Retobj1 As Variant
Retobj1是变体型变量
3 }  A0 [% G& M* ]" z5 @  OSet Retobj1 = Solidobj.ArrayRectangular(NumberOfRows, NumberOfColumns, NumberOfLevels, DistBetweenRows, DistBetweenColumns, DistBetweenLevels)
对变体型变量赋值不能用Set，对对象型变量赋值才用Set

zhuyongping

非常感谢，对了。