|
马上注册,结识高手,享用更多资源,轻松玩转三维网社区。
您需要 登录 才可以下载或查看,没有帐号?注册
x
在vb中写了一段代码,实现矩形阵列,运行后出现“类型不匹配”,该了好多遍了,还是不行。希望有人帮帮忙~~
3 V3 P/ r6 v7 ZDim Solidobj As AcadSolid- |* a: d" h" t) F+ m
Dim Retobj1 As Variant2 A1 O; y% ?( r- A
NumberOfRows = 1% P+ k y- E- K& c
NumberOfColumns = P
o, ?& @# \! O8 ^& p) aNumberOfLevels = 1) D0 c3 r0 `4 G
DistBetweenRows = 0
( l4 i, y) m( d+ A* h+ MDistBetweenColumns = J
9 `9 X6 I, x; K |DistBetweenLevels = 22 U0 r- a7 t( a8 Y& N" W+ o
Set Solidobj = AcadApp.ActiveDocument.ModelSpace.AddSolid(Point1, Point2, Point3, Point4)7 C: a5 x4 Z8 o
Set Retobj1 = Solidobj.ArrayRectangular(NumberOfRows, NumberOfColumns, NumberOfLevels, DistBetweenRows, DistBetweenColumns, DistBetweenLevels)
6 S- W+ V/ r( ?0 o: d q其中P、J是前面计算所得的。
1 r/ p' y- t# s( w- s* g" @运行后出现“类型不匹配”。
) v& o$ j4 ~5 t* b8 S, H+ ?但是确定“结束”也有矩形阵列出现的。
) e- K) E4 m1 Z' _0 e0 y }2 A& ^
[ 本帖最后由 zhuyongping 于 2008-11-24 16:37 编辑 ] |
|