无效的过程调用或参数

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

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

x

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

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

Public Sub HTT()/ B s) S% Q; {/ j" n, `
Dim Pt0, PT00 As Variant& G: \( J& p. p0 g7 d
Dim PT1(0 To 2), PT2(0 To 2), PT3(0 To 2) As Double
+ ? f6 a% g( l7 h4 Y
Dim L0, L1 As Double
! p4 o3 O5 r4 Q1 I1 S7 F: E3 d
Dim i, m, n As Integer- s2 I2 H- W7 Y% X+ ^
Dim ALine As AcadLine
! Z8 W2 D. M/ k; w( p0 W
Pt0 = ThisDrawing.Utility.GetPoint(, "基点：")
; z5 q7 ]8 Q( V6 e7 M
X1 = Pt0(0)
+ R" f6 H" L2 B% a' e- |8 W
Y1 = Pt0(1)
2 f1 K2 V% M$ V! j& p
L0 = ThisDrawing.Utility.GetDistance(, "单节筒节宽度：")9 e+ g5 x V* k# j
L1 = ThisDrawing.Utility.GetDistance(, "筒节直径：")3 [! j9 v5 T4 U$ W; T) ~
PT1(0) = Pt0(0) + L1+ J# s2 R9 y* e. a, ?. A) q
PT1(1) = Pt0(1)9 r$ d6 L& z3 j e( @
PT1(2) = Pt0(2)( K& O: P$ j7 L" l( s, g0 z
PT2(0) = Pt0(0) + L1* Y- r1 D1 W! R5 Z
PT2(1) = Pt0(1) - l2+ t# n6 i' Q$ ?( \' U
PT2(2) = Pt0(2)
& C7 f9 F" x5 w9 @3 ?3 [+ o& k$ m
PT3(0) = Pt0(0): c8 e- ]9 D8 j
PT3(1) = Pt0(1) - l2
+ Q/ \! O* x. f
PT3(2) = Pt0(2)8 t+ O4 O9 E+ f$ z9 K9 S6 c
8 K9 c9 L1 E& e! m) L7 [9 f7 j4 _
Set ALine = ThisDrawing.ModelSpace.AddLine(Pt0, PT1)' n- e& F$ t1 V1 `1 `5 l, ]" y
Set ALine = ThisDrawing.ModelSpace.AddLine(PT1, PT2)) J w# H5 Y$ f
Set ALine = ThisDrawing.ModelSpace.AddLine(PT2, PT3)
8 V) @) w4 u/ I4 d; y
Set ALine = ThisDrawing.ModelSpace.AddLine(PT3, Pt0)
# x# ^0 k6 h8 I) P/ @/ {* C
ZoomAll
( m! I( E# `6 {* @4 A) w
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

谢谢了

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

通知