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

tctabc

请教各位高手
C#编写的函数，有办法于LISP中呼叫并将运算资料进行传递吗?

烦请各位能够协助解答一下，谢谢~

sieben

不明白楼主的问题
不过C#可以定义Lisp函数供Lisp使用,C#也可以使用Lisp函数(需要注册)
---------------------------
这里是说在较新版本的AutoCAD

tctabc

谢谢解答~请问您说的部份哪边可以找到范例资料呢?是否可以提供，谢谢~

sieben

http://user.qzone.qq.com/812928665/infocenter?ptsig=VqFz*FJZppcBJ8FFEY8WcJIsdH05z0cArysBaljnHFU_

sieben

上面连接好像有问题,
就是空间里面的<C#定义Visual Lisp函数>日志

chpmould

建议LZ先看看有关C#与Lisp语言混合编程这方面的就可以实现你的要求了

guohq

1. ''' <summary>
   
2. ''' 用.NET来运行Lisp的工具
   
3. ''' </summary>
   
4. ''' <remarks>1.实例化后，先LoadLisp</remarks>
   
5. Public Class LispInDotNet
   
6.     Private mVlFunctions As Object = Nothing
   
7.     ''' <summary>
   
8.     ''' Lisp的函数对象集
   
9.     ''' </summary>
   
10.     ''' <value></value>
    
11.     ''' <returns></returns>
    
12.     ''' <remarks></remarks>
    
13.     Public ReadOnly Property VlFunctions As Object
    
14.         Get
    
15.             Return mVlFunctions
    
16.         End Get
    
17.     End Property
    
18. 
    
19.     Private mLoadSuccessful As Boolean = False
    
20.     ''' <summary>
    
21.     ''' 是否加载成功
    
22.     ''' </summary>
    
23.     ''' <value></value>
    
24.     ''' <returns></returns>
    
25.     ''' <remarks></remarks>
    
26.     Public ReadOnly Property LoadSuccessful As Boolean
    
27.         Get
    
28.             Return mLoadSuccessful
    
29.         End Get
    
30.     End Property
    
31.     ''' <summary>
    
32.     ''' 加载Lisp运行环境
    
33.     ''' </summary>
    
34.     ''' <returns></returns>
    
35.     ''' <remarks></remarks>
    
36.     Public Function LoadLisp() As Boolean
    
37.         '状态：20131126-1348测试通过
    
38.         Try
    
39.             Dim acadApp As Object = Autodesk.AutoCAD.ApplicationServices.Application.AcadApplication
    
40.             Dim vlApp As Object = acadApp.GetInterfaceObject("VL.Application.16") '此处出错，可能是因为没有加载VL环境所致, (vl-load-com)
    
41.             'VL.Application.16 为什么会是16？到AutoCAD各版本的安装目录里到查找，会发现一个vl16.tlb，这个文件就是visual lisp的运行环境，到AutoCAD 2014为止，这个文件一直没有更新。
    
42.             mVlFunctions = vlApp.ActiveDocument.Functions
    
43.             mLoadSuccessful = True
    
44.             Return True
    
45.         Catch ex As Autodesk.AutoCAD.Runtime.Exception
    
46.             Return False
    
47.         End Try
    
48.     End Function
    
49. 
    
50.     ''' <summary>
    
51.     ''' 运行Lisp函数
    
52.     ''' </summary>
    
53.     ''' <param name="FunctionName"></param>
    
54.     ''' <param name="args">参数数组</param>
    
55.     ''' <param name="runSuccessful">是否运行成功</param>
    
56.     ''' <param name="ErrMsg">出错信息</param>
    
57.     ''' <returns></returns>
    
58.     ''' <remarks></remarks>
    
59.     Public Function RunLispFunction(ByVal FunctionName As String, args() As Object, Optional ByRef runSuccessful As Boolean = False, Optional ByRef ErrMsg As String = "") As Object
    
60.         '状态：20131126-1711通过测试
    
61.         runSuccessful = False
    
62.         If Me.LoadSuccessful = True Then
    
63.             If Me.HasLispFunction(FunctionName) = False Then
    
64.                 Return Nothing
    
65.             End If
    
