[编程申请]：编程求助！！！

zsz7707

我刚刚开始学VBA编程，遇到以下问题，恳请各位高手赐教，谢谢！部分代码如下：

在模块级定义以下数据类型：
Type parray
  p(0 To 2) As Double
End Type
在窗体级定义通用过程：
Private Sub DWline(pt1 As parray, pt2 As parray)
Dim objContinuLine As Object
Set objContinuLine = ThisDrawing.ModelSpace.AddLine(pt1, pt2)
  objContinuLine.Color = acByLayer
  objContinuLine.Layer = "0"
  objContinuLine.Update
End Sub
调用过程如下：
Dim  Ps(0 to 5)  AS  parray

Ps(0).p(0)=1:Ps(0).p(1)=1:Ps(0).p(2)=0
Ps(1).p(0)=5:Ps(1).p(1)=5:Ps(1).p(2)=0

CALL DWline(Ps(0).s,Ps(1).p0)

编译时出现“ByRef参数类型不符”，请问该如何解决？

efan2000

是参数类型不对，AddLine之后跟的参数是Variant类型，即Double型的数组。而你传入的是Type类型，就不对了。
可以这样修改：
Private Sub DWline(pt1 As Variant, pt2 As Variant)
Dim objContinuLine As Object
Set objContinuLine = ThisDrawing.ModelSpace.AddLine(pt1, pt2)
objContinuLine.Color = acByLayer
objContinuLine.Layer = "0"
objContinuLine.Update
End Sub
调用过程如下：
Dim Ps(0 to 2) AS Double
Dim Pe(0 to 2) AS Double
Ps(0)=1:Ps(1)=1:Ps(2)=0
Pe(0)=5:Pe(1)=5:Pe(2)=0

CALL DWline(Ps,Pe)

zsz7707

谢谢你efan2000！按你说得我试过了，只要把参数Pt1的类型改为“Variant”就可以了，非常感谢你的指点！！！