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

print1985 · 发表于 2021-2-1 15:55:19

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

本帖最后由 print1985 于 2021-2-1 23:35 编辑

复制代码

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

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

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

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

gdfyhao · 发表于 2021-2-1 16:29:01

谢谢楼主分享，学习了

dnbcgrass · 发表于 2021-2-2 08:01:57

谢谢分享

晨曦CAD · 发表于 2021-2-2 10:22:42

谢谢楼主分享，学习了

jia_jg · 发表于 2023-12-22 14:58:51

using System;
using Autodesk.AutoCAD.ApplicationServices;
using Autodesk.AutoCAD.DatabaseServices;
using Autodesk.AutoCAD.Runtime;
using Autodesk.AutoCAD.EditorInput;
using System.Runtime.InteropServices;

[assembly: CommandClass(typeof(Sample.CH6_8_3))]
namespace Sample
{
class CH6_8_3
{
      [DllImport("acad.exe", CallingConvention = CallingConvention.Cdecl, EntryPoint = "acedInvoke")]
      private static extern int acedInvoke(IntPtr args, out IntPtr result);

      public static ResultBuffer InvokeLisp(ResultBuffer args, ref int stat)
      {
         IntPtr rb = IntPtr.Zero;
         stat = acedInvoke(args.UnmanagedObject, out rb);
         if (stat == (int)PromptStatus.OK && rb != IntPtr.Zero)
            return (ResultBuffer)DisposableWrapper.Create(typeof(ResultBuffer), rb, true);
         return null;
      }

      [CommandMethod("CallLispFunction")]
      public void CallLispFunction()
      {
         ResultBuffer args = new ResultBuffer();
         int stat = 0;
         args.Add(new TypedValue((int)LispDataType.Text, "c:CallByNet"));
         ResultBuffer res = InvokeLisp(args, ref stat);
      }

      [LispFunction("CallByLispFunction")]
      public static void CallByLispFunction(ResultBuffer rbArgs)
      {
         foreach (TypedValue rb in rbArgs)
            if (rb.TypeCode == (int)Autodesk.AutoCAD.Runtime.LispDataType.Text)
                  Autodesk.AutoCAD.ApplicationServices.Application.ShowAlertDialog(rb.Value.ToString());
      }
}
}

(defun c:CallByNet()
  (setq p1 (getpoint"输入第一点:"))
  (setq p2 (getpoint"输入第二点:"))
  (command "line" p1 p2 "")
)
(defun c:CallNet()
  (setq t1 "BimCad.org")
  (setq t2 "数字建筑")
  (CallByLisp t1 t2)
)
书上抄来的

账号		自动登录	找回密码
密码			立即注册

[每日一码] lisp+c#混合编程之--C#调用lisp函数（源码）

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

评分