Invoke 方法对 Autolisp 函数和 ObjectARX 函数使用区别

eachy

Autolisp Defun 函数需要定义为 (defun c:** ...) 方可被 Invoke 调用

The external function being invoked must be an external function in an ARX application currently loaded. From the external function's point of view, the acedInvoke() call is invisible. It retrieves its arguments by calling acedGetArgs() and returns a value by calling one of the value-return functions (acedRetInt(), acedRetReal(), and so on), as it does when invoked by an AutoLISP function or by the AutoCAD user.

以上是 help 中一段说明，其中提到 参数 要可以实现 acedGetArgs()，这个参数是 ObjectARX 定义 autolisp 函数都要实现的方式，在这个条件下 ARX 和 C# 的通讯就有了另外一个通道，看下面一个简单例子

ObjectARX 代码

1. 
   
2.         static int ads_test(void)
   
3.         {
   
4.                 resbuf *args=acedGetArgs();
   
5.                 if (args==NULL)
   
6.                 {
   
7.                         return RTNORM;
   
8.                 }
   
9. 
   
10.                 if (args->restype==RTREAL)
    
11.                 {
    
12.                         double num=args->resval.rreal;
    
13.                         double xx = num*num;
    
14.                         return acedRetReal(xx);
    
15.                 }
    
16.                 return RTNORM;
    
17.         }
    

复制代码

相应的写一个C#命令如下

2. 
   
3.         [SuppressUnmanagedCodeSecurity]
   
4.         [DllImport("acad.exe", CallingConvention = CallingConvention.Cdecl)]
   
5.         extern static private int acedInvoke(IntPtr args, out IntPtr result);
   
6. 
   
7.         public static ResultBuffer CallLispFunction(ResultBuffer args)
   
8.         {
   
9.             var ip = IntPtr.Zero;
   
10.             var st = acedInvoke(args.UnmanagedObject, out ip);
    
11.             if (ip == IntPtr.Zero) return null;
    
12.             var rbRes = ResultBuffer.Create(ip, true);
    
13.             return rbRes;
    
14.         }
    
15.       [CommandMethod("MyGroup", "MyCommand", "MyCommandLocal", CommandFlags.Modal)]
    
16.         public void MyCommand() // This method can have any name
    
17.         {
    
18.             // Put your command code here
    
19.             var doc = Application.DocumentManager.MdiActiveDocument;
    
20.             var ed = doc.Editor;
    
21.             var prs = ed.GetDouble("\nInput number:");
    
22.             if (prs.Status==PromptStatus.OK)
    
23.             {
    
24.                 var num = prs.Value;
    
25.                 var rb = new ResultBuffer
    
26.                 {
    
27.                     new TypedValue((int) LispDataType.Text, "test"),
    
28.                     new TypedValue((int) LispDataType.Double, num)
    
29.                 };
    
30.                 var ret=CallLispFunction(rb);
    
31.                 if (ret!=null)
    
32.                 {
    
33.                     var arr=ret.AsArray();
    
34.                     ed.WriteMessage("\nResult="+arr[0].Value.ToString());
    
35.                 }
    
36.             }
    
37.         }
    

<br />         [SuppressUnmanagedCodeSecurity]<br />         [DllImport("acad.exe", CallingConvention = CallingConvention.Cdecl)]<br />         extern static private int acedInvoke(IntPtr args, out IntPtr result);<br /> <br />         public static ResultBuffer CallLispFunction(ResultBuffer args)<br />         {<br />             var ip = IntPtr.Zero;<br />             var st = acedInvoke(args.UnmanagedObject, out ip);<br />             if (ip == IntPtr.Zero) return null;<br />             var rbRes = ResultBuffer.Create(ip, true);<br />             return rbRes;<br />         }<br />       [CommandMethod("MyGroup", "MyCommand", "MyCommandLocal", CommandFlags.Modal)]<br />         public void MyCommand() // This method can have any name<br />         {<br />             // Put your command code here<br />             var doc = Application.DocumentManager.MdiActiveDocument;<br />             var ed = doc.Editor;<br />             var prs = ed.GetDouble("\nInput number:");<br />             if (prs.Status==PromptStatus.OK)<br />             {<br />                 var num = prs.Value;<br />                 var rb = new ResultBuffer<br />                 {<br />                     new TypedValue((int) LispDataType.Text, "test"),<br />                     new TypedValue((int) LispDataType.Double, num)<br />                 };<br />                 var ret=CallLispFunction(rb);<br />                 if (ret!=null)<br />                 {<br />                     var arr=ret.AsArray();<br />                     ed.WriteMessage("\nResult="+arr[0].Value.ToString());<br />                 }<br />             }<br />         }<br />

在 Acad 下加载运行，
命令: mycommand
Input number: 12.0
Result=144

lhtfhc

好东西，学习学习，谢谢楼主