QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

查看: 1608|回复: 2
收起左侧

[已解决] 矩形阵列——类型不匹配

[复制链接]
发表于 2008-11-24 16:32:56 | 显示全部楼层 |阅读模式 来自: 中国江苏南京

马上注册,结识高手,享用更多资源,轻松玩转三维网社区。

您需要 登录 才可以下载或查看,没有帐号?注册

x
在vb中写了一段代码,实现矩形阵列,运行后出现“类型不匹配”,该了好多遍了,还是不行。希望有人帮帮忙~~
/ z4 Z/ X- h0 uDim Solidobj As AcadSolid4 L  B8 K, ]5 f9 l" y: j. }
Dim Retobj1 As Variant3 {. I' G9 h4 z% F) S
NumberOfRows = 18 c1 {# ]8 q! I, x
NumberOfColumns = P0 y' J0 ^, i4 i" l" p
NumberOfLevels = 1
5 y  |3 d1 E  y8 G  B3 B* P) JDistBetweenRows = 0( B8 p. u, A1 z# H, S4 N
DistBetweenColumns = J
# x/ _5 \6 z* N* _DistBetweenLevels = 23 u, t( t  u; m5 T7 X/ V  E, d7 p
Set Solidobj = AcadApp.ActiveDocument.ModelSpace.AddSolid(Point1, Point2, Point3, Point4). j4 \* ?7 s5 Y1 |: d, x
Set Retobj1 = Solidobj.ArrayRectangular(NumberOfRows, NumberOfColumns, NumberOfLevels, DistBetweenRows, DistBetweenColumns, DistBetweenLevels)! N1 {9 k  m' r4 {8 A/ W) \
其中P、J是前面计算所得的。
8 f% M$ d4 k; ]9 O运行后出现“类型不匹配”。
. G  a! J. O* U/ ~但是确定“结束”也有矩形阵列出现的。
: J2 P" `3 e- x5 p) d, e$ P+ Z
1 Z' d9 G7 N9 X; M3 H+ V1 B[ 本帖最后由 zhuyongping 于 2008-11-24 16:37 编辑 ]
发表于 2008-11-24 21:05:12 | 显示全部楼层 来自: 中国
Dim Retobj1 As Variant
9 m6 B0 U1 W' y/ ^" `Retobj1是变体型变量4 D4 }7 X5 G# B8 h( @" a
Set Retobj1 = Solidobj.ArrayRectangular(NumberOfRows, NumberOfColumns, NumberOfLevels, DistBetweenRows, DistBetweenColumns, DistBetweenLevels)4 R) y- l' s' p4 E
对变体型变量赋值不能用Set,对对象型变量赋值才用Set
 楼主| 发表于 2008-11-25 08:49:19 | 显示全部楼层 来自: 中国江苏南京
非常感谢,对了。
发表回复
您需要登录后才可以回帖 登录 | 注册

本版积分规则

Licensed Copyright © 2016-2020 http://www.3dportal.cn/ All Rights Reserved 京 ICP备13008828号

小黑屋|手机版|Archiver|三维网 ( 京ICP备2023026364号-1 )

快速回复 返回顶部 返回列表