矩形阵列——类型不匹配

zhuyongping

在vb中写了一段代码，实现矩形阵列，运行后出现“类型不匹配”，该了好多遍了，还是不行。希望有人帮帮忙~~
0 Y3 W( t; i5 r8 `$ KDim Solidobj As AcadSolid
Dim Retobj1 As Variant
5 g) d  b9 }. `" XNumberOfRows = 1
/ Z9 t  c% f' W' U% VNumberOfColumns = P
NumberOfLevels = 1
3 ]0 S! X) x, B5 g0 jDistBetweenRows = 0
DistBetweenColumns = J
DistBetweenLevels = 2
Set Solidobj = AcadApp.ActiveDocument.ModelSpace.AddSolid(Point1, Point2, Point3, Point4)
1 _( ]+ K; D, f1 n! OSet Retobj1 = Solidobj.ArrayRectangular(NumberOfRows, NumberOfColumns, NumberOfLevels, DistBetweenRows, DistBetweenColumns, DistBetweenLevels)
其中P、J是前面计算所得的。
! g' o& c4 U% O运行后出现“类型不匹配”。
1 R5 g* \8 a; Z3 P, D) l$ f但是确定“结束”也有矩形阵列出现的。

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

woaishuijia

Dim Retobj1 As Variant
Retobj1是变体型变量
9 T& q7 K2 V" v- Q- E. jSet Retobj1 = Solidobj.ArrayRectangular(NumberOfRows, NumberOfColumns, NumberOfLevels, DistBetweenRows, DistBetweenColumns, DistBetweenLevels)
. T1 G4 N) u6 O+ {* g) ?1 E7 r对变体型变量赋值不能用Set，对对象型变量赋值才用Set

zhuyongping

非常感谢，对了。