|
|
马上注册，结识高手，享用更多资源，轻松玩转三维网社区。
您需要 登录 才可以下载或查看，没有帐号？注册
x
在vb中写了一段代码，实现矩形阵列，运行后出现“类型不匹配”，该了好多遍了，还是不行。希望有人帮帮忙~~/ A" g0 |- j" d. h
Dim Solidobj As AcadSolid; C: I0 l9 k% u E
Dim Retobj1 As Variant
) C; ~7 Y7 s% qNumberOfRows = 1% Z& H2 G3 e/ _( c6 n! p, |
NumberOfColumns = P D0 r5 {$ m) P& N
NumberOfLevels = 1! S1 A# Y: G. x$ q. S
DistBetweenRows = 0: ]4 s! o* y2 K4 `# w! N+ V
DistBetweenColumns = J5 x0 D0 x; D. }8 F1 A3 g) [
DistBetweenLevels = 26 z& r2 a" F) q
Set Solidobj = AcadApp.ActiveDocument.ModelSpace.AddSolid(Point1, Point2, Point3, Point4)
7 Q1 ^ _" T5 I. lSet Retobj1 = Solidobj.ArrayRectangular(NumberOfRows, NumberOfColumns, NumberOfLevels, DistBetweenRows, DistBetweenColumns, DistBetweenLevels)
. C; ]) s9 H% V9 y6 X! x( u( `, T9 e其中P、J是前面计算所得的。
, E/ ~$ \/ \/ J R7 F运行后出现“类型不匹配”。
8 s# J3 u7 K( C% ~" }4 ~但是确定“结束”也有矩形阵列出现的。, \% t$ h) ]* ]( W4 ]8 W; r
R/ t1 y1 j- `) z' I
[ 本帖最后由 zhuyongping 于 2008-11-24 16:37 编辑 ] |
|
发表于 2008-11-24 16:32:56
发表于 2008-11-24 21:05:12
楼主