矩形阵列——类型不匹配

zhuyongping

在vb中写了一段代码，实现矩形阵列，运行后出现“类型不匹配”，该了好多遍了，还是不行。希望有人帮帮忙~~
; J6 C4 h  Q- @) ]Dim Solidobj As AcadSolid
Dim Retobj1 As Variant
/ R5 {+ ^. `7 ~NumberOfRows = 1
2 K' {  ]3 J6 g9 h% ^! oNumberOfColumns = P
- A7 B0 Y! x* o$ U5 D1 u/ s; mNumberOfLevels = 1
* A' \8 k/ x; J% a% m, E+ {4 z2 SDistBetweenRows = 0
" W& _* S4 b" v8 |% Q- WDistBetweenColumns = J
DistBetweenLevels = 2
Set Solidobj = AcadApp.ActiveDocument.ModelSpace.AddSolid(Point1, Point2, Point3, Point4)
Set Retobj1 = Solidobj.ArrayRectangular(NumberOfRows, NumberOfColumns, NumberOfLevels, DistBetweenRows, DistBetweenColumns, DistBetweenLevels)
. H4 g! c7 m5 j( F) j/ m其中P、J是前面计算所得的。
运行后出现“类型不匹配”。
& d) N$ _2 W# @7 q$ ^但是确定“结束”也有矩形阵列出现的。

5 N  w  j) N. y( X8 \2 T  [) l[ 本帖最后由 zhuyongping 于 2008-11-24 16:37 编辑 ]

woaishuijia

Dim Retobj1 As Variant
Retobj1是变体型变量
Set Retobj1 = Solidobj.ArrayRectangular(NumberOfRows, NumberOfColumns, NumberOfLevels, DistBetweenRows, DistBetweenColumns, DistBetweenLevels)
对变体型变量赋值不能用Set，对对象型变量赋值才用Set

zhuyongping

非常感谢，对了。