[求助]关于实用函数中的Public Function GetDXFCodeValue的使用
在明经通道实用函数中的一个函数如下：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 是定义的何种类型，是不是类模块？
在编译是出错，是否缺少某种引用？
页:
[1]