QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

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

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

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

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

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

x
在vb中写了一段代码,实现矩形阵列,运行后出现“类型不匹配”,该了好多遍了,还是不行。希望有人帮帮忙~~
/ }- ]3 S% H7 c# a0 mDim Solidobj As AcadSolid
, U& r6 J; K/ XDim Retobj1 As Variant
! j% M. K- @& S% A" Z: `0 fNumberOfRows = 1
: [: c( w' _# N/ cNumberOfColumns = P
) O+ ?$ ~# Z! b  nNumberOfLevels = 1( }3 D: f5 M6 c' r- p$ n4 e
DistBetweenRows = 07 r0 U& @7 _; b- T% S
DistBetweenColumns = J, q$ w% I: `9 c" M0 q7 Q5 a
DistBetweenLevels = 2
; U8 u- \: N+ m, b. hSet Solidobj = AcadApp.ActiveDocument.ModelSpace.AddSolid(Point1, Point2, Point3, Point4)
; c" `; f# P3 o2 `' o6 s' i3 ZSet Retobj1 = Solidobj.ArrayRectangular(NumberOfRows, NumberOfColumns, NumberOfLevels, DistBetweenRows, DistBetweenColumns, DistBetweenLevels)* o, ]  ?( a" k+ }
其中P、J是前面计算所得的。. H9 i  n! u0 k! ]- c. A
运行后出现“类型不匹配”。$ e) e8 ?; ?* S, v( \1 {
但是确定“结束”也有矩形阵列出现的。( w9 N9 _$ {' I
. F& v& ^: T2 A( y8 z9 x1 J
[ 本帖最后由 zhuyongping 于 2008-11-24 16:37 编辑 ]
发表于 2008-11-24 21:05:12 | 显示全部楼层 来自: 中国
Dim Retobj1 As Variant
  R, B2 o: \) U. pRetobj1是变体型变量( }+ Y8 m: @7 [$ w) R+ i2 b
Set Retobj1 = Solidobj.ArrayRectangular(NumberOfRows, NumberOfColumns, NumberOfLevels, DistBetweenRows, DistBetweenColumns, DistBetweenLevels)# o9 `7 ^" E4 w# y9 P
对变体型变量赋值不能用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 )

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