QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

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

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

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

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

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

x
在vb中写了一段代码,实现矩形阵列,运行后出现“类型不匹配”,该了好多遍了,还是不行。希望有人帮帮忙~~; a2 J4 G* S7 f8 K# k% J
Dim Solidobj As AcadSolid+ Z7 n7 f. C3 R6 s, M8 e
Dim Retobj1 As Variant6 ?" v6 k& c9 M& {6 y& n' m
NumberOfRows = 11 `  ~, {# s4 E& C2 U
NumberOfColumns = P$ W' \; L! L5 E2 R
NumberOfLevels = 1
5 p- U- a9 z1 n/ J3 MDistBetweenRows = 0+ \; Q9 Q# b7 ?' K7 {: T! W0 v
DistBetweenColumns = J- o% i! b' }4 c6 D1 W
DistBetweenLevels = 2  g' E. T% v6 }) E& V) y
Set Solidobj = AcadApp.ActiveDocument.ModelSpace.AddSolid(Point1, Point2, Point3, Point4)( O, G' y1 F+ @, C4 I
Set Retobj1 = Solidobj.ArrayRectangular(NumberOfRows, NumberOfColumns, NumberOfLevels, DistBetweenRows, DistBetweenColumns, DistBetweenLevels)4 v- L6 e. ^; S! l; X0 N7 a
其中P、J是前面计算所得的。( F3 |3 G- a+ K9 w6 I1 X: r
运行后出现“类型不匹配”。
8 ]. M% T* t" I; ~但是确定“结束”也有矩形阵列出现的。
# A1 g# J  d5 Q- C
, j1 q. h& R. G4 q  L4 P[ 本帖最后由 zhuyongping 于 2008-11-24 16:37 编辑 ]
发表于 2008-11-24 21:05:12 | 显示全部楼层 来自: 中国
Dim Retobj1 As Variant0 n+ _8 W: K- o( ]$ ~2 B! F7 e  j1 ?4 n
Retobj1是变体型变量: |6 u, F' w+ Q) ~3 A
Set Retobj1 = Solidobj.ArrayRectangular(NumberOfRows, NumberOfColumns, NumberOfLevels, DistBetweenRows, DistBetweenColumns, DistBetweenLevels)
  z# Y0 X/ O# Y0 ]% N对变体型变量赋值不能用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 )

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