QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

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

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

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

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

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

x
在vb中写了一段代码,实现矩形阵列,运行后出现“类型不匹配”,该了好多遍了,还是不行。希望有人帮帮忙~~
$ n+ c$ `0 u! O2 LDim Solidobj As AcadSolid' J, y' l- e& ]$ R! ?' V
Dim Retobj1 As Variant
5 q: }0 K" z. v5 ?) ]( N# E4 L$ ?NumberOfRows = 1
5 M  Z6 U+ v3 q! X) H0 XNumberOfColumns = P* N  q( k* b. f, ?3 q
NumberOfLevels = 1
( J* F$ b: i/ M  m# M: t, t6 ODistBetweenRows = 03 ^1 c, r4 m, D3 ~8 L* e( i" \
DistBetweenColumns = J) l8 j: I# n% {5 a+ z5 s7 p
DistBetweenLevels = 2
6 t& M2 V7 q4 F- F9 o4 iSet Solidobj = AcadApp.ActiveDocument.ModelSpace.AddSolid(Point1, Point2, Point3, Point4)
% j' n) d9 U$ h0 [; l9 x3 I  SSet Retobj1 = Solidobj.ArrayRectangular(NumberOfRows, NumberOfColumns, NumberOfLevels, DistBetweenRows, DistBetweenColumns, DistBetweenLevels); F- ~8 f0 t. V4 L4 i
其中P、J是前面计算所得的。
5 z7 _) h* f3 R# n运行后出现“类型不匹配”。
5 i9 }% a( U5 P) Y- h但是确定“结束”也有矩形阵列出现的。
% N# j9 y. T8 ~! Q0 t$ O  p' V, s
" S2 b7 _& c" @[ 本帖最后由 zhuyongping 于 2008-11-24 16:37 编辑 ]
发表于 2008-11-24 21:05:12 | 显示全部楼层 来自: 中国
Dim Retobj1 As Variant
" L0 K$ ^5 ?5 F' H3 Q! n' \2 K1 gRetobj1是变体型变量. D% Q) _) _# I$ s3 _
Set Retobj1 = Solidobj.ArrayRectangular(NumberOfRows, NumberOfColumns, NumberOfLevels, DistBetweenRows, DistBetweenColumns, DistBetweenLevels)% t) |# |% @: d8 \' n, G' [$ w" `$ L$ W
对变体型变量赋值不能用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 )

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