|
|
马上注册，结识高手，享用更多资源，轻松玩转三维网社区。
您需要 登录 才可以下载或查看，没有帐号？注册
x
在vb中写了一段代码，实现矩形阵列，运行后出现“类型不匹配”，该了好多遍了，还是不行。希望有人帮帮忙~~
( _2 v1 q) x9 L b8 UDim Solidobj As AcadSolid
6 R+ m7 d( G5 Q0 ?" a; [3 mDim Retobj1 As Variant! H& `6 d a" a( d8 A' t& p
NumberOfRows = 1# o% t8 b. u. A7 k! m
NumberOfColumns = P7 t1 U! h: g$ D3 P. {7 M
NumberOfLevels = 1, W2 e _* W6 j
DistBetweenRows = 0' `0 Z; k% l! e! `$ t& G
DistBetweenColumns = J
7 r. q# G% f' c) Q qDistBetweenLevels = 2
: F3 q( |* R0 ^& lSet Solidobj = AcadApp.ActiveDocument.ModelSpace.AddSolid(Point1, Point2, Point3, Point4)' h/ @( F b% Z' ?! q8 P
Set Retobj1 = Solidobj.ArrayRectangular(NumberOfRows, NumberOfColumns, NumberOfLevels, DistBetweenRows, DistBetweenColumns, DistBetweenLevels)
: \6 j: t7 w+ k4 L) |& m7 F其中P、J是前面计算所得的。4 _9 J/ i2 {) l8 N- i2 D" w
运行后出现“类型不匹配”。( C7 I1 u, j3 o
但是确定“结束”也有矩形阵列出现的。+ B5 g3 [2 _' J# r- n
7 [* `- \ X9 x- @[ 本帖最后由 zhuyongping 于 2008-11-24 16:37 编辑 ] |
|
发表于 2008-11-24 16:32:56
发表于 2008-11-24 21:05:12
楼主