InvokeARX.cs

csharp

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

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