[VBA]类型不匹配错误,紧急

phos

                      'AutoCAD 2005 vba类型不匹配错误
Public Minpoint, Maxpoint As Variant

Private Sub cutphoto9_Click()
  Dim ClipPoints(0 To 99),POINTS(0 To 9),Clippoints1() As Double
  Dim kkkk As Integer
  Ssetobj.Item(0).GetBoundingBox Minpoint, Maxpoint
  number3 = Clipphoto(POINTS, ClipPoints, kkkk, Clippoints1)'调用函数
end sub

Public Function Clipphoto(Pone() As Double, Ptwo() As Double, su As Integer, PPPP() As Double) As Integer
  Dim Minx, Miny, Maxx, Maxy As Double
  Minx = Minpoint(0)'此句出现类型不匹配错误,请问怎么处理,把Minx 定义为Variant同样出错,有时又不会出错
End Function

wyj7485

如此定义:

Dim Minx, Miny, Maxx, Maxy

phos

我试了，还是报错

mccad

Dim Minx As Double, Miny As Double, Maxx As Double, Maxy As Double

phos

多谢