[求助]想作一个子函数，用于取得屏幕上选取的文字的值和3D坐标

52okok

怎么老出现 Type mismatch 问题？本人VB较弱，是不是Vb函数只能返回单值呀？

Public Function Get_Elev_BasePnt(ByVal Obj As AcadText) As Double

           Get_Elev_BasePnt(0) = obj.TextString
            Get_Elev_BasePnt(1) = Obj.InsertionPoint(0)
            Get_Elev_BasePnt(2) = Obj.InsertionPoint(1)
            Get_Elev_BasePnt(3) = Obj.InsertionPoint(2)

end fuction

xinghesnak

Function Get_Elev_BasePnt(ByVal Obj As AcadText) As Variant
Dim curValue(3) As Double
curValue(0) = Obj.TextString
curValue(1) = Obj.InsertionPoint(0)
curValue(2) = Obj.InsertionPoint(1)
curValue(3) = Obj.InsertionPoint(2)
Get_Elev_BasePnt = curValue
End Function

雪山飞狐_lzh

Dim curValue(3)

xinghesnak

顶顶，笔误。。。。^_^