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

wsccmm · 发表于 2010-8-24 08:22:00

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

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 · 发表于 2010-8-24 21:44:00

绘长方形没问题啊

wsccmm · 发表于 2010-8-25 08:29:00

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

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

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

chmenf087 · 发表于 2010-8-25 10:56:00

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

试试

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

发表回复

精选推荐

浏览过的版块