无效的过程调用或参数

feitianyiliu

9 l5 J' ]$ _4 `) w; H* L9 Y, Y用VBa做了个简单的小程序，居然提示“无效的过程调用或参数”
. s. j" E. X! ]  p9 f程序：

1. Public Sub HTT()
   
2. Dim Pt0, PT00 As Variant
   
3. Dim PT1(0 To 2), PT2(0 To 2), PT3(0 To 2) As Double
   # d* ?4 g+ E+ O" K* d" q+ U6 c% I
4. Dim L0, L1 As Double
   ; K% w6 ~( H6 h$ t; A
5. Dim i, m, n As Integer
   
6. Dim ALine As AcadLine
   2 E( S* H5 ~4 f/ p& B4 y7 U
7. Pt0 = ThisDrawing.Utility.GetPoint(, "基点：")
   
8. X1 = Pt0(0)
   
9. Y1 = Pt0(1)
   
10. L0 = ThisDrawing.Utility.GetDistance(, "单节筒节宽度：")
    
11. L1 = ThisDrawing.Utility.GetDistance(, "筒节直径：")
    " y8 }! S+ s* [4 Y
12. PT1(0) = Pt0(0) + L1
    2 a, L7 s) t- |, _4 }2 r4 }5 A
13. PT1(1) = Pt0(1)
    
14. PT1(2) = Pt0(2)
    + s" A. T. P/ Y9 {% g( C3 D  ~% Z: o
15. PT2(0) = Pt0(0) + L1
    5 V2 i8 E7 x" ^, A: r' Z8 j
16. PT2(1) = Pt0(1) - l2
    $ a) Y7 P& M% m
17. PT2(2) = Pt0(2)
    0 k. A7 H2 d) z1 o6 }" w
18. PT3(0) = Pt0(0)
    
19. PT3(1) = Pt0(1) - l2
    ( o3 z4 ]3 m& k* }6 Q; F
20. PT3(2) = Pt0(2)
    
21. 
    2 ?. D& v! z4 {  L: r* I
22. Set ALine = ThisDrawing.ModelSpace.AddLine(Pt0, PT1)
    
23. Set ALine = ThisDrawing.ModelSpace.AddLine(PT1, PT2)
    
24. Set ALine = ThisDrawing.ModelSpace.AddLine(PT2, PT3)
    
25. Set ALine = ThisDrawing.ModelSpace.AddLine(PT3, Pt0)
    
26. ZoomAll
    
27. End Sub

复制代码

" h: [9 A5 ?$ q3 b" v0 I6 h7 I错误提示：

有知道如何解决的吗？

feitianyiliu

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

woaishuijia

变量声明错误.所声明的每个变量都要一个单独的 As type 子句.如果不指定数据类型或对象类型,且在模块中没有 Deftype 语句,则该变量按缺省设置是 Variant 类型.
以第3行为例:

1. Dim PT1(0 To 2), PT2(0 To 2), PT3(0 To 2) As Double

复制代码

相当于

1. Dim PT1(0 To 2) As Variant, PT2(0 To 2) As Variant, PT3(0 To 2) As Double

复制代码

而点坐标数组要求是 Double 类型,所以第22行以后会出错.
正确的写法应该是

1. Dim PT1(0 To 2) As Double, PT2(0 To 2) As Double, PT3(0 To 2) As Double

复制代码

其它几行 Dim 也是如此
' m2 _1 q5 {& A6 y- @8 f
" P1 V; g) D" z$ E6 i6 F另外,12到20行计算点坐标时使用的 L1 和 l2 与 10 和 11 行 不符,错了吧?

feitianyiliu

谢谢了