|
|
马上注册，结识高手，享用更多资源，轻松玩转三维网社区。
您需要 登录 才可以下载或查看，没有帐号？注册
x
在vb中写了一段代码，实现矩形阵列，运行后出现“类型不匹配”，该了好多遍了，还是不行。希望有人帮帮忙~~
/ P4 V: ~2 _9 w" Y( d6 TDim Solidobj As AcadSolid6 t% ]8 H9 x9 o) A2 I
Dim Retobj1 As Variant
% O) E4 X/ h1 l0 I" Z- Z( c+ SNumberOfRows = 1
0 D* y" I/ W p0 F( Y+ Q$ QNumberOfColumns = P
& U' ~- i6 c0 H( K C l: Y/ xNumberOfLevels = 1; l- ^ m' }/ h: `4 r( A
DistBetweenRows = 0
7 W6 n# O0 G" C! P+ IDistBetweenColumns = J
0 A& ? T" `3 _0 W! q2 p; _DistBetweenLevels = 24 J# F3 J% M4 v) b7 K3 Q
Set Solidobj = AcadApp.ActiveDocument.ModelSpace.AddSolid(Point1, Point2, Point3, Point4)4 L7 \+ G2 G1 Z- }' m4 F* g; G" F
Set Retobj1 = Solidobj.ArrayRectangular(NumberOfRows, NumberOfColumns, NumberOfLevels, DistBetweenRows, DistBetweenColumns, DistBetweenLevels)3 b' F4 e8 w* }* P V- g8 H- J: ]
其中P、J是前面计算所得的。3 u$ ^# r1 N+ T5 }
运行后出现“类型不匹配”。0 B/ B: `! |9 ^! ?6 m
但是确定“结束”也有矩形阵列出现的。
: ^$ n {/ c* i& v- y9 @7 ~" t2 I
4 V) Z/ {) n/ r4 @! I q[ 本帖最后由 zhuyongping 于 2008-11-24 16:37 编辑 ] |
|
发表于 2008-11-24 16:32:56
发表于 2008-11-24 21:05:12
楼主