无效的过程调用或参数

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

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

x

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

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

Public Sub HTT()+ \4 C6 N+ e3 ]5 e* {7 X! t; R: M
Dim Pt0, PT00 As Variant0 T+ m e# q9 |6 b
Dim PT1(0 To 2), PT2(0 To 2), PT3(0 To 2) As Double
; U) e0 @7 s- F, w
Dim L0, L1 As Double% p: q6 t' w$ }: o2 u
Dim i, m, n As Integer
4 _; I2 _% o6 H6 p' j! d' O& m3 t2 \! U
Dim ALine As AcadLine
/ ~. S! C! E* Y/ P0 r5 Z* O
Pt0 = ThisDrawing.Utility.GetPoint(, "基点：")* A @8 e( ^7 `1 S- \1 ~* d/ y, I
X1 = Pt0(0) r! c+ n/ i3 n4 I
Y1 = Pt0(1)
: G3 u* ~' O# _9 D5 b
L0 = ThisDrawing.Utility.GetDistance(, "单节筒节宽度：")# c% z+ ]7 e# D+ s' H, ^2 T$ q
L1 = ThisDrawing.Utility.GetDistance(, "筒节直径：")
+ z5 L7 y# c* V- J% V0 Z) ]% M+ h
PT1(0) = Pt0(0) + L13 s/ P( _, T/ z: W1 d
PT1(1) = Pt0(1)
+ t" t& _; w0 r; [" }
PT1(2) = Pt0(2)
2 E; c* R# o L' o- u; A5 K5 j
PT2(0) = Pt0(0) + L1
+ W; k1 ?/ R: O! `; P3 P
PT2(1) = Pt0(1) - l2" B6 N8 _; U. p
PT2(2) = Pt0(2)- @9 g5 O0 A6 X. \1 c
PT3(0) = Pt0(0)
2 c: n5 m) g1 H8 f) G9 K% x
PT3(1) = Pt0(1) - l2
6 w3 }" j [. b, j4 q6 E! M0 V' ?
PT3(2) = Pt0(2)- L) H! V% o- n; z+ I9 @
5 c7 U# }: U% v' y4 F9 W+ b* O$ X9 J
Set ALine = ThisDrawing.ModelSpace.AddLine(Pt0, PT1), y3 [# Q x, I
Set ALine = ThisDrawing.ModelSpace.AddLine(PT1, PT2)) K2 S; i/ S! k
Set ALine = ThisDrawing.ModelSpace.AddLine(PT2, PT3)
5 p2 f# w$ G3 L4 E, ~% c
Set ALine = ThisDrawing.ModelSpace.AddLine(PT3, Pt0)
/ N1 ?- q# a2 t7 X% g; M
ZoomAll
7 p4 k L3 ]& l$ M! z
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

谢谢了

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

全站		goto3d 说: 此次SW竞赛获奖名单公布如下，抱歉晚了，版主最近太忙：一等奖：塔山817；二等奖：a9041、飞鱼；三等奖：wx_dfA5IKla、xwj960414、bzlgl、hklecon；请以上各位和版主联系，领取奖金！！！	2022-03-11
全站		goto3d 说: 在线网校新上线表哥同事（Mastercam2022）+虞为民版大（inventor2022）的最新课程，来围观吧！	2021-06-26

通知