调用AutoCad命令的方法

雪山飞狐_lzh

从Lisp转向.Net的朋友可能都有点郁闷，Lisp可能很短的代码，.NetApi要写很长的
而且很多功能都习惯于使用Command函数去调用AutoCAD的命令实现，因为这样很简单
而NetApi提供的调用命令的方法SendStringToExecute确实鸡肋，它的机理和VBA的SendCommand相同，只是简单的向命令行发送字符，要实现Command函数的复杂控制是不可能的
那么应该怎么办呢？P/Invoke可以！
Lisp的Command函数实质是ObjectArx函数acedCmd的封装，那么使用平台调用，在.Net里也可以实现自己的封装，具体的方式可以看看Kean的相关文章：）

最终的版本
InvokeArx.cs

2. using System;
3. using System.Reflection;
4. using System.Runtime.InteropServices;
5. using Autodesk.AutoCAD.Runtime;
6. using Autodesk.AutoCAD.Geometry;
7. using Autodesk.AutoCAD.EditorInput;
8. using Autodesk.AutoCAD.DatabaseServices;
9. using Autodesk.AutoCAD.ApplicationServices;
10. namespace TlsCad.Utils
11. {
12.     /// <summary>
13.     /// 平台调用类
14.     /// </summary>
15.     public class InvokeArx
16.     {
17.         private static void AddValueToResultBuffer(ref ResultBuffer rb, object obj)
18.         {
19.             if (obj == null)
20.             {
21.                 rb.Add(new TypedValue((int)LispDataType.Text, ""));
22.             }
23.             else
24.             {
25.                 if (obj is string)
26.                 {
27.                     rb.Add(new TypedValue((int)LispDataType.Text, obj));
28.                 }
29.                 else if (obj is Point2d)
30.                 {
31.                     rb.Add(new TypedValue((int)LispDataType.Text, "_non"));
32.                     rb.Add(new TypedValue((int)LispDataType.Point2d, obj));
33.                 }
34.                 else if (obj is Point3d)
35.                 {
36.                     rb.Add(new TypedValue((int)LispDataType.Text, "_non"));
37.                     rb.Add(new TypedValue((int)LispDataType.Point3d, obj));
38.                 }
39.                 else if (obj is ObjectId)
40.                 {
41.                     rb.Add(new TypedValue((int)LispDataType.ObjectId, obj));
42.                 }
43.                 else if (obj is SelectionSet)
44.                 {
45.                     rb.Add(new TypedValue((int)LispDataType.SelectionSet, obj));
46.                 }
47.                 else if (obj is double)
48.                 {
49.                     rb.Add(new TypedValue((int)LispDataType.Double, obj));
50.                 }
51.                 else if (obj is short)
52.                 {
53.                     rb.Add(new TypedValue((int)LispDataType.Int16, obj));
54.                 }
55.                 else if (obj is int)
56.                 {
57.                     rb.Add(new TypedValue((int)LispDataType.Int32, obj));
58.                 }
59.                 else if (obj is TypedValue)
60.                 {
61.                     rb.Add(obj);
62.                 }
63.             }
64.         }
65.         #region Redraw
66.         [System.Security.SuppressUnmanagedCodeSecurity]
67.         [DllImport("acad.exe", CallingConvention = CallingConvention.Cdecl)]
68.         private static extern Int32 acedRedraw(long[] name, Int32 mode);
69.         public static void Redraw()
70.         {
71.             acedRedraw(null, 1);
72.         }
73.         //[DllImport("acdb17.dll", CallingConvention = CallingConvention.Cdecl, EntryPoint = "?acdbGetAdsName@@YA?AW4ErrorStatus@Acad@@AAY01JVAcDbObjectId@@@Z")]
74.         //private static extern int acdbGetAdsName(long[] name, ObjectId objId);
75.         //public static void Redraw(ObjectId id)
76.         //{
77.         //    long[] adsname = new long[2];
78.         //    acdbGetAdsName(adsname, id);
79.         //    acedRedraw(adsname, 1);
80.         //}
81.         #endregion
82.         #region TextScr
83.         [DllImport("acad.exe", CallingConvention = CallingConvention.Cdecl)]
84.         private static extern int acedTextScr();
85.         [DllImport("acad.exe", CallingConvention = CallingConvention.Cdecl)]
86.         private static extern int acedGraphScr();
87.         public static bool DisplayTextScreen
88.         {
89.             set
90.             {
91.                 if (value)
92.                     acedTextScr();
93.                 else
94.                     acedGraphScr();
95.             }
96.         }
97.         #endregion
98.         #region Command
99.         /// <summary>
100.         /// 控制命令行回显
101.         /// </summary>
102.         public static bool CmdEcho
103.         {
104.             get
105.             {
106.                 return (int)Application.GetSystemVariable("cmdecho") == 1;
107.             }
108.             set
109.             {
110.                 Application.SetSystemVariable("cmdecho", Convert.ToInt16(value));
111.             }
112.         }
113.         [DllImport("acad.exe")]
114.         private static extern int acedCmd(IntPtr vlist);
115.                                     
116.         /// <summary>
117.         /// 调用AutoCad命令
118.         /// </summary>
119.         /// <param name="prompt">命令行提示</param>
120.         /// <param name="arg">参数</param>
121.         public static void Command(string prompt, object arg)
122.         {
123.             EdUtility.WriteMessage(prompt);
124.             ResultBuffer rb = new ResultBuffer();
125.             AddValueToResultBuffer(ref rb, arg);
126.             try
127.             {
128.                 acedCmd(rb.UnmanagedObject);
129.             }
130.             catch { }
131.             finally
132.             {
133.                 rb.Dispose();
134.             }
135.         }
136.         /// <summary>
137.         /// 调用AutoCad命令
138.         /// </summary>
139.         /// <param name="endCommandByUser">命令结束方式</param>
140.         /// <param name="ldnode">参数</param>
141.         public static void Command(bool endCommandByUser, ResultBuffer rb)
142.         {
143.             ResultBuffer rbend = new ResultBuffer();
144.             try
145.             {
146.                 Document doc = Application.DocumentManager.MdiActiveDocument;
147.                 string currCmdName = doc.CommandInProgress;
148.                 acedCmd(rb.UnmanagedObject);
149.                 if (endCommandByUser)
150.                 {
151.                     rbend.Add(new TypedValue((int)LispDataType.Text, "\"));
152.                 }
153.                 while (doc.CommandInProgress != currCmdName)
154.                 {
155.                     acedCmd(rbend.UnmanagedObject);
156.                 }
157.             }
158.             catch { }
159.             finally
160.             {
161.                 rb.Dispose();
162.                 rbend.Dispose();
163.             }
164.         }
165.         /// <summary>
166.         /// 调用AutoCad命令
167.         /// </summary>
168.         /// <param name="endCommandByUser">命令结束方式</param>
169.         /// <param name="args">参数</param>
170.         public static void Command(bool endCommandByUser, params object[] args)
171.         {
172.             ResultBuffer rb = new ResultBuffer();
173.             ResultBuffer rbend = new ResultBuffer();
174.             foreach (object val in args)
175.             {
176.                 AddValueToResultBuffer(ref rb, val);
177.             }
178.             try
179.             {
180.                 Document doc = Application.DocumentManager.MdiActiveDocument;
181.                 string currCmdName = doc.CommandInProgress;
182.                 acedCmd(rb.UnmanagedObject);
183.                 if (endCommandByUser)
184.                 {
185.                     rbend.Add(new TypedValue((int)LispDataType.Text, "\"));
186.                 }
187.                 while (doc.CommandInProgress != currCmdName)
188.                 {
189.                     acedCmd(rbend.UnmanagedObject);
190.                 }
191.             }
192.             catch { }
193.             finally
194.             {
195.                 rb.Dispose();
196.                 rbend.Dispose();
197.             }
198.         }
199.         #endregion
200.         
201.         #region Lisp
202.         [System.Security.SuppressUnmanagedCodeSecurity]
203.         [DllImport("acad.exe", CallingConvention = CallingConvention.Cdecl)]
204.         extern static private int acedPutSym(string name, IntPtr result);
205.         [System.Security.SuppressUnmanagedCodeSecurity]
206.         [DllImport("acad.exe", CallingConvention = CallingConvention.Cdecl)]
207.         extern static private int acedGetSym(string name, out IntPtr result);
208.         [System.Security.SuppressUnmanagedCodeSecurity]
209.         [DllImport("acad.exe", CallingConvention = CallingConvention.Cdecl)]
210.         extern static private int acedInvoke(IntPtr args, out IntPtr result);
211.         public static ResultBuffer CallLispFunction(ResultBuffer args)
212.         {
213.             IntPtr ip = IntPtr.Zero;
214.             int st = acedInvoke(args.UnmanagedObject, out ip);
215.             if (ip != IntPtr.Zero)
216.             {
217.                 ResultBuffer rbRes = ResultBuffer.Create(ip, true);
218.                 return rbRes;
219.             }
220.             return null;
221.         }
222.         public static ResultBuffer CallLispFunction(string name, params object[] args)
223.         {
224.             ResultBuffer rbArgs = new ResultBuffer();
225.             rbArgs.Add(new TypedValue((int)LispDataType.Text, name));
226.             foreach (object val in args)
227.             {
228.                 AddValueToResultBuffer(ref rbArgs, val);
229.             }
230.             return CallLispFunction(rbArgs);
231.         }
232.                
233.         internal static ResultBuffer GetLispSym(string name)
234.         {
235.             IntPtr ip = IntPtr.Zero;
236.             acedGetSym(name, out ip);
237.             if (ip != IntPtr.Zero)
238.             {
239.                 ResultBuffer rbRes = ResultBuffer.Create(ip, true);
240.                 return rbRes;
241.             }
242.             return null;
243.         }
244.         #endregion
245.     }
246. }

using System; using System.Reflection; using System.Runtime.InteropServices; using Autodesk.AutoCAD.Runtime; using Autodesk.AutoCAD.Geometry; using Autodesk.AutoCAD.EditorInput; using Autodesk.AutoCAD.DatabaseServices; using Autodesk.AutoCAD.ApplicationServices; namespace TlsCad.Utils {     /// <summary>     /// 平台调用类     /// </summary>     public class InvokeArx     {         private static void AddValueToResultBuffer(ref ResultBuffer rb, object obj)         {             if (obj == null)             {                 rb.Add(new TypedValue((int)LispDataType.Text, ""));             }             else             {                 if (obj is string)                 {                     rb.Add(new TypedValue((int)LispDataType.Text, obj));                 }                 else if (obj is Point2d)                 {                     rb.Add(new TypedValue((int)LispDataType.Text, "_non"));                     rb.Add(new TypedValue((int)LispDataType.Point2d, obj));                 }                 else if (obj is Point3d)                 {                     rb.Add(new TypedValue((int)LispDataType.Text, "_non"));                     rb.Add(new TypedValue((int)LispDataType.Point3d, obj));                 }                 else if (obj is ObjectId)                 {                     rb.Add(new TypedValue((int)LispDataType.ObjectId, obj));                 }                 else if (obj is SelectionSet)                 {                     rb.Add(new TypedValue((int)LispDataType.SelectionSet, obj));                 }                 else if (obj is double)                 {                     rb.Add(new TypedValue((int)LispDataType.Double, obj));                 }                 else if (obj is short)                 {                     rb.Add(new TypedValue((int)LispDataType.Int16, obj));                 }                 else if (obj is int)                 {                     rb.Add(new TypedValue((int)LispDataType.Int32, obj));                 }                 else if (obj is TypedValue)                 {                     rb.Add(obj);                 }             }         }         #region Redraw         [System.Security.SuppressUnmanagedCodeSecurity]         [DllImport("acad.exe", CallingConvention = CallingConvention.Cdecl)]         private static extern Int32 acedRedraw(long[] name, Int32 mode);         public static void Redraw()         {             acedRedraw(null, 1);         }         //[DllImport("acdb17.dll", CallingConvention = CallingConvention.Cdecl, EntryPoint = "?acdbGetAdsName@@YA?AW4ErrorStatus@Acad@@AAY01JVAcDbObjectId@@@Z")]         //private static extern int acdbGetAdsName(long[] name, ObjectId objId);         //public static void Redraw(ObjectId id)         //{         //    long[] adsname = new long[2];         //    acdbGetAdsName(adsname, id);         //    acedRedraw(adsname, 1);         //}         #endregion         #region TextScr         [DllImport("acad.exe", CallingConvention = CallingConvention.Cdecl)]         private static extern int acedTextScr();         [DllImport("acad.exe", CallingConvention = CallingConvention.Cdecl)]         private static extern int acedGraphScr();         public static bool DisplayTextScreen         {             set             {                 if (value)                     acedTextScr();                 else                     acedGraphScr();             }         }         #endregion         #region Command         /// <summary>         /// 控制命令行回显         /// </summary>         public static bool CmdEcho         {             get             {                 return (int)Application.GetSystemVariable("cmdecho") == 1;             }             set             {                 Application.SetSystemVariable("cmdecho", Convert.ToInt16(value));             }         }         [DllImport("acad.exe")]         private static extern int acedCmd(IntPtr vlist);                                              /// <summary>         /// 调用AutoCad命令         /// </summary>         /// <param name="prompt">命令行提示</param>         /// <param name="arg">参数</param>         public static void Command(string prompt, object arg)         {             EdUtility.WriteMessage(prompt);             ResultBuffer rb = new ResultBuffer();             AddValueToResultBuffer(ref rb, arg);             try             {                 acedCmd(rb.UnmanagedObject);             }             catch { }             finally             {                 rb.Dispose();             }         }         /// <summary>         /// 调用AutoCad命令         /// </summary>         /// <param name="endCommandByUser">命令结束方式</param>         /// <param name="ldnode">参数</param>         public static void Command(bool endCommandByUser, ResultBuffer rb)         {             ResultBuffer rbend = new ResultBuffer();             try             {                 Document doc = Application.DocumentManager.MdiActiveDocument;                 string currCmdName = doc.CommandInProgress;                 acedCmd(rb.UnmanagedObject);                 if (endCommandByUser)                 {                     rbend.Add(new TypedValue((int)LispDataType.Text, "\"));                 }                 while (doc.CommandInProgress != currCmdName)                 {                     acedCmd(rbend.UnmanagedObject);                 }             }             catch { }             finally             {                 rb.Dispose();                 rbend.Dispose();             }         }         /// <summary>         /// 调用AutoCad命令         /// </summary>         /// <param name="endCommandByUser">命令结束方式</param>         /// <param name="args">参数</param>         public static void Command(bool endCommandByUser, params object[] args)         {             ResultBuffer rb = new ResultBuffer();             ResultBuffer rbend = new ResultBuffer();             foreach (object val in args)             {                 AddValueToResultBuffer(ref rb, val);             }             try             {                 Document doc = Application.DocumentManager.MdiActiveDocument;                 string currCmdName = doc.CommandInProgress;                 acedCmd(rb.UnmanagedObject);                 if (endCommandByUser)                 {                     rbend.Add(new TypedValue((int)LispDataType.Text, "\"));                 }                 while (doc.CommandInProgress != currCmdName)                 {                     acedCmd(rbend.UnmanagedObject);                 }             }             catch { }             finally             {                 rb.Dispose();                 rbend.Dispose();             }         }         #endregion                  #region Lisp         [System.Security.SuppressUnmanagedCodeSecurity]         [DllImport("acad.exe", CallingConvention = CallingConvention.Cdecl)]         extern static private int acedPutSym(string name, IntPtr result);         [System.Security.SuppressUnmanagedCodeSecurity]         [DllImport("acad.exe", CallingConvention = CallingConvention.Cdecl)]         extern static private int acedGetSym(string name, out IntPtr result);         [System.Security.SuppressUnmanagedCodeSecurity]         [DllImport("acad.exe", CallingConvention = CallingConvention.Cdecl)]         extern static private int acedInvoke(IntPtr args, out IntPtr result);         public static ResultBuffer CallLispFunction(ResultBuffer args)         {             IntPtr ip = IntPtr.Zero;             int st = acedInvoke(args.UnmanagedObject, out ip);             if (ip != IntPtr.Zero)             {                 ResultBuffer rbRes = ResultBuffer.Create(ip, true);                 return rbRes;             }             return null;         }         public static ResultBuffer CallLispFunction(string name, params object[] args)         {             ResultBuffer rbArgs = new ResultBuffer();             rbArgs.Add(new TypedValue((int)LispDataType.Text, name));             foreach (object val in args)             {                 AddValueToResultBuffer(ref rbArgs, val);             }             return CallLispFunction(rbArgs);         }                         internal static ResultBuffer GetLispSym(string name)         {             IntPtr ip = IntPtr.Zero;             acedGetSym(name, out ip);             if (ip != IntPtr.Zero)             {                 ResultBuffer rbRes = ResultBuffer.Create(ip, true);                 return rbRes;             }             return null;         }         #endregion     } }

测试代码，结合ResultList/ResultTree类

1.         [CommandMethod("t11")]
2.         public static void Test11()
3.         {
4.             Document doc = Application.DocumentManager.MdiActiveDocument;
5.             Database db = doc.Database;
6.             Editor ed = doc.Editor;
7.             PromptEntityResult res1 = ed.GetEntity("\nSelect a Entity:");
8.             InvokeArx.CmdEcho = false;
9.             InvokeArx.Command(
10.                 false,
11.                 new ResultTree
12.                 {
13.                     "break",
14.                     new ResultTree(ResultType.List)
15.                     {
16.                         res1.ObjectId,
17.                         res1.PickedPoint
18.                     },
19.                     res1.PickedPoint
20.                 });
21.             InvokeArx.CmdEcho = true;
22.         }

复制代码

pengfei2010

学习了，胡歌 厉害了

雪山飞狐_lzh

两段简单的测试代码，但注意NetApi最好还是少调用命令为好

1.         [CommandMethod("tt10")]
2.         public static void Test10()
3.         {
4.             //调用Line命令，由用户结束
5.             InvokeArx.Command(true, "_.line");
6.             //调用Line命令并结束
7.             InvokeArx.Command(false, "_.line", Point3d.Origin, new Point3d(10, 10, 0));
9.         }
10.         [CommandMethod("tt11")]
11.         public static void Test11()
12.         {
13.             //找回Hatch边界的命令版，当然你需要有一个填充先
14.             PromptEntityOptions opts = new PromptEntityOptions("\nselect a Hatch:");
15.             opts.SetRejectMessage("\nnot a Hatch!");
16.             opts.AddAllowedClass(typeof(Hatch), false);
17.             PromptEntityResult res = Helper.Editor.GetEntity(opts);
18.             InvokeArx.Command(false, "_.HATCHEDIT", res.ObjectId, "B", "P", "Y");
19.         }

复制代码

雪山飞狐_lzh

完整的代码
同时测试代码提供了可更改CommandLine提示的调用方式，
但是如果不小心键入U(回退)，效果就会消失

1.         [CommandMethod("tt12")]
2.         public static void Test10()
3.         {
4.             EdUtility.CmdEcho = false;
5.             EdUtility.Command("Hello", "_.line");
6.             EdUtility.Command("请输入第一点", "\");
7.             EdUtility.Command("请输入第二点", "\");
8.             EdUtility.Command("结束", "");
9.             EdUtility.CmdEcho = true;
10.             
11.         }

复制代码

2. using System;
3. using System.Collections.Generic;
4. using System.Runtime.InteropServices;
5. using System.Reflection;
6. using Autodesk.AutoCAD.Runtime;
7. using Autodesk.AutoCAD.Geometry;
8. using Autodesk.AutoCAD.EditorInput;
9. using Autodesk.AutoCAD.DatabaseServices;
10. using Autodesk.AutoCAD.ApplicationServices;
11. namespace TlsCad.Utils
12. {
13.     public struct DottedPair
14.     {
15.         private ObjectId _id;
16.         private Point3d _pnt;
17.         public ObjectId ObjectId
18.         {
19.             get { return _id; }
20.         }
21.         public Point3d Point
22.         {
23.             get { return _pnt; }
24.         }
25.         public DottedPair(ObjectId id,Point3d pnt)
26.         {
27.             _id = id;
28.             _pnt = pnt;
29.         }
30.         public DottedPair(PromptEntityResult res)
31.         {
32.             _id = res.ObjectId;
33.             _pnt = res.PickedPoint;
34.         }
35.     }
37.     public static class EdUtility
38.     {
39.         #region Command
40.         public static bool CmdEcho
41.         {
42.             get
43.             {
44.                 return (int)Application.GetSystemVariable("cmdecho") == 1;
45.             }
46.             set
47.             {
48.                 Application.SetSystemVariable("cmdecho", Convert.ToInt16(value));
49.             }
50.         }
51.         private static void AddValueToResultBuffer(ref ResultBuffer rb, object obj)
52.         {
53.             if (obj == null)
54.             {
55.                 rb.Add(new TypedValue((int)LispDataType.Text, ""));
56.             }
57.             else
58.             {
59.                 if (obj is string)
60.                 {
61.                     rb.Add(new TypedValue((int)LispDataType.Text, obj));
62.                 }
63.                 else if (obj is Point2d)
64.                 {
65.                     rb.Add(new TypedValue((int)LispDataType.Text, "_non"));
66.                     rb.Add(new TypedValue((int)LispDataType.Point2d, obj));
67.                 }
68.                 else if (obj is Point3d)
69.                 {
70.                     rb.Add(new TypedValue((int)LispDataType.Text, "_non"));
71.                     rb.Add(new TypedValue((int)LispDataType.Point3d, obj));
72.                 }
73.                 else if (obj is ObjectId)
74.                 {
75.                     rb.Add(new TypedValue((int)LispDataType.ObjectId, obj));
76.                 }
77.                 else if (obj is SelectionSet)
78.                 {
79.                     rb.Add(new TypedValue((int)LispDataType.SelectionSet, obj));
80.                 }
81.                 else if (obj is double)
82.                 {
83.                     rb.Add(new TypedValue((int)LispDataType.Double, obj));
84.                 }
85.                 else if (obj is short)
86.                 {
87.                     rb.Add(new TypedValue((int)LispDataType.Int16, obj));
88.                 }
89.                 else if (obj is int)
90.                 {
91.                     rb.Add(new TypedValue((int)LispDataType.Int32, obj));
92.                 }
93.                 else if (obj is TypedValue)
94.                 {
95.                     rb.Add(obj);
96.                 }
97.                 else if (obj is DottedPair)
98.                 {
99.                     DottedPair dp = (DottedPair)obj;
100.                     rb.Add(new TypedValue((int)LispDataType.ListBegin));
101.                     rb.Add(new TypedValue((int)LispDataType.ObjectId,dp.ObjectId));
102.                     rb.Add(new TypedValue((int)LispDataType.Point3d, dp.Point));
103.                     rb.Add(new TypedValue((int)LispDataType.ListEnd));
104.                 }
105.             }
106.         }
107.         
108.         [DllImport("acad.exe")]
109.         private static extern int acedCmd(IntPtr vlist);
110.         public static void Command(string prompt, object arg)
111.         {
112.             WriteMessage(prompt);
113.             ResultBuffer rb = new ResultBuffer();
114.             AddValueToResultBuffer(ref rb, arg);
115.             try
116.             {
117.                 acedCmd(rb.UnmanagedObject);
118.             }
119.             catch { }
120.             finally
121.             {
122.                 rb.Dispose();
123.             }
124.         }
125.         /*
126.          *功能:
127.          *      调用AutoCad命令
128.          *参数:
129.          *      endCommandByUse     命令结束方式
130.          *      args                参数
131.          *返回:
132.          *      无
133.          */
134.         public static void Command(bool endCommandByUser, params object[] args)
135.         {
136.             ResultBuffer rb = new ResultBuffer();
137.             ResultBuffer rbend = new ResultBuffer();
138.             foreach (object val in args)
139.             {
140.                 AddValueToResultBuffer(ref rb, val);
141.             }
142.             try
143.             {
144.                 Document doc = Application.DocumentManager.MdiActiveDocument;
145.                 string currCmdName = doc.CommandInProgress;
146.                 acedCmd(rb.UnmanagedObject);
147.                 if (endCommandByUser)
148.                 {
149.                     rbend.Add(new TypedValue((int)LispDataType.Text, "\"));
150.                 }
151.                 while (doc.CommandInProgress != currCmdName)
152.                 {
153.                     acedCmd(rbend.UnmanagedObject);
154.                 }
155.             }
156.             catch { }
157.             finally
158.             {
159.                 rb.Dispose();
160.                 rbend.Dispose();
161.             }
162.         }
163.         //2009版本提供了acedCmd函数的封装
164.         //但可能有Bug，所以未公开
165.         //谨慎使用
166.         private static MethodInfo _runCommand =
167.             typeof(Editor).GetMethod(
168.                 "RunCommand",
169.                 BindingFlags.NonPublic | BindingFlags.Instance);
170.         /*
171.          *功能:
172.          *      反射调用AutoCad命令(2009版本以上)
173.          *参数:
174.          *      editor          Editor对象
175.          *      args            参数
176.          *返回:
177.          *      无
178.          */
179.         public static PromptStatus Command(Editor editor, params object[] args)
180.         {
181.             return (PromptStatus)_runCommand.Invoke(editor, new object[] { args });
182.         }
183.         #endregion
184.     }
185. }

using System; using System.Collections.Generic; using System.Runtime.InteropServices; using System.Reflection; using Autodesk.AutoCAD.Runtime; using Autodesk.AutoCAD.Geometry; using Autodesk.AutoCAD.EditorInput; using Autodesk.AutoCAD.DatabaseServices; using Autodesk.AutoCAD.ApplicationServices; namespace TlsCad.Utils {     public struct DottedPair     {         private ObjectId _id;         private Point3d _pnt;         public ObjectId ObjectId         {             get { return _id; }         }         public Point3d Point         {             get { return _pnt; }         }         public DottedPair(ObjectId id,Point3d pnt)         {             _id = id;             _pnt = pnt;         }         public DottedPair(PromptEntityResult res)         {             _id = res.ObjectId;             _pnt = res.PickedPoint;         }     }     public static class EdUtility     {         #region Command         public static bool CmdEcho         {             get             {                 return (int)Application.GetSystemVariable("cmdecho") == 1;             }             set             {                 Application.SetSystemVariable("cmdecho", Convert.ToInt16(value));             }         }         private static void AddValueToResultBuffer(ref ResultBuffer rb, object obj)         {             if (obj == null)             {                 rb.Add(new TypedValue((int)LispDataType.Text, ""));             }             else             {                 if (obj is string)                 {                     rb.Add(new TypedValue((int)LispDataType.Text, obj));                 }                 else if (obj is Point2d)                 {                     rb.Add(new TypedValue((int)LispDataType.Text, "_non"));                     rb.Add(new TypedValue((int)LispDataType.Point2d, obj));                 }                 else if (obj is Point3d)                 {                     rb.Add(new TypedValue((int)LispDataType.Text, "_non"));                     rb.Add(new TypedValue((int)LispDataType.Point3d, obj));                 }                 else if (obj is ObjectId)                 {                     rb.Add(new TypedValue((int)LispDataType.ObjectId, obj));                 }                 else if (obj is SelectionSet)                 {                     rb.Add(new TypedValue((int)LispDataType.SelectionSet, obj));                 }                 else if (obj is double)                 {                     rb.Add(new TypedValue((int)LispDataType.Double, obj));                 }                 else if (obj is short)                 {                     rb.Add(new TypedValue((int)LispDataType.Int16, obj));                 }                 else if (obj is int)                 {                     rb.Add(new TypedValue((int)LispDataType.Int32, obj));                 }                 else if (obj is TypedValue)                 {                     rb.Add(obj);                 }                 else if (obj is DottedPair)                 {                     DottedPair dp = (DottedPair)obj;                     rb.Add(new TypedValue((int)LispDataType.ListBegin));                     rb.Add(new TypedValue((int)LispDataType.ObjectId,dp.ObjectId));                     rb.Add(new TypedValue((int)LispDataType.Point3d, dp.Point));                     rb.Add(new TypedValue((int)LispDataType.ListEnd));                 }             }         }                  [DllImport("acad.exe")]         private static extern int acedCmd(IntPtr vlist);         public static void Command(string prompt, object arg)         {             WriteMessage(prompt);             ResultBuffer rb = new ResultBuffer();             AddValueToResultBuffer(ref rb, arg);             try             {                 acedCmd(rb.UnmanagedObject);             }             catch { }             finally             {                 rb.Dispose();             }         }         /*          *功能:          *      调用AutoCad命令          *参数:          *      endCommandByUse     命令结束方式          *      args                参数          *返回:          *      无          */         public static void Command(bool endCommandByUser, params object[] args)         {             ResultBuffer rb = new ResultBuffer();             ResultBuffer rbend = new ResultBuffer();             foreach (object val in args)             {                 AddValueToResultBuffer(ref rb, val);             }             try             {                 Document doc = Application.DocumentManager.MdiActiveDocument;                 string currCmdName = doc.CommandInProgress;                 acedCmd(rb.UnmanagedObject);                 if (endCommandByUser)                 {                     rbend.Add(new TypedValue((int)LispDataType.Text, "\"));                 }                 while (doc.CommandInProgress != currCmdName)                 {                     acedCmd(rbend.UnmanagedObject);                 }             }             catch { }             finally             {                 rb.Dispose();                 rbend.Dispose();             }         }         //2009版本提供了acedCmd函数的封装         //但可能有Bug，所以未公开         //谨慎使用         private static MethodInfo _runCommand =             typeof(Editor).GetMethod(                 "RunCommand",                 BindingFlags.NonPublic | BindingFlags.Instance);         /*          *功能:          *      反射调用AutoCad命令(2009版本以上)          *参数:          *      editor          Editor对象          *      args            参数          *返回:          *      无          */         public static PromptStatus Command(Editor editor, params object[] args)         {             return (PromptStatus)_runCommand.Invoke(editor, new object[] { args });         }         #endregion     } }

yanghao1

好像无法执行load命令，如果(load"d:\\1.lsp")就无法执行

雪山飞狐_lzh

load在这里不是命令，而是Lisp函数，

P/Invoke的话要用acedInvoke调用

但我在2008、2010似乎都无法正确使用，汗，以前的版本倒是可以

不过Lisp可以实现的，NetApi也可以实现，为什么不直接用NetApi做？

yanghao1

lzh741206发表于2009-9-19 15:17:00load在这里不是命令，而是Lisp函数，P/Invoke的话要用acedInvoke调用但我在2008、2010似乎都无法正确使用，汗，以前的版本倒是可以不过Lisp可以实现的，NetApi也可以实现，为什么不直接用NetAp

NetApi如何实现这个功能，先生给点提示和简单代码好吧？谢谢！

雪山飞狐_lzh

在theswamp看到过的用法

不过似乎只能调用.Net自己定义的Lisp

雪山飞狐_lzh

2008.12.28
加入点对支持
3楼代码已更改
调用示例

1.         [CommandMethod("tt10")]
2.         public static void Test10()
3.         {
4.             Editor ed = Helper.Editor;
5.             PromptEntityResult res1 = ed.GetEntity("\n选择直线:");
6.             PromptPointResult res2 = ed.GetPoint("选择第二点");
7.             InvokeArx.Command(false, "._break", new DottedPair(res1), res2.Value);
8.             
9.         }

复制代码

飞诗(fsxm)

在狐哥的基础上修改了一点点：
调用格式与Lisp的command函数高度一致
自动将object[] ，解释成相当于Lisp中的 (list ....)）

3. using System;
4. using System.Runtime.InteropServices;
5. using Autodesk.AutoCAD.Runtime;
6. using Autodesk.AutoCAD.Geometry;
7. using Autodesk.AutoCAD.EditorInput;
8. using Autodesk.AutoCAD.DatabaseServices;
9. using Autodesk.AutoCAD.ApplicationServices;
10. namespace FsxmAcad
11. {
12.     public static class EdUtility
13.     {
14.         public static bool CmdEcho
15.         {
16.             get
17.             {
18.                 return (int)Application.GetSystemVariable("cmdecho") == 1;
19.             }
20.             set
21.             {
22.                 Application.SetSystemVariable("cmdecho", Convert.ToInt16(value));
23.             }
24.         }
25.         /// <summary>将一个对像生成TypedValue后加入到ResultBuffer</summary>
26.         /// <param name="rb">Ref 集合ResultBuffer</param>
27.         /// <param name="obj">要加入的对象</param>
28.         public static void AddValue(this ResultBuffer rb, object obj)
29.         {
30.             if (obj == null)
31.             {
32.                 rb.Add(new TypedValue((int)LispDataType.Text, ""));
33.             }
34.             else if (obj is object[])
35.             {
36.                 rb.Add(new TypedValue((int)LispDataType.ListBegin)); //5016
37.                 foreach (object item in (object[])obj)
38.                 {
39.                     AddValue(rb, item);
40.                 }
41.                 rb.Add(new TypedValue((int)LispDataType.ListEnd));//5017
42.             }
43.             else if (obj is string)//5005
44.             {
45.                 rb.Add(new TypedValue((int)LispDataType.Text, obj));
46.             }
47.             else if (obj is Point2d)//5002
48.             {
49.                 rb.Add(new TypedValue((int)LispDataType.Point2d, obj));
50.             }
51.             else if (obj is Point3d)//5009
52.             {
53.                 rb.Add(new TypedValue((int)LispDataType.Point3d, obj));
54.             }
55.             else if (obj is ObjectId)//5006
56.             {
57.                 rb.Add(new TypedValue((int)LispDataType.ObjectId, obj));
58.             }
59.             else if (obj is SelectionSet)//5007
60.             {
61.                 rb.Add(new TypedValue((int)LispDataType.SelectionSet, obj));
62.             }
63.             else if (obj is double)//5001
64.             {
65.                 rb.Add(new TypedValue((int)LispDataType.Double, obj));
66.             }
67.             else if (obj is short)//5003
68.             {
69.                 rb.Add(new TypedValue((int)LispDataType.Int16, obj));
70.             }
71.             else if (obj is int)//5010
72.             {
73.                 rb.Add(new TypedValue((int)LispDataType.Int32, obj));
74.             }
75.             else if (obj is TypedValue)
76.             {
77.                 rb.Add(obj);
78.             }
79.         }
80.         /// <summary>调用AutoCad命令原始Api</summary>
81.         [DllImport("acad.exe")]
82.         public static extern int acedCmd(IntPtr vlist);
83.         /// <summary>调用AutoCad命令</summary>
84.         /// <param name="args">参数列表</param>
85.         public static void Command(params object[] args)
86.         {
87.             ResultBuffer rb;
88.             using (rb = new ResultBuffer())
89.             {
90.                 foreach (object val in args)
91.                 {
92.                     rb.AddValue(val);
93.                 }
94.                 acedCmd(rb.UnmanagedObject);
95.             }
96.         }
97.         [CommandMethod("tt")]
98.         public static void Test10()
99.         {
100.             PromptEntityResult er = Application.DocumentManager.MdiActiveDocument.Editor.GetEntity("选剪切对像:");
101.             if (rst.Status != PromptStatus.OK)
102.                 return;
103.             EdUtility.CmdEcho = true;
104.             EdUtility.Command(".trim", "", new object[] { rst.ObjectId, rst.PickedPoint }, "");
105.         }
106.     }
107. }

using System; using System.Runtime.InteropServices; using Autodesk.AutoCAD.Runtime; using Autodesk.AutoCAD.Geometry; using Autodesk.AutoCAD.EditorInput; using Autodesk.AutoCAD.DatabaseServices; using Autodesk.AutoCAD.ApplicationServices; namespace FsxmAcad {     public static class EdUtility     {         public static bool CmdEcho         {             get             {                 return (int)Application.GetSystemVariable("cmdecho") == 1;             }             set             {                 Application.SetSystemVariable("cmdecho", Convert.ToInt16(value));             }         }         /// <summary>将一个对像生成TypedValue后加入到ResultBuffer</summary>         /// <param name="rb">Ref 集合ResultBuffer</param>         /// <param name="obj">要加入的对象</param>         public static void AddValue(this ResultBuffer rb, object obj)         {             if (obj == null)             {                 rb.Add(new TypedValue((int)LispDataType.Text, ""));             }             else if (obj is object[])             {                 rb.Add(new TypedValue((int)LispDataType.ListBegin)); //5016                 foreach (object item in (object[])obj)                 {                     AddValue(rb, item);                 }                 rb.Add(new TypedValue((int)LispDataType.ListEnd));//5017             }             else if (obj is string)//5005             {                 rb.Add(new TypedValue((int)LispDataType.Text, obj));             }             else if (obj is Point2d)//5002             {                 rb.Add(new TypedValue((int)LispDataType.Point2d, obj));             }             else if (obj is Point3d)//5009             {                 rb.Add(new TypedValue((int)LispDataType.Point3d, obj));             }             else if (obj is ObjectId)//5006             {                 rb.Add(new TypedValue((int)LispDataType.ObjectId, obj));             }             else if (obj is SelectionSet)//5007             {                 rb.Add(new TypedValue((int)LispDataType.SelectionSet, obj));             }             else if (obj is double)//5001             {                 rb.Add(new TypedValue((int)LispDataType.Double, obj));             }             else if (obj is short)//5003             {                 rb.Add(new TypedValue((int)LispDataType.Int16, obj));             }             else if (obj is int)//5010             {                 rb.Add(new TypedValue((int)LispDataType.Int32, obj));             }             else if (obj is TypedValue)             {                 rb.Add(obj);             }         }         /// <summary>调用AutoCad命令原始Api</summary>         [DllImport("acad.exe")]         public static extern int acedCmd(IntPtr vlist);         /// <summary>调用AutoCad命令</summary>         /// <param name="args">参数列表</param>         public static void Command(params object[] args)         {             ResultBuffer rb;             using (rb = new ResultBuffer())             {                 foreach (object val in args)                 {                     rb.AddValue(val);                 }                 acedCmd(rb.UnmanagedObject);             }         }         [CommandMethod("tt")]         public static void Test10()         {             PromptEntityResult er = Application.DocumentManager.MdiActiveDocument.Editor.GetEntity("选剪切对像:");             if (rst.Status != PromptStatus.OK)                 return;             EdUtility.CmdEcho = true;             EdUtility.Command(".trim", "", new object[] { rst.ObjectId, rst.PickedPoint }, "");         }     } }

雪山飞狐_lzh

最终的版本
InvokeArx.cs

2. using System;
3. using System.Collections.Generic;
4. using System.Runtime.InteropServices;
5. using System.Reflection;
6. using Autodesk.AutoCAD.Runtime;
7. using Autodesk.AutoCAD.Geometry;
8. using Autodesk.AutoCAD.EditorInput;
9. using Autodesk.AutoCAD.DatabaseServices;
10. using Autodesk.AutoCAD.ApplicationServices;
11. using TlsCad.Collections;
12. namespace TlsCad.Utils
13. {
14.     /// <summary>
15.     /// 平台调用类
16.     /// </summary>
17.     public class InvokeArx
18.     {
19.         private static void AddValueToResultBuffer(ref ResultBuffer rb, object obj)
20.         {
21.             if (obj == null)
22.             {
23.                 rb.Add(new TypedValue((int)LispDataType.Text, ""));
24.             }
25.             else
26.             {
27.                 if (obj is string)
28.                 {
29.                     rb.Add(new TypedValue((int)LispDataType.Text, obj));
30.                 }
31.                 else if (obj is Point2d)
32.                 {
33.                     rb.Add(new TypedValue((int)LispDataType.Text, "_non"));
34.                     rb.Add(new TypedValue((int)LispDataType.Point2d, obj));
35.                 }
36.                 else if (obj is Point3d)
37.                 {
38.                     rb.Add(new TypedValue((int)LispDataType.Text, "_non"));
39.                     rb.Add(new TypedValue((int)LispDataType.Point3d, obj));
40.                 }
41.                 else if (obj is ObjectId)
42.                 {
43.                     rb.Add(new TypedValue((int)LispDataType.ObjectId, obj));
44.                 }
45.                 else if (obj is SelectionSet)
46.                 {
47.                     rb.Add(new TypedValue((int)LispDataType.SelectionSet, obj));
48.                 }
49.                 else if (obj is double)
50.                 {
51.                     rb.Add(new TypedValue((int)LispDataType.Double, obj));
52.                 }
53.                 else if (obj is short)
54.                 {
55.                     rb.Add(new TypedValue((int)LispDataType.Int16, obj));
56.                 }
57.                 else if (obj is int)
58.                 {
59.                     rb.Add(new TypedValue((int)LispDataType.Int32, obj));
60.                 }
61.                 else if (obj is TypedValue)
62.                 {
63.                     rb.Add(obj);
64.                 }
65.             }
66.         }
67.         #region Redraw
68.         [System.Security.SuppressUnmanagedCodeSecurity]
69.         [DllImport("acad.exe", CallingConvention = CallingConvention.Cdecl)]
70.         private static extern Int32 acedRedraw(long[] name, Int32 mode);
71.         public static void Redraw()
72.         {
73.             acedRedraw(null, 1);
74.         }
75.         //[DllImport("acdb17.dll", CallingConvention = CallingConvention.Cdecl, EntryPoint = "?acdbGetAdsName@@YA?AW4ErrorStatus@Acad@@AAY01JVAcDbObjectId@@@Z")]
76.         //private static extern int acdbGetAdsName(long[] name, ObjectId objId);
77.         //public static void Redraw(ObjectId id)
78.         //{
79.         //    long[] adsname = new long[2];
80.         //    acdbGetAdsName(adsname, id);
81.         //    acedRedraw(adsname, 1);
82.         //}
83.         #endregion
84.         #region TextScr
85.         [DllImport("acad.exe", CallingConvention = CallingConvention.Cdecl)]
86.         private static extern int acedTextScr();
87.         [DllImport("acad.exe", CallingConvention = CallingConvention.Cdecl)]
88.         private static extern int acedGraphScr();
89.         public static bool DisplayTextScreen
90.         {
91.             set
92.             {
93.                 if (value)
94.                     acedTextScr();
95.                 else
96.                     acedGraphScr();
97.             }
98.         }
99.         #endregion
100.         #region Command
101.         /// <summary>
102.         /// 控制命令行回显
103.         /// </summary>
104.         public static bool CmdEcho
105.         {
106.             get
107.             {
108.                 return (int)Application.GetSystemVariable("cmdecho") == 1;
109.             }
110.             set
111.             {
112.                 Application.SetSystemVariable("cmdecho", Convert.ToInt16(value));
113.             }
114.         }
115.         [DllImport("acad.exe")]
116.         private static extern int acedCmd(IntPtr vlist);
117.                                     
118.         /// <summary>
119.         /// 调用AutoCad命令
120.         /// </summary>
121.         /// <param name="prompt">命令行提示</param>
122.         /// <param name="arg">参数</param>
123.         public static void Command(string prompt, object arg)
124.         {
125.             EdUtility.WriteMessage(prompt);
126.             ResultBuffer rb = new ResultBuffer();
127.             AddValueToResultBuffer(ref rb, arg);
128.             try
129.             {
130.                 acedCmd(rb.UnmanagedObject);
131.             }
132.             catch { }
133.             finally
134.             {
135.                 rb.Dispose();
136.             }
137.         }
138.         /// <summary>
139.         /// 调用AutoCad命令
140.         /// </summary>
141.         /// <param name="endCommandByUser">命令结束方式</param>
142.         /// <param name="ldnode">参数</param>
143.         public static void Command(bool endCommandByUser, ResultBuffer rb)
144.         {
145.             ResultBuffer rbend = new ResultBuffer();
146.             try
147.             {
148.                 Document doc = Application.DocumentManager.MdiActiveDocument;
149.                 string currCmdName = doc.CommandInProgress;
150.                 acedCmd(rb.UnmanagedObject);
151.                 if (endCommandByUser)
152.                 {
153.                     rbend.Add(new TypedValue((int)LispDataType.Text, "\"));
154.                 }
155.                 while (doc.CommandInProgress != currCmdName)
156.                 {
157.                     acedCmd(rbend.UnmanagedObject);
158.                 }
159.             }
160.             catch { }
161.             finally
162.             {
163.                 rb.Dispose();
164.                 rbend.Dispose();
165.             }
166.         }
167.         /// <summary>
168.         /// 调用AutoCad命令
169.         /// </summary>
170.         /// <param name="endCommandByUser">命令结束方式</param>
171.         /// <param name="args">参数</param>
172.         public static void Command(bool endCommandByUser, params object[] args)
173.         {
174.             ResultBuffer rb = new ResultBuffer();
175.             ResultBuffer rbend = new ResultBuffer();
176.             foreach (object val in args)
177.             {
178.                 AddValueToResultBuffer(ref rb, val);
179.             }
180.             try
181.             {
182.                 Document doc = Application.DocumentManager.MdiActiveDocument;
183.                 string currCmdName = doc.CommandInProgress;
184.                 acedCmd(rb.UnmanagedObject);
185.                 if (endCommandByUser)
186.                 {
187.                     rbend.Add(new TypedValue((int)LispDataType.Text, "\"));
188.                 }
189.                 while (doc.CommandInProgress != currCmdName)
190.                 {
191.                     acedCmd(rbend.UnmanagedObject);
192.                 }
193.             }
194.             catch { }
195.             finally
196.             {
197.                 rb.Dispose();
198.                 rbend.Dispose();
199.             }
200.         }
201.         #endregion
202.         
203.         #region Lisp
204.         [System.Security.SuppressUnmanagedCodeSecurity]
205.         [DllImport("acad.exe", CallingConvention = CallingConvention.Cdecl)]
206.         extern static private int acedPutSym(string name, IntPtr result);
207.         [System.Security.SuppressUnmanagedCodeSecurity]
208.         [DllImport("acad.exe", CallingConvention = CallingConvention.Cdecl)]
209.         extern static private int acedGetSym(string name, out IntPtr result);
210.         [System.Security.SuppressUnmanagedCodeSecurity]
211.         [DllImport("acad.exe", CallingConvention = CallingConvention.Cdecl)]
212.         extern static private int acedInvoke(IntPtr args, out IntPtr result);
213.         public static ResultBuffer CallLispFunction(ResultBuffer args)
214.         {
215.             IntPtr ip = IntPtr.Zero;
216.             int st = acedInvoke(args.UnmanagedObject, out ip);
217.             if (ip != IntPtr.Zero)
218.             {
219.                 ResultBuffer rbRes = ResultBuffer.Create(ip, true);
220.                 return rbRes;
221.             }
222.             return null;
223.         }
224.         public static ResultBuffer CallLispFunction(string name, params object[] args)
225.         {
226.             ResultBuffer rbArgs = new ResultBuffer();
227.             rbArgs.Add(new TypedValue((int)LispDataType.Text, name));
228.             foreach (object val in args)
229.             {
230.                 AddValueToResultBuffer(ref rbArgs, val);
231.             }
232.             return CallLispFunction(rbArgs);
233.         }
234.                
235.         internal static ResultBuffer GetLispSym(string name)
236.         {
237.             IntPtr ip = IntPtr.Zero;
238.             acedGetSym(name, out ip);
239.             if (ip != IntPtr.Zero)
240.             {
241.                 ResultBuffer rbRes = ResultBuffer.Create(ip, true);
242.                 return rbRes;
243.             }
244.             return null;
245.         }
246.         #endregion
247.     }
248. }

using System; using System.Collections.Generic; using System.Runtime.InteropServices; using System.Reflection; using Autodesk.AutoCAD.Runtime; using Autodesk.AutoCAD.Geometry; using Autodesk.AutoCAD.EditorInput; using Autodesk.AutoCAD.DatabaseServices; using Autodesk.AutoCAD.ApplicationServices; using TlsCad.Collections; namespace TlsCad.Utils {     /// <summary>     /// 平台调用类     /// </summary>     public class InvokeArx     {         private static void AddValueToResultBuffer(ref ResultBuffer rb, object obj)         {             if (obj == null)             {                 rb.Add(new TypedValue((int)LispDataType.Text, ""));             }             else             {                 if (obj is string)                 {                     rb.Add(new TypedValue((int)LispDataType.Text, obj));                 }                 else if (obj is Point2d)                 {                     rb.Add(new TypedValue((int)LispDataType.Text, "_non"));                     rb.Add(new TypedValue((int)LispDataType.Point2d, obj));                 }                 else if (obj is Point3d)                 {                     rb.Add(new TypedValue((int)LispDataType.Text, "_non"));                     rb.Add(new TypedValue((int)LispDataType.Point3d, obj));                 }                 else if (obj is ObjectId)                 {                     rb.Add(new TypedValue((int)LispDataType.ObjectId, obj));                 }                 else if (obj is SelectionSet)                 {                     rb.Add(new TypedValue((int)LispDataType.SelectionSet, obj));                 }                 else if (obj is double)                 {                     rb.Add(new TypedValue((int)LispDataType.Double, obj));                 }                 else if (obj is short)                 {                     rb.Add(new TypedValue((int)LispDataType.Int16, obj));                 }                 else if (obj is int)                 {                     rb.Add(new TypedValue((int)LispDataType.Int32, obj));                 }                 else if (obj is TypedValue)                 {                     rb.Add(obj);                 }             }         }         #region Redraw         [System.Security.SuppressUnmanagedCodeSecurity]         [DllImport("acad.exe", CallingConvention = CallingConvention.Cdecl)]         private static extern Int32 acedRedraw(long[] name, Int32 mode);         public static void Redraw()         {             acedRedraw(null, 1);         }         //[DllImport("acdb17.dll", CallingConvention = CallingConvention.Cdecl, EntryPoint = "?acdbGetAdsName@@YA?AW4ErrorStatus@Acad@@AAY01JVAcDbObjectId@@@Z")]         //private static extern int acdbGetAdsName(long[] name, ObjectId objId);         //public static void Redraw(ObjectId id)         //{         //    long[] adsname = new long[2];         //    acdbGetAdsName(adsname, id);         //    acedRedraw(adsname, 1);         //}         #endregion         #region TextScr         [DllImport("acad.exe", CallingConvention = CallingConvention.Cdecl)]         private static extern int acedTextScr();         [DllImport("acad.exe", CallingConvention = CallingConvention.Cdecl)]         private static extern int acedGraphScr();         public static bool DisplayTextScreen         {             set             {                 if (value)                     acedTextScr();                 else                     acedGraphScr();             }         }         #endregion         #region Command         /// <summary>         /// 控制命令行回显         /// </summary>         public static bool CmdEcho         {             get             {                 return (int)Application.GetSystemVariable("cmdecho") == 1;             }             set             {                 Application.SetSystemVariable("cmdecho", Convert.ToInt16(value));             }         }         [DllImport("acad.exe")]         private static extern int acedCmd(IntPtr vlist);                                              /// <summary>         /// 调用AutoCad命令         /// </summary>         /// <param name="prompt">命令行提示</param>         /// <param name="arg">参数</param>         public static void Command(string prompt, object arg)         {             EdUtility.WriteMessage(prompt);             ResultBuffer rb = new ResultBuffer();             AddValueToResultBuffer(ref rb, arg);             try             {                 acedCmd(rb.UnmanagedObject);             }             catch { }             finally             {                 rb.Dispose();             }         }         /// <summary>         /// 调用AutoCad命令         /// </summary>         /// <param name="endCommandByUser">命令结束方式</param>         /// <param name="ldnode">参数</param>         public static void Command(bool endCommandByUser, ResultBuffer rb)         {             ResultBuffer rbend = new ResultBuffer();             try             {                 Document doc = Application.DocumentManager.MdiActiveDocument;                 string currCmdName = doc.CommandInProgress;                 acedCmd(rb.UnmanagedObject);                 if (endCommandByUser)                 {                     rbend.Add(new TypedValue((int)LispDataType.Text, "\"));                 }                 while (doc.CommandInProgress != currCmdName)                 {                     acedCmd(rbend.UnmanagedObject);                 }             }             catch { }             finally             {                 rb.Dispose();                 rbend.Dispose();             }         }         /// <summary>         /// 调用AutoCad命令         /// </summary>         /// <param name="endCommandByUser">命令结束方式</param>         /// <param name="args">参数</param>         public static void Command(bool endCommandByUser, params object[] args)         {             ResultBuffer rb = new ResultBuffer();             ResultBuffer rbend = new ResultBuffer();             foreach (object val in args)             {                 AddValueToResultBuffer(ref rb, val);             }             try             {                 Document doc = Application.DocumentManager.MdiActiveDocument;                 string currCmdName = doc.CommandInProgress;                 acedCmd(rb.UnmanagedObject);                 if (endCommandByUser)                 {                     rbend.Add(new TypedValue((int)LispDataType.Text, "\"));                 }                 while (doc.CommandInProgress != currCmdName)                 {                     acedCmd(rbend.UnmanagedObject);                 }             }             catch { }             finally             {                 rb.Dispose();                 rbend.Dispose();             }         }         #endregion                  #region Lisp         [System.Security.SuppressUnmanagedCodeSecurity]         [DllImport("acad.exe", CallingConvention = CallingConvention.Cdecl)]         extern static private int acedPutSym(string name, IntPtr result);         [System.Security.SuppressUnmanagedCodeSecurity]         [DllImport("acad.exe", CallingConvention = CallingConvention.Cdecl)]         extern static private int acedGetSym(string name, out IntPtr result);         [System.Security.SuppressUnmanagedCodeSecurity]         [DllImport("acad.exe", CallingConvention = CallingConvention.Cdecl)]         extern static private int acedInvoke(IntPtr args, out IntPtr result);         public static ResultBuffer CallLispFunction(ResultBuffer args)         {             IntPtr ip = IntPtr.Zero;             int st = acedInvoke(args.UnmanagedObject, out ip);             if (ip != IntPtr.Zero)             {                 ResultBuffer rbRes = ResultBuffer.Create(ip, true);                 return rbRes;             }             return null;         }         public static ResultBuffer CallLispFunction(string name, params object[] args)         {             ResultBuffer rbArgs = new ResultBuffer();             rbArgs.Add(new TypedValue((int)LispDataType.Text, name));             foreach (object val in args)             {                 AddValueToResultBuffer(ref rbArgs, val);             }             return CallLispFunction(rbArgs);         }                         internal static ResultBuffer GetLispSym(string name)         {             IntPtr ip = IntPtr.Zero;             acedGetSym(name, out ip);             if (ip != IntPtr.Zero)             {                 ResultBuffer rbRes = ResultBuffer.Create(ip, true);                 return rbRes;             }             return null;         }         #endregion     } }

测试代码，结合ResultList/ResultTree类

1.         [CommandMethod("t11")]
2.         public static void Test11()
3.         {
4.             Document doc = Application.DocumentManager.MdiActiveDocument;
5.             Database db = doc.Database;
6.             Editor ed = doc.Editor;
7.             PromptEntityResult res1 = ed.GetEntity("\nSelect a Entity:");
8.             InvokeArx.CmdEcho = false;
9.             InvokeArx.Command(
10.                 false,
11.                 new ResultTree
12.                 {
13.                     "break",
14.                     new ResultTree(ResultType.List)
15.                     {
16.                         res1.ObjectId,
17.                         res1.PickedPoint
18.                     },
19.                     res1.PickedPoint
20.                 });
21.             InvokeArx.CmdEcho = true;
22.         }

复制代码