QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

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

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

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

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

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

x
在vb中写了一段代码,实现矩形阵列,运行后出现“类型不匹配”,该了好多遍了,还是不行。希望有人帮帮忙~~
: A) {$ A8 }+ t& N5 H  K; B7 KDim Solidobj As AcadSolid
8 e( h/ ^, Z$ F6 w) TDim Retobj1 As Variant
! w3 s- y' \1 a2 f" ^9 mNumberOfRows = 1  D( }; }; R. D1 \
NumberOfColumns = P
, x! x/ P0 z" E) u( {7 w7 g* T  lNumberOfLevels = 1
; L8 x1 u% _7 T. `9 [) y0 `& N& hDistBetweenRows = 02 z6 X1 Q1 ~7 F+ k% D
DistBetweenColumns = J; ]1 ~& U+ G- D7 {6 B! m0 k/ ^) c: W
DistBetweenLevels = 2
' j; C7 }; u' Z5 O6 w) x- ~# D# \Set Solidobj = AcadApp.ActiveDocument.ModelSpace.AddSolid(Point1, Point2, Point3, Point4)
+ [, f* j  b0 E& P8 _7 wSet Retobj1 = Solidobj.ArrayRectangular(NumberOfRows, NumberOfColumns, NumberOfLevels, DistBetweenRows, DistBetweenColumns, DistBetweenLevels)  ^& s% D2 C$ M' K! }
其中P、J是前面计算所得的。3 F$ U# j; r  `( j5 b1 `2 V
运行后出现“类型不匹配”。7 s5 G5 G+ v' i3 `
但是确定“结束”也有矩形阵列出现的。3 s5 n- c3 k1 H- u3 K1 H- |( e

. Z+ a/ c: ?& X+ C( w3 S' q[ 本帖最后由 zhuyongping 于 2008-11-24 16:37 编辑 ]
发表于 2008-11-24 21:05:12 | 显示全部楼层 来自: 中国
Dim Retobj1 As Variant
1 N- X) F5 t; M% X' I: V! [Retobj1是变体型变量
  d4 p( Q" G4 Z. fSet Retobj1 = Solidobj.ArrayRectangular(NumberOfRows, NumberOfColumns, NumberOfLevels, DistBetweenRows, DistBetweenColumns, DistBetweenLevels)2 `5 d" n9 X6 r+ g3 U
对变体型变量赋值不能用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 )

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