[求助]关于实用函数中的Public Function GetDXFCodeValue的使用

WWWDONG

在明经通道实用函数中的一个函数如下：
Public Function GetDXFCodeValue(ent As AcadEntity, gCode As Integer) As Variant
   '功能

'返回关联于给定DXF组代码域的值

'参数

'一个 AcadEntity 和组代码

'示例

'GetDXFCodeValue(ent, 8)

'注意

'不要将该函数用于包含指向其它对象的DXF域

    Dim obj As vlax
    Dim retVal As Variant
   
    Set obj = New vlax
   
    retVal = obj.EvalLispExpression("(cdr (assoc " & gCode & " (entget(handent " & _
                                     Chr(34) & ent.Handle & Chr(34) & "))))")
    Set obj = Nothing
    GetDXFCodeValue = retVal
   
End Function
函数第一句dim obj as vlax 是定义的何种类型，是不是类模块？
在编译是出错，是否缺少某种引用？