无效的过程调用或参数

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

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

x

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

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

Public Sub HTT()4 [4 b% e( Z, E% R8 `4 ~
Dim Pt0, PT00 As Variant( D: v3 Q1 Z, P2 {6 \
Dim PT1(0 To 2), PT2(0 To 2), PT3(0 To 2) As Double0 |5 B# E6 _! o& q- J7 N* }
Dim L0, L1 As Double: e9 I% o* D& N) g6 ~: a5 e8 p3 ~
Dim i, m, n As Integer" t% {. U2 g: K0 [
Dim ALine As AcadLine C' o: {: Y3 I6 f. k
Pt0 = ThisDrawing.Utility.GetPoint(, "基点：")( P- p: ]+ X" u V u8 i8 T
X1 = Pt0(0); c9 Z; ]% c# j1 ], a
Y1 = Pt0(1). c' U' E& b5 V' c9 s( F3 I j( j, n* `
L0 = ThisDrawing.Utility.GetDistance(, "单节筒节宽度："), M( {. N F$ s" k3 ~
L1 = ThisDrawing.Utility.GetDistance(, "筒节直径：")! y: x" _5 v8 z
PT1(0) = Pt0(0) + L1+ `5 {6 {* R- a, k+ U
PT1(1) = Pt0(1)) B+ S* ]9 X7 x: \ M; H
PT1(2) = Pt0(2)/ P+ ?8 Y) Z; q( ^& L0 F" c. X; m& ~
PT2(0) = Pt0(0) + L1
0 B5 ?' w$ D# Y/ Z- \
PT2(1) = Pt0(1) - l2
! B& g- v; N# x% E% ~% Q8 G* l
PT2(2) = Pt0(2)% V2 H2 M" d4 x+ e u
PT3(0) = Pt0(0), V6 T$ T+ y! L5 O
PT3(1) = Pt0(1) - l2
) ~ l/ R, Z* S6 `! F( w
PT3(2) = Pt0(2)
/ B q5 x6 f! { ]/ i- K z
2 S# e: l- O$ M5 v% K7 s5 `; H
Set ALine = ThisDrawing.ModelSpace.AddLine(Pt0, PT1)
) | y) v- I7 S% ~
Set ALine = ThisDrawing.ModelSpace.AddLine(PT1, PT2)* Q1 P* m1 e5 f/ @2 ?3 V' Z8 r
Set ALine = ThisDrawing.ModelSpace.AddLine(PT2, PT3)
H( p" u! L! C# y
Set ALine = ThisDrawing.ModelSpace.AddLine(PT3, Pt0)
O& J* l; x- }* G, M9 S# M! F
ZoomAll
. r' \$ G3 M, b5 Q+ |$ S$ B
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

谢谢了

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

通知