[求助]C#编写的函数，有办法于LISP中呼叫并将运算资料进行传递吗?

''' 
''' 用.NET来运行Lisp的工具
''' 
''' 1.实例化后，先LoadLisp
Public Class LispInDotNet
    Private mVlFunctions As Object = Nothing
    ''' 
    ''' Lisp的函数对象集
    ''' 
    ''' 
    ''' 
    ''' 
    Public ReadOnly Property VlFunctions As Object
        Get
            Return mVlFunctions
        End Get
    End Property
    Private mLoadSuccessful As Boolean = False
    ''' 
    ''' 是否加载成功
    ''' 
    ''' 
    ''' 
    ''' 
    Public ReadOnly Property LoadSuccessful As Boolean
        Get
            Return mLoadSuccessful
        End Get
    End Property
    ''' 
    ''' 加载Lisp运行环境
    ''' 
    ''' 
    ''' 
    Public Function LoadLisp() As Boolean
        '状态：20131126-1348测试通过
        Try
            Dim acadApp As Object = Autodesk.AutoCAD.ApplicationServices.Application.AcadApplication
            Dim vlApp As Object = acadApp.GetInterfaceObject("VL.Application.16") '此处出错，可能是因为没有加载VL环境所致, (vl-load-com)
            'VL.Application.16 为什么会是16？到AutoCAD各版本的安装目录里到查找，会发现一个vl16.tlb，这个文件就是visual lisp的运行环境，到AutoCAD 2014为止，这个文件一直没有更新。
            mVlFunctions = vlApp.ActiveDocument.Functions
            mLoadSuccessful = True
            Return True
        Catch ex As Autodesk.AutoCAD.Runtime.Exception
            Return False
        End Try
    End Function
    ''' 
    ''' 运行Lisp函数
    ''' 
    ''' 
    ''' 参数数组
    ''' 是否运行成功
    ''' 出错信息
    ''' 
    ''' 
    Public Function RunLispFunction(ByVal FunctionName As String, args() As Object, Optional ByRef runSuccessful As Boolean = False, Optional ByRef ErrMsg As String = "") As Object
        '状态：20131126-1711通过测试
        runSuccessful = False
        If Me.LoadSuccessful = True Then
            If Me.HasLispFunction(FunctionName) = False Then
                Return Nothing
            End If
            Try
                Dim vlFunction As Object = mVlFunctions.Item(FunctionName)
                RunLispFunction = vlFunction.GetType.InvokeMember("funcall", BindingFlags.InvokeMethod, Nothing, vlFunction, args)
                runSuccessful = True
            Catch ex As System.Reflection.TargetInvocationException
                ErrMsg = ex.Message
                Return Nothing
            End Try
        Else
            Return Nothing
        End If
    End Function
    ''' 
    ''' 查询当前环境是否有某个Lisp函数或者变量
    ''' 
    ''' 
    ''' 
    ''' 
    Public Function HasLispFunction(ByVal functionNameOrValueName As String) As Boolean
        '状态：20131126-1534通过测试
        Dim vlFunction As Object = mVlFunctions.Item("read")
        Dim sym As Object = vlFunction.GetType.InvokeMember("funcall", BindingFlags.InvokeMethod, Nothing, vlFunction, New Object() {functionNameOrValueName})
        If sym Is Nothing Then
            Return False
        Else
            Dim vlFuncEval As Object = mVlFunctions.Item("eval")
            If vlFunction.GetType.InvokeMember("funcall", BindingFlags.InvokeMethod, Nothing, vlFuncEval, New Object() {sym}) Is Nothing Then
                Return False
            Else
                Return True
            End If
        End If
    End Function
    ''' 
    ''' 获取Lisp变量的值
    ''' 
    ''' 
    ''' 
    ''' 
    Public Function GetValue(ValueName As String) As Object
        '状态：20131126-1534通过测试
        Return Eval(ValueName)
    End Function
    ''' 
    ''' 获取一个Lisp语句的值
    ''' 
    ''' 
    ''' 
    ''' 
    Public Function Eval(LispString As String) As Object
        '状态：20131126-1534通过测试
        Try
            Dim sym As Object = RunLispFunction("read", New Object() {LispString})
            If sym Is Nothing Then
                Return Nothing
            Else
                Return RunLispFunction("eval", New Object() {sym})
            End If
        Catch ex As Exception
            Return Nothing
        End Try
    End Function
    ''' 
    ''' 设置Lisp变量的值
    ''' 
    ''' 变量名
    ''' 变量值
    ''' 
    ''' 
    Public Function SetValue(ByVal ValueName As String, ByVal Value As Object) As Boolean
        '状态：20131126-1534通过测试
        Dim suc As Boolean = False, errMsg As String = ""
        Dim sym As Object = Me.RunLispFunction("read", New Object() {ValueName}, suc, errMsg)
        If suc Then
            Me.RunLispFunction("set", New Object() {sym, Value}, suc, errMsg)
            If suc Then
                Return True
            Else
                Return False
            End If
        Else
            Return False
        End If
    End FunctionEnd Class