lisp+c#混合编程之--C#调用lisp函数（源码）

print1985

1. 
   

复制代码

2. using Autodesk.AutoCAD.ApplicationServices;
   
3. using Autodesk.AutoCAD.DatabaseServices;
   
4. using Autodesk.AutoCAD.EditorInput;
   
5. using Autodesk.AutoCAD.Runtime;
   
6. 
   
7. namespace ClassLibrary1
   
8. {
   
9.     public class Class1
   
10.     {
    
11.         [CommandMethod("Test1", CommandFlags.Session)]
    
12.         static public void Test1()
    
13.         {
    
14.             ResultBuffer pa = new ResultBuffer(); //lisp参数
    
15.             ResultBuffer rb = new ResultBuffer(); //lisp返回值
    
16.             pa.Add(new TypedValue((int)LispDataType.Text, "c:lisp1")); //lisp函数名字
    
17.             pa.Add(new TypedValue((int)LispDataType.Double, 123));  //lisp参数1 Double类型也可直接用5001代码
    
18.             //pa.Add(new TypedValue(5001, 123)); //也可直接用5001代码
    
19.             rb = Application.Invoke(pa); //调用lisp函数，并取得返回值
    
20.             if (rb != null)
    
21.             {
    
22.                 Editor ed = Application.DocumentManager.MdiActiveDocument.Editor;
    
23.                 TypedValue[] Array = rb.AsArray(); //返回值为数组
    
24.                 string str = Array[0].Value.ToString();
    
25.                 ed.WriteMessage("lisp返回值为：" + str);
    
26.             }
    
27. 
    
28.             //lisp参数类型及代码
    
29.             //None = 5000,
    
30.             //Double = 5001,
    
31.             //Point2d = 5002,
    
32.             //Int16 = 5003,
    
33.             //Angle = 5004,
    
34.             //Text = 5005,
    
35.             //ObjectId = 5006,
    
36.             //SelectionSet = 5007,
    
37.             //Orientation = 5008,
    
38.             //Point3d = 5009,
    
39.             //Int32 = 5010,
    
40.             //Void = 5014,
    
41.             //ListBegin = 5016,
    
42.             //ListEnd = 5017,
    
43.             //DottedPair = 5018,
    
44.             //Nil = 5019,
    
45.             //T_atom = 5021
    
46.         }
    
47.     }
    
48. }
    

using Autodesk.<a href="http://bbs.mjtd.com/forum-41-1.html" target="_blank" class="relatedlink">AutoCAD</a>.ApplicationServices;<br /> using Autodesk.AutoCAD.DatabaseServices;<br /> using Autodesk.AutoCAD.EditorInput;<br /> using Autodesk.AutoCAD.Runtime;<br /> <br /> namespace ClassLibrary1<br /> {<br />     public class Class1<br />     {<br />         [CommandMethod("Test1", CommandFlags.Session)]<br />         static public void Test1()<br />         {<br />             ResultBuffer pa = new ResultBuffer(); //lisp参数<br />             ResultBuffer rb = new ResultBuffer(); //lisp返回值<br />             pa.Add(new TypedValue((int)LispDataType.Text, "c:lisp1")); //lisp函数名字<br />             pa.Add(new TypedValue((int)LispDataType.Double, 123));  //lisp参数1 Double类型也可直接用5001代码<br />             //pa.Add(new TypedValue(5001, 123)); //也可直接用5001代码<br />             rb = Application.Invoke(pa); //调用lisp函数，并取得返回值<br />             if (rb != null)<br />             {<br />                 Editor ed = Application.DocumentManager.MdiActiveDocument.Editor;<br />                 TypedValue[] Array = rb.AsArray(); //返回值为数组<br />                 string str = Array[0].Value.ToString();<br />                 ed.WriteMessage("lisp返回值为：" + str);<br />             }<br /> <br />             //lisp参数类型及代码<br />             //None = 5000,<br />             //Double = 5001,<br />             //Point2d = 5002,<br />             //Int16 = 5003,<br />             //Angle = 5004,<br />             //Text = 5005,<br />             //ObjectId = 5006,<br />             //SelectionSet = 5007,<br />             //Orientation = 5008,<br />             //Point3d = 5009,<br />             //Int32 = 5010,<br />             //Void = 5014,<br />             //ListBegin = 5016,<br />             //ListEnd = 5017,<br />             //DottedPair = 5018,<br />             //Nil = 5019,<br />             //T_atom = 5021<br />         }<br />     }<br /> }<br />

lisp源码：(defun c:lisp1(a) (princ (strcat "C#传入lisp参数为：" (rtos a) "\n")) 456)

关于C#调用lisp的源码好像较少，我弄了个超简单的，给需要的朋友

yshf

谢谢分享

x_s_s_1

谢谢分享，兄弟，这种方法和AUTOCAD版本是否有关？

print1985

x_s_s_1 发表于 2021-2-2 10:18
谢谢分享，兄弟，这种方法和AUTOCAD版本是否有关？

好像是从CAD2012左右的版本才开始有这个函数
即使老版本其实也可以用另外的办法解决的，只是多一道程序而已：
比如C#调用lisp用SendStringToExecute（可以带参数），但是无法获得lisp返回值，那么就增加一道程序，用lisp调用另外一个C#子程序，把lisp得到的值返回给C#，这样就实现了Invoke的功能。
关于lisp调用C#的源码明经和晓东有很多。

nijiea123

这个必须关注 感觉打开了新的大门

cqu20104225

感谢分享，最近开始学习新的知识了！

qq1254582201

好东西，必须留存备用！！！

434939575

新人请问  using Autodesk.<a href="http://bbs.mjtd.com/forum-41-1.html" target="_blank" class = "relatedlink">AutoCAD</a>.ApplicationServices;  这句错误        4        应输入标识符       

CAD2015 VS2013

zxfddz

先收藏，再研究

jia_jg

好东西，必须收藏