矩形阵列——类型不匹配

zhuyongping

在vb中写了一段代码，实现矩形阵列，运行后出现“类型不匹配”，该了好多遍了，还是不行。希望有人帮帮忙~~
1 F/ O( J+ o% X; T$ m; j- ]Dim Solidobj As AcadSolid
Dim Retobj1 As Variant
$ ^- h, e0 n( s% a4 w9 DNumberOfRows = 1
( g/ x  J  m- b1 y: PNumberOfColumns = P
7 ?4 G2 V8 ]; R  K" Y; {NumberOfLevels = 1
' G  G7 O$ X$ A, R6 K" gDistBetweenRows = 0
DistBetweenColumns = J
DistBetweenLevels = 2
Set Solidobj = AcadApp.ActiveDocument.ModelSpace.AddSolid(Point1, Point2, Point3, Point4)
Set Retobj1 = Solidobj.ArrayRectangular(NumberOfRows, NumberOfColumns, NumberOfLevels, DistBetweenRows, DistBetweenColumns, DistBetweenLevels)
8 Z* N( x+ r+ m2 A& E其中P、J是前面计算所得的。
运行后出现“类型不匹配”。
但是确定“结束”也有矩形阵列出现的。
5 s  ], j7 Z  f" y( t- w
[ 本帖最后由 zhuyongping 于 2008-11-24 16:37 编辑 ]

woaishuijia

Dim Retobj1 As Variant
6 Y7 U0 _/ B! B2 m) B) V% j1 o0 DRetobj1是变体型变量
6 d1 u8 _+ s5 o( E1 vSet Retobj1 = Solidobj.ArrayRectangular(NumberOfRows, NumberOfColumns, NumberOfLevels, DistBetweenRows, DistBetweenColumns, DistBetweenLevels)
# r/ }, l8 C& n3 s7 l4 u" |对变体型变量赋值不能用Set，对对象型变量赋值才用Set

zhuyongping

非常感谢，对了。