vb中提示无效的过程调用或参数

来源:百度知道 编辑:UC知道 时间:2024/09/24 15:23:02
被调用函数:
Public Function AddMulLine(n, ps, pe, p1, p2, p3, p4, p5, p6, p7, p8, th As Double, sText As String, cl As String) As Object
'已知各点画标注线
Dim pt1(0 To 2) As Double
Dim pt2(0 To 2) As Double
pt1(0) = ps(0)
pt1(1) = ps(1) + 1
pt1(2) = 0#
Set AddMulLine = mospace.AddText(sText, pt1, th)
Dim ln, l1, l2, l3, l4, l5, l6, l7, L8 As Object
Set ln = mospace.AddLine(ps, pe)
end function
调用的地方:
Dim ps(0 To 2), pe(0 To 2), pe1(0 To 2), pe2(0 To 2), pe3(0 To 2), pe4(0 To 2), pe5(0 To 2), pe6(0 To 2), pe7(0 To 2), pe8(0 To 2) As Double
ps(0) = pt11(0)
ps(1) = pt11(1) - 30
ps(2) = 0#
pe(0) = ps(0) - 10
pe(1) = ps(1)
pe(2) = 0#
tm = GetnPointOfArc(1 / 2, arc10)
pe1(0) = tm(0)
pe1(1) = tm(1)
pe1(2) = 0#
tm = GetnPointOfArc(4 / 7, arc10_1)
pe2(0) = tm(0)
pe2(1) = tm(1)
pe

Set ln = mospace.AddLine(ps, pe) 是这吧
mospace是什么东东 函数 对象 再检查一下估计是对象
在函数里面一般要全名
例如form1.mospace.AddLine(ps, pe)你试试

pt11(0) 这是哪个调用过程 没写出来~