矩形阵列——类型不匹配

zhuyongping

在vb中写了一段代码，实现矩形阵列，运行后出现“类型不匹配”，该了好多遍了，还是不行。希望有人帮帮忙~~
$ j* `( T# L* r3 B8 |7 ?Dim Solidobj As AcadSolid
3 j) B; O6 n* k# ]) M8 C: |- dDim Retobj1 As Variant
NumberOfRows = 1
NumberOfColumns = P
' I& C5 ~  i7 jNumberOfLevels = 1
/ O$ H+ j( o1 Q$ f3 ^DistBetweenRows = 0
6 A2 a1 U6 `( |, L& TDistBetweenColumns = J
# c4 s2 o% u2 x6 S1 q: wDistBetweenLevels = 2
. d+ A: J- z7 Z8 q$ Z% r. uSet Solidobj = AcadApp.ActiveDocument.ModelSpace.AddSolid(Point1, Point2, Point3, Point4)
9 l# b# Z. W: ?) U2 tSet Retobj1 = Solidobj.ArrayRectangular(NumberOfRows, NumberOfColumns, NumberOfLevels, DistBetweenRows, DistBetweenColumns, DistBetweenLevels)
9 S1 x6 e8 `. p% Z% q  H其中P、J是前面计算所得的。
5 v$ L& P7 C( `5 f  P运行后出现“类型不匹配”。
但是确定“结束”也有矩形阵列出现的。

" J& R' Z& X- \! }7 H[ 本帖最后由 zhuyongping 于 2008-11-24 16:37 编辑 ]

woaishuijia

Dim Retobj1 As Variant
Retobj1是变体型变量
) k8 Q* H) s1 ~6 G) Z# `Set Retobj1 = Solidobj.ArrayRectangular(NumberOfRows, NumberOfColumns, NumberOfLevels, DistBetweenRows, DistBetweenColumns, DistBetweenLevels)
7 ~) F1 s+ L. p1 g- Q* y对变体型变量赋值不能用Set，对对象型变量赋值才用Set

zhuyongping

非常感谢，对了。