请教各位调用子函数，出现类型不匹配错误。

wsccmm

下面的代码就是要调用子函数画一个长方形，总是出现类型不匹配，有知道为什么吗？

 

Sub court()

Dim linep1(0 To 2) As Double '线条端点1
Dim linep2(0 To 2) As Double '线条端点2

xjq = 11000 '小禁区尺寸
djq = 33000 '大禁区尺寸

 

linep1(0) = 0)是-Y
linep1(1) = 0
linep2(0) = xjq
linep2(1) = djq

call drawbox(linep1, linep2) '调用画矩形子程序C

end sub

 

Private Sub drawbox(p1, p2)
Dim boxp(0 To 14) As Doublewww.askcad.com J0q8c$z1I7@"M9~"d

boxp(0) = p1(0)3s4U6~ P.J*z W
boxp(1) = p1(1)(askcad.com),为

boxp(3) = p1(0)
boxp(4) = p2(1)
设计论坛$T;F6b6r8r4g },f2n
boxp(6) = p2(0)
boxp(7) = p2(1)www.askcad.com

boxp(9) = p2(0）

boxp(10) = p1(1)

boxp(12) = p1(0)
boxp(13) = p1(1)9F6

Y*y(~'k'o2a9g:
Call ThisDrawing.ModelSpace.AddPolyline(boxp)

end sub

pmq

绘长方形没问题啊

wsccmm

多谢二楼的回复，你用的是哪个版本？我用的2010，绘制不出来呢，也没有查出来是哪里错误呢。

 

另外，顺便说一下，这里回贴的人怎么这么少？是问题太简单了，不愿意回答呢？还是说大家都不懂VBA呢？

 

各位达人是不应该多帮助下新人啊！

chmenf087

Private Sub CommandButton2_Click()

Dim linep1(0 To 2) As Double '线条端点1
Dim linep2(0 To 2) As Double '线条端点2
Dim xjq As Double, djq As Double

xjq = 11000 '小禁区尺寸
djq = 33000 '大禁区尺寸

 

linep1(0) = 0
linep1(1) = 0
linep2(0) = xjq
linep2(1) = djq

Call drawbox(linep1, linep2)

End Sub

 

Private Sub drawbox(p1, p2)
Dim boxp(0 To 14) As Double
Dim i As Integer

boxp(0) = p1(0)
boxp(1) = p1(1)

boxp(3) = p1(0)
boxp(4) = p2(1)

boxp(6) = p2(0)
boxp(7) = p2(1)

boxp(9) = p2(0)
boxp(10) = p1(1)

boxp(12) = p1(0)
boxp(13) = p1(1)
For i = 2 To 12 Step 3
 boxp(i) = 0
Next i
Call ThisDrawing.ModelSpace.AddPolyline(boxp)

End Sub

 

试试