Lisp与.NET互相调用。CAD2008 .net程序运行出现异常，请各位老师找出出错原因，非...

革天明

李冠亿老师《深入浅出AutoCAD.NET二次开发》中6.8.3章节经出了一个Lisp与.NET程序互相调用的例子，如下：
/////////////////////////////////////////////////////////////////////////////////////////////////
//http://www.bimcad.org 数字建筑
//深入浅出AutoCAD二次开发(李冠亿)
/////////////////////////////////////////////////////////////////////////////////////////////////

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());
        }
    }
}

并给出了对应的lisp文件的代码：
(defun c:CallByNet()
(setq p1 (getpoint"输入第一点:"))
(setq p2 (getpoint"输入第二点:"))
(command "line" p1 p2 "")
)

(defun c:CallNet()
(setq t1 "BimCad.org")
(setq t2 "数字建筑")
(CallByLispFunction t1 t2)
)


我在测试过程中发现.NET调用lisp的函数Calllispfunction可正常运行，但使用lisp调用.NET的CallNET命令出现异常，错误如下：

命令: callnet
System.ArgumentException: 绑定到目标方法时出错。
   在 System.Delegate.CreateDelegate(Type type, Object firstArgument, MethodInfo
method, Boolean throwOnBindFailure)
   在 AcMgCommandClass.InvokeWorker(AcMgCommandClass* , MethodInfo mi, Object
commandObject, Boolean bLispFunction)
   在 AcMgCommandClass.InvokeWorkerWithExceptionFilter(AcMgCommandClass* ,
MethodInfo mi, Object commandObject, Boolean bLispFunction)
   在 AcMgCommandClass.Invoke(AcMgCommandClass* ,
gcroot<System::Reflection::MethodInfo ^>* mi, Boolean bLispFunction)
   在 AcMgCommandClass.CommandThunk.InvokeLisp(CommandThunk* ); 错误: ADS 请求错误


原以为是CAD2008安装过程中出现的msxml6.dll不能更新的错误，但重装系统及下载微软msxml6_x86（1.3M）修复后也是同样的错误，经网友确认CAD2011、2014下可正确运行，也说明李老师给的代码是可行的，但现在我的电脑上出现上面的错误，导致程序不能正常运行，请各位指点一下如何才能用Lisp调用.NET的函数。

本人运行环境如下：GHOST XP（32位）SP3，CAD2008（32位），

ivde

为什么这样用！

革天明

ivde 发表于 2015-10-12 18:19
为什么这样用！

请教如何用才对？

ivde

革天明 发表于 2015-10-13 08:56
请教如何用才对？

class CH6_8_3 用 public class CH6_8_3

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

[assembly: ExtensionApplication(typeof(Sample.MyPlugin))]
[assembly: CommandClass(typeof(Sample.CH6_8_3))]

namespace Sample
{
    public class MyPlugin : IExtensionApplication
    {

        void IExtensionApplication.Initialize()
        {
           
        }

        void IExtensionApplication.Terminate()
        {
            
        }

    }
    public 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());
        }
    }
}

yshf

在XP 、CAD2007能运行。

革天明

ivde 发表于 2015-10-13 10:13
class CH6_8_3 用 public class CH6_8_3

using System;

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

[assembly: ExtensionApplication(typeof(Lisp2NET.MyPlugin))]
[assembly: CommandClass(typeof(Lisp2NET.CH6_8_3))]

namespace Lisp2NET
{
    public class MyPlugin : IExtensionApplication
    {

        void IExtensionApplication.Initialize()
        {
           
        }

        void IExtensionApplication.Terminate()
        {
            
        }

    }
    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 string  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());
            return "";
        }
    }
}

以上修改源于EDATA，指明CAD2008时函数返回值不能空(lisp函数至少会返回一个nil)
XP SP3 CAD2008 sp1 VS2010 .net 2.0下测试通过，谢谢EDATA！

革天明

yshf 发表于 2015-10-13 15:43
在XP 、CAD2007能运行。

目前已知2007、2010、2011、2014下没有问题，2008的有点特殊，6楼为2008的正确代码

ivde

革天明 发表于 2015-10-13 15:54
目前已知2007、2010、2011、2014下没有问题，2008的有点特殊，6楼为2008的正确代码

void 是没有返回值的，alisp 好像都需要一个返回值

革天明

ivde 发表于 2015-10-13 16:07
void 是没有返回值的，alisp 好像都需要一个返回值

好像是这个原因，请问如何定义一个.NET函数，参数为int a和int b，结果为a*b，这样的函数如何写？最终还是想让lisp调用的

ivde

革天明 发表于 2015-10-13 16:28
好像是这个原因，请问如何定义一个.NET函数，参数为int a和int b，结果为a*b，这样的函数如何写？最终还是 ...

2. 
   
3. [LispFunction("MyAdd")]
   
4.         public static object MyAdd(ResultBuffer rbArgs)
   
5.         {
   
6.             var arg = rbArgs.AsArray();
   
7.             if (arg.Length==2 && arg[0].TypeCode==(int)LispDataType.Double && arg[1].TypeCode==(int)LispDataType.Double)
   
8.             {
   
9.                 var num1 = (double)arg[0].Value;
   
10.                 var num2 = (double)arg[1].Value;
    
11.                 Double result = num1 + num2;
    
12.                 return result;
    
13.             }
    
14.             else {
    
15.                 return null;
    
16.             }
    
17.         }
    

<br /> [LispFunction("MyAdd")]<br />         public static object MyAdd(ResultBuffer rbArgs)<br />         {<br />             var arg = rbArgs.AsArray();<br />             if (arg.Length==2 && arg[0].TypeCode==(int)LispDataType.Double && arg[1].TypeCode==(int)LispDataType.Double)<br />             {<br />                 var num1 = (double)arg[0].Value;<br />                 var num2 = (double)arg[1].Value;<br />                 Double result = num1 + num2;<br />                 return result;<br />             }<br />             else {<br />                 return null;<br />             }<br />         }<br />

C# 是区分类型的，Acad 用到的有 5001 5003 5010 ，简单的结果转为 double，否则就要 区分

1. 
   
2. if (arg.Length==2 && (arg[0].TypeCode==5001 ||  arg[0].TypeCode==5003 || arg[0].TypeCode==5010)
   
3.                 && (arg[1].TypeCode == 5001 || arg[1].TypeCode == 5003 || arg[1].TypeCode == 5010))
   
4.             {
   
5.                 var num1 = arg[0].Value;
   
6.                 var num2 = arg[1].Value;
   
7.                 var result = (double)num1 + (double)num2;
   
8.                 return result;
   
9.             }

复制代码