66.             Try
    
67.                 Dim vlFunction As Object = mVlFunctions.Item(FunctionName)
    
68.                 RunLispFunction = vlFunction.GetType.InvokeMember("funcall", BindingFlags.InvokeMethod, Nothing, vlFunction, args)
    
69.                 runSuccessful = True
    
70.             Catch ex As System.Reflection.TargetInvocationException
    
71.                 ErrMsg = ex.Message
    
72.                 Return Nothing
    
73.             End Try
    
74.         Else
    
75.             Return Nothing
    
76.         End If
    
77.     End Function
    
78. 
    
79.     ''' <summary>
    
80.     ''' 查询当前环境是否有某个Lisp函数或者变量
    
81.     ''' </summary>
    
82.     ''' <param name="functionNameOrValueName"></param>
    
83.     ''' <returns></returns>
    
84.     ''' <remarks></remarks>
    
85.     Public Function HasLispFunction(ByVal functionNameOrValueName As String) As Boolean
    
86.         '状态：20131126-1534通过测试
    
87.         Dim vlFunction As Object = mVlFunctions.Item("read")
    
88.         Dim sym As Object = vlFunction.GetType.InvokeMember("funcall", BindingFlags.InvokeMethod, Nothing, vlFunction, New Object() {functionNameOrValueName})
    
89.         If sym Is Nothing Then
    
90.             Return False
    
91.         Else
    
92.             Dim vlFuncEval As Object = mVlFunctions.Item("eval")
    
93.             If vlFunction.GetType.InvokeMember("funcall", BindingFlags.InvokeMethod, Nothing, vlFuncEval, New Object() {sym}) Is Nothing Then
    
94.                 Return False
    
95.             Else
    
96.                 Return True
    
97.             End If
    
98.         End If
    
99.     End Function
    
100. 
     
101.     ''' <summary>
     
102.     ''' 获取Lisp变量的值
     
103.     ''' </summary>
     
104.     ''' <param name="ValueName"></param>
     
105.     ''' <returns></returns>
     
106.     ''' <remarks></remarks>
     
107.     Public Function GetValue(ValueName As String) As Object
     
108.         '状态：20131126-1534通过测试
     
109.         Return Eval(ValueName)
     
110.     End Function
     
111. 
     
112.     ''' <summary>
     
113.     ''' 获取一个Lisp语句的值
     
114.     ''' </summary>
     
115.     ''' <param name="LispString"></param>
     
116.     ''' <returns></returns>
     
117.     ''' <remarks></remarks>
     
118.     Public Function Eval(LispString As String) As Object
     
119.         '状态：20131126-1534通过测试
     
120.         Try
     
121.             Dim sym As Object = RunLispFunction("read", New Object() {LispString})
     
122.             If sym Is Nothing Then
     
123.                 Return Nothing
     
124.             Else
     
125.                 Return RunLispFunction("eval", New Object() {sym})
     
126.             End If
     
127.         Catch ex As Exception
     
128.             Return Nothing
     
129.         End Try
     
130.     End Function
     
131. 
     
132.     ''' <summary>
     
133.     ''' 设置Lisp变量的值
     
134.     ''' </summary>
     
135.     ''' <param name="ValueName">变量名</param>
     
136.     ''' <param name="Value">变量值</param>
     
137.     ''' <returns></returns>
     
138.     ''' <remarks></remarks>
     
139.     Public Function SetValue(ByVal ValueName As String, ByVal Value As Object) As Boolean
     
140.         '状态：20131126-1534通过测试
     
141.         Dim suc As Boolean = False, errMsg As String = ""
     
142.         Dim sym As Object = Me.RunLispFunction("read", New Object() {ValueName}, suc, errMsg)
     
143.         If suc Then
     
144.             Me.RunLispFunction("set", New Object() {sym, Value}, suc, errMsg)
     
145.             If suc Then
     
146.                 Return True
     
147.             Else
     
148.                 Return False
     
149.             End If
     
150.         Else
     
151.             Return False
     
152.         End If
     
153.     End Function
     
154. 
     
155. 
     
156. 
     
157. End Class

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

有兴趣的话，可以参考一下。