无效的过程调用或参数

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

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

x

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

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

Public Sub HTT()% D1 j6 L- c3 F/ L
Dim Pt0, PT00 As Variant+ h; c! x3 v3 n5 }$ E0 v
Dim PT1(0 To 2), PT2(0 To 2), PT3(0 To 2) As Double
' D2 G: y" P/ f, m7 _! l
Dim L0, L1 As Double
% S( r/ W( ^ ?( Q
Dim i, m, n As Integer
8 {1 ] F0 Y+ [/ D p- d
Dim ALine As AcadLine) J2 ~% x4 o2 {( n4 A
Pt0 = ThisDrawing.Utility.GetPoint(, "基点：")- i6 t( X9 i) o: l( M5 w
X1 = Pt0(0)" s* d7 a/ g1 T9 A3 ^- a. \9 B
Y1 = Pt0(1)* i2 {7 [7 P; J1 w3 O# n, |
L0 = ThisDrawing.Utility.GetDistance(, "单节筒节宽度：")
; ~/ V9 y% ~+ f- ?- G: Z+ U
L1 = ThisDrawing.Utility.GetDistance(, "筒节直径：")& F$ Y$ u& m0 T
PT1(0) = Pt0(0) + L1
) G& W7 e1 x b! |) X! ?
PT1(1) = Pt0(1)6 l9 e0 b6 F9 X9 g. Q3 C8 ]8 |, D* R
PT1(2) = Pt0(2)% {9 v, u+ b% E" c8 u [
PT2(0) = Pt0(0) + L11 z9 D/ D' ?) d
PT2(1) = Pt0(1) - l2; n4 a+ U3 U# _& v; s" w
PT2(2) = Pt0(2)
# L M! D" e' m, E" b
PT3(0) = Pt0(0)# J& c' ]2 H) M" ?( y
PT3(1) = Pt0(1) - l21 |. L* [( p' x; [7 Z1 `, e
PT3(2) = Pt0(2)% F5 H* b& z* z' L; {3 y1 r
* ?6 K$ V, z0 p' @8 A. }
Set ALine = ThisDrawing.ModelSpace.AddLine(Pt0, PT1)
& A$ B" A8 S! B( T# D- X; k0 s$ |
Set ALine = ThisDrawing.ModelSpace.AddLine(PT1, PT2)
& B6 ^* ^7 i+ X L. Z5 x: E# ]
Set ALine = ThisDrawing.ModelSpace.AddLine(PT2, PT3)5 k) P. M" y! `1 p; {
Set ALine = ThisDrawing.ModelSpace.AddLine(PT3, Pt0)
3 L- |$ y$ ]: G6 T- B4 ~
ZoomAll
2 Z' o* X- [% C: \) N
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

通知