|
|
马上注册，结识高手，享用更多资源，轻松玩转三维网社区。
您需要 登录 才可以下载或查看，没有帐号？注册
x
在vb中写了一段代码，实现矩形阵列，运行后出现“类型不匹配”，该了好多遍了，还是不行。希望有人帮帮忙~~
1 x/ g7 e# U: ]5 MDim Solidobj As AcadSolid9 R, Q$ W) Y( B# N' ?0 r
Dim Retobj1 As Variant$ W. w8 P$ d7 O2 w" P
NumberOfRows = 17 n- l8 M# C8 @% j ]
NumberOfColumns = P0 H7 ?* }6 T3 o: u0 J3 T6 C" T
NumberOfLevels = 1
8 \) Q: @' n. [( k+ WDistBetweenRows = 0
1 H- g) u4 K+ t8 ]- W" v2 B" z2 }& q- i v: bDistBetweenColumns = J \! A/ A; i* h: }5 I# \ C3 y
DistBetweenLevels = 2
! }, x) t5 A0 {2 k" L( H. }) YSet Solidobj = AcadApp.ActiveDocument.ModelSpace.AddSolid(Point1, Point2, Point3, Point4)0 l4 I( _1 @- g* S3 W
Set Retobj1 = Solidobj.ArrayRectangular(NumberOfRows, NumberOfColumns, NumberOfLevels, DistBetweenRows, DistBetweenColumns, DistBetweenLevels)$ e7 B, x6 Z5 L7 T; J
其中P、J是前面计算所得的。
9 y* z+ S) |8 l! i7 u运行后出现“类型不匹配”。, G, K; w E7 N, M5 d5 {$ i
但是确定“结束”也有矩形阵列出现的。
8 u7 R$ w; e4 Z) P8 U& ]/ k5 z' d
( i4 }+ D+ m$ b* e# Q- E2 g' R9 z[ 本帖最后由 zhuyongping 于 2008-11-24 16:37 编辑 ] |
|
发表于 2008-11-24 16:32:56
发表于 2008-11-24 21:05:12
楼主