无效的过程调用或参数

feitianyiliu · 发表于 2011-7-20 21:57:02

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

x

本帖最后由 woaishuijia 于 2011-7-21 05:43 编辑

用VBa做了个简单的小程序，居然提示“无效的过程调用或参数”
程序：

Public Sub HTT()
( N# j. P+ y. e! }1 U
Dim Pt0, PT00 As Variant! s- p. g4 {7 x0 d& Z# A1 s$ Y9 I3 T
Dim PT1(0 To 2), PT2(0 To 2), PT3(0 To 2) As Double# j( V) K: B, v f) n5 V$ `1 M
Dim L0, L1 As Double
* B) ^) H& ]5 t& r, e/ e
Dim i, m, n As Integer9 i1 C0 i) [; q0 V
Dim ALine As AcadLine; \; L2 T) |* m& |+ W! q% t* ~4 b i. q
Pt0 = ThisDrawing.Utility.GetPoint(, "基点：")/ P, m9 b) n7 x
X1 = Pt0(0)5 v0 l7 g5 R: [. ^- l7 a0 t
Y1 = Pt0(1)
" \# q- k2 [! \2 b5 R3 [! h
L0 = ThisDrawing.Utility.GetDistance(, "单节筒节宽度：")% c- A% r1 h$ u+ g9 X
L1 = ThisDrawing.Utility.GetDistance(, "筒节直径：")) l3 A. x3 G& J: p& b& \: d- \
PT1(0) = Pt0(0) + L1
1 K" b, ]& ]: s+ c
PT1(1) = Pt0(1)
% }% O$ J: w+ [* R
PT1(2) = Pt0(2)
% X& u- L2 W% |% w2 P* b0 @
PT2(0) = Pt0(0) + L1& m1 M0 H/ B1 B, c
PT2(1) = Pt0(1) - l2# i) R/ k2 J# \, K! {
PT2(2) = Pt0(2)7 L$ d- p5 r6 R7 @
PT3(0) = Pt0(0)5 z6 w" w4 N8 W2 R: Y
PT3(1) = Pt0(1) - l2
b3 z0 ]4 M% O/ d4 [" Y
PT3(2) = Pt0(2)
1 ]: j6 [( o, L
6 p8 G$ t1 M' o% Q I8 y
Set ALine = ThisDrawing.ModelSpace.AddLine(Pt0, PT1)
3 d/ _! i4 t$ p8 P& X7 O
Set ALine = ThisDrawing.ModelSpace.AddLine(PT1, PT2)4 R7 a4 b8 _' w2 ]- W& R5 \5 J
Set ALine = ThisDrawing.ModelSpace.AddLine(PT2, PT3)
# o3 a7 v" S8 ~0 J
Set ALine = ThisDrawing.ModelSpace.AddLine(PT3, Pt0)( m6 ]' z) q! e& f$ y/ y
ZoomAll
( H" g3 H, v# e0 c
End Sub

复制代码

错误提示：

有知道如何解决的吗？

feitianyiliu · 发表于 2011-7-20 21:58:31

问题补充：
一开始能画出一条直线，后来调试了几次，一个都画不出了

woaishuijia · 发表于 2011-7-21 06:04:26

变量声明错误.所声明的每个变量都要一个单独的 As type 子句.如果不指定数据类型或对象类型,且在模块中没有 Deftype 语句,则该变量按缺省设置是 Variant 类型.
以第3行为例:

复制代码

相当于

复制代码

而点坐标数组要求是 Double 类型,所以第22行以后会出错.
正确的写法应该是

复制代码

其它几行 Dim 也是如此

另外,12到20行计算点坐标时使用的 L1 和 l2 与 10 和 11 行不符,错了吧?

feitianyiliu · 发表于 2011-7-22 20:26:21

谢谢了

		自动登录	找回密码
密码			注册

通知