无效的过程调用或参数

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

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

x

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

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

Public Sub HTT()
; `1 x4 o5 L, n7 m' C
Dim Pt0, PT00 As Variant3 f9 s# y6 M# L Q' g' W
Dim PT1(0 To 2), PT2(0 To 2), PT3(0 To 2) As Double$ p# f: `6 w% j% [- O7 A
Dim L0, L1 As Double
% ?' p! q( E" ^6 L
Dim i, m, n As Integer
' B* [/ R/ R& Y0 Y& A [. s
Dim ALine As AcadLine
) i7 c, b& T" c9 V0 `& i8 V$ C
Pt0 = ThisDrawing.Utility.GetPoint(, "基点："), ]) G1 h5 ]% D' t9 F: E
X1 = Pt0(0)
% B. W2 a4 i# M; k* X
Y1 = Pt0(1)
: e' [, ^& @5 [
L0 = ThisDrawing.Utility.GetDistance(, "单节筒节宽度：")
! ]7 L% t& F2 n# C6 Z) d; N
L1 = ThisDrawing.Utility.GetDistance(, "筒节直径：")" V! l' U9 n" y6 d. d4 f9 G% A
PT1(0) = Pt0(0) + L1
# _( j3 D7 x+ Y, o8 Q" m
PT1(1) = Pt0(1)" R+ Y0 ?$ ~! I' F+ o! N+ b+ I
PT1(2) = Pt0(2)1 ^1 v T3 ?5 i5 ]/ U
PT2(0) = Pt0(0) + L1
! L1 G7 a: N b8 t' ?, s% I
PT2(1) = Pt0(1) - l2
! ~, W. C' ] q- G1 d2 |
PT2(2) = Pt0(2)# z& v6 M4 M d2 }! t
PT3(0) = Pt0(0)- Y8 C' r/ w; d, ^' j! p
PT3(1) = Pt0(1) - l2. V, l. @' e P, q( l8 h
PT3(2) = Pt0(2), g* B7 D. D5 R; L {/ H' H$ L
' i7 g3 o3 T9 L. T' Z0 F) j6 D4 Y
Set ALine = ThisDrawing.ModelSpace.AddLine(Pt0, PT1)
7 b5 G( M* x' d1 K* L
Set ALine = ThisDrawing.ModelSpace.AddLine(PT1, PT2)
4 |/ p% S9 Q$ H0 M& n! q0 ~
Set ALine = ThisDrawing.ModelSpace.AddLine(PT2, PT3)0 b. w/ \5 ~7 i7 I$ b& r
Set ALine = ThisDrawing.ModelSpace.AddLine(PT3, Pt0)
9 P" o, P% b* Q. b1 E
ZoomAll3 @9 K$ P8 ~5 \' X
End Sub

复制代码

错误提示：

有知道如何解决的吗？

feitianyiliu · 发表于 2011-7-20 21:58:31

问题补充：
一开始能画出一条直线，后来调试了几次，一个都画不出了

feitianyiliu · 发表于 2011-7-22 20:26:21

谢谢了

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

通知