无效的过程调用或参数

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

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

x

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

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

Public Sub HTT()
, W3 y' S- L$ |4 Q: ]8 H) E
Dim Pt0, PT00 As Variant- C; u" r2 m) `" e8 ^7 v
Dim PT1(0 To 2), PT2(0 To 2), PT3(0 To 2) As Double
0 b- V- W- C' T+ k2 g8 W; L. r# `
Dim L0, L1 As Double
& l3 G- g1 G' e& N
Dim i, m, n As Integer9 u) o! X7 \" b/ w
Dim ALine As AcadLine/ c$ l/ f) ?8 {6 y7 `- u; J9 O/ f% O
Pt0 = ThisDrawing.Utility.GetPoint(, "基点：")
6 P9 ?0 P! Z! t: A
X1 = Pt0(0)2 Y1 l6 C2 a. l5 s! z, g
Y1 = Pt0(1)2 I4 ]. }2 I' Y* V# O% ?
L0 = ThisDrawing.Utility.GetDistance(, "单节筒节宽度："); c7 G3 t S) H8 c
L1 = ThisDrawing.Utility.GetDistance(, "筒节直径："), z+ F+ q7 l @# F( j
PT1(0) = Pt0(0) + L1
9 ^ u- S- U; R
PT1(1) = Pt0(1)5 Z D% O2 H6 q* k
PT1(2) = Pt0(2)9 }5 I7 }/ c0 W7 T' `
PT2(0) = Pt0(0) + L1
# B" w$ t7 j% r+ ]! L
PT2(1) = Pt0(1) - l2
8 N6 ] D# R8 q, v6 y
PT2(2) = Pt0(2)% @; S- v. H% j# J/ d
PT3(0) = Pt0(0). E& ^9 G! @5 W& Z9 j5 Y6 z
PT3(1) = Pt0(1) - l2
3 ?: [( Q! t& J' K* E
PT3(2) = Pt0(2), W5 I' g4 C; S
8 v5 r; D: `; ]" U2 Z3 D& J( V% p
Set ALine = ThisDrawing.ModelSpace.AddLine(Pt0, PT1)1 S. b5 T! O n* V
Set ALine = ThisDrawing.ModelSpace.AddLine(PT1, PT2)' p! h/ y5 ]* \7 u
Set ALine = ThisDrawing.ModelSpace.AddLine(PT2, PT3)9 T/ J, `6 ^# z; L" c8 y3 P
Set ALine = ThisDrawing.ModelSpace.AddLine(PT3, Pt0), v, {. T4 W' ^% u+ Q
ZoomAll
% z4 A1 J, m0 {4 d. C" S
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

谢谢了

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

通知