矩形阵列——类型不匹配

zhuyongping

在vb中写了一段代码，实现矩形阵列，运行后出现“类型不匹配”，该了好多遍了，还是不行。希望有人帮帮忙~~
+ W7 U/ x) i- W5 k- V8 |. f/ rDim Solidobj As AcadSolid
Dim Retobj1 As Variant
: N" o4 [8 S" YNumberOfRows = 1
' @; J1 _) k4 R) Z" b! B8 U9 fNumberOfColumns = P
) ]  k2 C  k3 Q: O! }! X% gNumberOfLevels = 1
5 \' u8 ?! ~1 E( |DistBetweenRows = 0
DistBetweenColumns = J
DistBetweenLevels = 2
/ w; f' V9 @2 R, W+ t8 h- SSet Solidobj = AcadApp.ActiveDocument.ModelSpace.AddSolid(Point1, Point2, Point3, Point4)
) L* ]  W4 ?# V: `( F$ f$ t4 WSet Retobj1 = Solidobj.ArrayRectangular(NumberOfRows, NumberOfColumns, NumberOfLevels, DistBetweenRows, DistBetweenColumns, DistBetweenLevels)
9 ^9 o# Q) ]6 y$ l/ I. v其中P、J是前面计算所得的。
运行后出现“类型不匹配”。
2 a3 `* y- \, Y; {但是确定“结束”也有矩形阵列出现的。
; g( J  g5 J& A/ y* y" v: t
[ 本帖最后由 zhuyongping 于 2008-11-24 16:37 编辑 ]

woaishuijia

Dim Retobj1 As Variant
Retobj1是变体型变量
Set Retobj1 = Solidobj.ArrayRectangular(NumberOfRows, NumberOfColumns, NumberOfLevels, DistBetweenRows, DistBetweenColumns, DistBetweenLevels)
6 }" v2 t% |8 Y4 P对变体型变量赋值不能用Set，对对象型变量赋值才用Set

zhuyongping

非常感谢，对了。