|
|
马上注册，结识高手，享用更多资源，轻松玩转三维网社区。
您需要 登录 才可以下载或查看，没有帐号？注册
x
在vb中写了一段代码，实现矩形阵列，运行后出现“类型不匹配”，该了好多遍了，还是不行。希望有人帮帮忙~~5 D; h4 k; H- ?. m8 `
Dim Solidobj As AcadSolid/ `6 z" A3 B5 d$ a- n1 C* F7 B
Dim Retobj1 As Variant: Q* e/ M. u1 o& s
NumberOfRows = 1
% E1 l# S3 t1 d" m. k( }9 |NumberOfColumns = P/ J% m1 I7 ~, x. r- b0 ~
NumberOfLevels = 1% t" `. l. z g$ c* _) B7 N
DistBetweenRows = 0
- l$ J3 F! N: s# w6 R& Y; I' BDistBetweenColumns = J: F7 K0 T( P" D$ f* z4 m9 x
DistBetweenLevels = 2' n/ d# \# f0 V0 _; {1 r3 F+ |) N3 U d6 D
Set Solidobj = AcadApp.ActiveDocument.ModelSpace.AddSolid(Point1, Point2, Point3, Point4)
) d; e/ h# C8 OSet Retobj1 = Solidobj.ArrayRectangular(NumberOfRows, NumberOfColumns, NumberOfLevels, DistBetweenRows, DistBetweenColumns, DistBetweenLevels)% `) f8 w3 t; D3 @
其中P、J是前面计算所得的。3 G) I, q: k) f! x1 w- o9 z7 ?* q" k( a
运行后出现“类型不匹配”。
# A1 T" w X/ b3 M8 V9 v0 Z但是确定“结束”也有矩形阵列出现的。
7 R2 I I8 j1 s; `/ h
; o5 z8 P7 G3 }8 [. i* r[ 本帖最后由 zhuyongping 于 2008-11-24 16:37 编辑 ] |
|
发表于 2008-11-24 16:32:56
发表于 2008-11-24 21:05:12
楼主