QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

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

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

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

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

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

x
在vb中写了一段代码,实现矩形阵列,运行后出现“类型不匹配”,该了好多遍了,还是不行。希望有人帮帮忙~~5 h; _; t+ D! [+ t9 X: b
Dim Solidobj As AcadSolid
- P; Z, r8 D5 _# g# K( D1 eDim Retobj1 As Variant1 [% \7 s8 V/ G: s4 F) ~: M
NumberOfRows = 1! [- V! _* V* g
NumberOfColumns = P- c4 P' U( R; G+ a5 e3 b7 M+ W
NumberOfLevels = 1% g! \4 p. ?5 u$ k2 x3 m
DistBetweenRows = 0
, Y- s4 J2 X; @  a5 p% QDistBetweenColumns = J$ r# j  D6 I* B8 l5 Z/ K7 ?
DistBetweenLevels = 26 z& b9 T7 T. m. b! k3 E) E
Set Solidobj = AcadApp.ActiveDocument.ModelSpace.AddSolid(Point1, Point2, Point3, Point4)' u8 _6 k0 T6 A8 Z3 o
Set Retobj1 = Solidobj.ArrayRectangular(NumberOfRows, NumberOfColumns, NumberOfLevels, DistBetweenRows, DistBetweenColumns, DistBetweenLevels)
+ l- ^; G( \5 g其中P、J是前面计算所得的。" e, W% {* _: h! r$ y
运行后出现“类型不匹配”。; d2 l1 w1 Y7 p, N" b1 u
但是确定“结束”也有矩形阵列出现的。* T: Y( ]' M8 Y9 ^; s; ~
& Q3 ~5 I# C/ b/ t' b! o: |
[ 本帖最后由 zhuyongping 于 2008-11-24 16:37 编辑 ]
发表于 2008-11-24 21:05:12 | 显示全部楼层 来自: 中国
Dim Retobj1 As Variant
# X; A9 o- ~/ e7 S  A( H# XRetobj1是变体型变量( r, \5 i  w" M* p$ p
Set Retobj1 = Solidobj.ArrayRectangular(NumberOfRows, NumberOfColumns, NumberOfLevels, DistBetweenRows, DistBetweenColumns, DistBetweenLevels)
  k' B. g% l2 r) j$ n, f4 V对变体型变量赋值不能用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 )

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