.C#4.0 实现晚绑定来调用Com库

雪山飞狐_lzh

1. using System;
   
2. using System.Collections.Generic;
   
3. using System.ComponentModel;
   
4. using System.Data;
   
5. using System.Drawing;
   
6. using System.Linq;
   
7. using System.Text;
   
8. using System.Windows.Forms;
   
9. using System.Runtime.InteropServices;
   
10. using System.Reflection;
    
11. using stdole;
    
12. 
    
13. namespace TlsCad.RunTime
    
14. {
    
15.     public partial class Form1 : Form
    
16.     {
    
17.         public Form1()
    
18.         {
    
19. 
    
20.             //获取当前AutoCAD实例
    
21.             string pid = "AutoCad.Application";
    
22.             dynamic app;
    
23.             try
    
24.             {
    
25.                 app = Marshal.GetActiveObject(pid);
    
26.             }
    
27.             catch
    
28.             {
    
29.                 //如果没有就创建之
    
30.                 Type t = Type.GetTypeFromProgID(pid);
    
31.                 app = Activator.CreateInstance(t);
    
32.                 app.Visible = true;
    
33.             }
    
34. 
    
35.             //获取当前文档
    
36.             dynamic doc = app.ActiveDocument;
    
37. 
    
38.             double[] p1 = { 0, 0, 0 };
    
39.             double[] p2 = { 0, 10, 0 };
    
40.             double[] p3 = { 10, 10, 0 };
    
41.             double[] p4 = { 10, 0, 0 };
    
42. 
    
43.             //Com对象数组必须封装为IDispatch数组
    
44.             //注意应引用stdole.dll
    
45.             IDispatch[] ents =
    
46.             {
    
47.                 doc.ModelSpace.AddLine(p1, p2),
    
48.                 doc.ModelSpace.AddLine(p2, p3),
    
49.                 doc.ModelSpace.AddLine(p3, p4),
    
50.                 doc.ModelSpace.AddLine(p4, p1)
    
51.             };
    
52. 
    
53.             //测试生成面域
    
54.             dynamic r = doc.ModelSpace.AddRegion(ents);
    
55.             double[] min, max;
    
56.             r[0].GetBoundingBox(out min, out max);
    
57.             app.ZoomWindow(min, max);
    
58. 
    
59.             InitializeComponent();
    
60. 
    
61.         }
    
62.     }
    
63. }
    

using System;<br /> using System.Collections.Generic;<br /> using System.ComponentModel;<br /> using System.Data;<br /> using System.Drawing;<br /> using System.Linq;<br /> using System.Text;<br /> using System.Windows.Forms;<br /> using System.Runtime.InteropServices;<br /> using System.Reflection;<br /> using stdole;<br /> <br /> namespace TlsCad.RunTime<br /> {<br />     public partial class Form1 : Form<br />     {<br />         public Form1()<br />         {<br /> <br />             //获取当前<a href="http://bbs.mjtd.com/forum-41-1.html" target="_blank" class="relatedlink">AutoCAD</a>实例<br />             string pid = "AutoCad.Application";<br />             dynamic app;<br />             try<br />             {<br />                 app = Marshal.GetActiveObject(pid);<br />             }<br />             catch<br />             {<br />                 //如果没有就创建之<br />                 Type t = Type.GetTypeFromProgID(pid);<br />                 app = Activator.CreateInstance(t);<br />                 app.Visible = true;<br />             }<br /> <br />             //获取当前文档<br />             dynamic doc = app.ActiveDocument;<br /> <br />             double[] p1 = { 0, 0, 0 };<br />             double[] p2 = { 0, 10, 0 };<br />             double[] p3 = { 10, 10, 0 };<br />             double[] p4 = { 10, 0, 0 };<br /> <br />             //Com对象数组必须封装为IDispatch数组<br />             //注意应引用stdole.dll<br />             IDispatch[] ents =<br />             {<br />                 doc.ModelSpace.AddLine(p1, p2),<br />                 doc.ModelSpace.AddLine(p2, p3),<br />                 doc.ModelSpace.AddLine(p3, p4),<br />                 doc.ModelSpace.AddLine(p4, p1)<br />             };<br /> <br />             //测试生成面域<br />             dynamic r = doc.ModelSpace.AddRegion(ents);<br />             double[] min, max;<br />             r[0].GetBoundingBox(out min, out max);<br />             app.ZoomWindow(min, max);<br /> <br />             InitializeComponent();<br /> <br />         }<br />     }<br /> }<br />

雪山飞狐_lzh

调试结果

ps：有没有朋友按4楼的方法 把其他版本cad的这两个dll贴上。。。

qinnaixuan

雪山飞狐_lzh 发表于 2015-4-5 14:53
变体参数的反射

Utiility类中大量的函数使用了变体。。。

能否帮忙将这个单个CAD版本的应用程序修改为适合多个CAD版本的应用程序，如2010，2013等版本，本人愿意支付一定的费用,联系QQ:1067426844。程序码如下：

2. using System;
   
3. using System.Collections.Generic;
   
4. using System.ComponentModel;
   
5. using System.Data;
   
6. using System.Drawing;
   
7. using System.Linq;
   
8. using System.Text;
   
9. using System.Windows.Forms;
   
10. using Microsoft.VisualBasic;
    
11. using Autodesk.AutoCAD.Interop;
    
12. using Autodesk.AutoCAD.Interop.Common;
    
13. 
    
14. namespace CAD二次开发
    
15. {
    
16.     public partial class Form1 : Form
    
17.     {
    
18.         public static Autodesk.AutoCAD.Interop.AcadApplication AcadApp;
    
19.         public static Autodesk.AutoCAD.Interop.AcadDocument AcadDoc;
    
20.         public Form1()
    
21.         {
    
22.             InitializeComponent();
    
23.         }
    
24.         public static void 启动CAD()
    
25.         {
    
26.             try
    
27.             {
    
28.                 AcadApp = (AcadApplication)System.Runtime.InteropServices.Marshal.GetActiveObject("AutoCAD.Application");
    
29.                 AcadDoc = AcadApp.ActiveDocument;
    
30.             }
    
31.             catch
    
32.             {
    
33.                 AcadApp = new AcadApplication();
    
34.                 AcadDoc = AcadApp.ActiveDocument;
    
35.             }
    
36.             AcadApp.Application.Visible = true;
    
37.             Microsoft.VisualBasic.Interaction.AppActivate(AcadApp.Caption);
    
38.         }
    
39. 
    
40.         private void button1_Click(object sender, EventArgs e)
    
41.         {
    
42.             启动CAD();
    
43. 
    
44.             double Ks =0;
    
45.             double Ke = 2000;
    
46.             double Dmax = 150;
    
47.             double Dmin = -150;
    
48. 
    
49.             string VerCAD = (AcadApp.Version.ToString()).Substring(0, 2);//获取AutoCAD版本号,从左边截取2位字符
    
50.             AcadAcCmColor color1 = (AcadAcCmColor)AcadDoc.Application.GetInterfaceObject("AutoCAD.AcCmColor." + VerCAD);//新建一AcadAcCmColor对象，该对象用来给图形对象的颜色属性赋值
    
51.             AcadLayer acLayer;
    
52.             AcadText TextObj;
    
53. 
    
54.             acLayer = AcadDoc.Layers.Add("中心线");
    
55.             acLayer.color = AcColor.acYellow;
    
56.             acLayer.Lineweight = ACAD_LWEIGHT.acLnWt025;
    
57. 
    
58.             acLayer = AcadDoc.Layers.Add("文字标注");
    
59.             acLayer.color = AcColor.acGreen;
    
60. 
    
61.             acLayer = AcadDoc.Layers.Add("主网格");
    
62.             color1.SetRGB(66, 112, 138);
    
63.             acLayer.TrueColor = color1;
    
64.             acLayer.Lineweight = ACAD_LWEIGHT.acLnWt015;
    
65. 
    
66.             acLayer = AcadDoc.Layers.Add("副网格");
    
67.             color1.SetRGB(95, 58, 69);
    
68.             acLayer.TrueColor = color1;
    
69.             acLayer.Lineweight = ACAD_LWEIGHT.acLnWt005;
    
70. 
    
71.             double[] lineStartPoint = new Double[3];
    
72.             double[] lineEndPoint = new Double[3];
    
73.             double[] TextPoint = new Double[3];
    
74. 
    
75.             //水平网格线
    
76.             for (int i = Convert.ToInt32(Math.Ceiling(Dmin / 10)) * 10; i <= Math.Floor(Dmax / 10) * 10; i = i + 10)
    
77.             {
    
78.                 lineStartPoint[0] = Ks ; lineStartPoint[1] = i;
    
79.                 lineEndPoint[0] = Ke ; lineEndPoint[1] = i;
    
80. 
    
81.                 if (i % 50 == 0)
    
82.                 {
    
83.                     if (i == 0)
    
84.                     {
    
85.                         AcadDoc.ModelSpace.AddLine(lineStartPoint, lineEndPoint).Layer = "中心线";
    
86.                     }
    
87.                     else
    
88.                     {
    
89.                         AcadDoc.ModelSpace.AddLine(lineStartPoint, lineEndPoint).Layer = "主网格";
    
90.                     }
    
91.                 }
    
92.                 else
    
93.                 {
    
94.                     AcadDoc.ModelSpace.AddLine(lineStartPoint, lineEndPoint).Layer = "副网格";
    
95.                 }
    
96.             }
    
97. 
    
98.             //竖向网格线
    
99.             for (int i = Convert.ToInt32(Math.Ceiling(Ks / 10)) * 10; i <= Math.Floor(Ke / 10) * 10; i = i + 10)
    
100.             {
     
101.                 lineStartPoint[0] = i ; lineStartPoint[1] = Math.Ceiling(Dmin / 10) * 10;
     
102.                 lineEndPoint[0] = i ; lineEndPoint[1] = Math.Floor(Dmax / 10) * 10;
     
103. 
     
104.                 if (i % 50 == 0)
     
105.                 {
     
106.                     AcadDoc.ModelSpace.AddLine(lineStartPoint, lineEndPoint).Layer = "主网格";
     
107.                     if (i % 100 == 0)
     
108.                     {
     
109.                         //标注里程
     
110.                         TextPoint[0] = i ; TextPoint[1] = Math.Ceiling(Dmin / 10) * 10 - 10;
     
111.                         string strText;
     
112.                         if (i % 1000 == 0)
     
113.                         {
     
114.                             strText = "K" + (i / 1000).ToString();
     
115.                         }
     
116.                         else
     
117.                         {
     
118.                             strText = ((i / 100) % 10).ToString();
     
119.                         }
     
120.                         TextObj = AcadDoc.ModelSpace.AddText(strText, TextPoint, 7.5);
     
121.                         TextObj.Alignment = AcAlignment.acAlignmentMiddleCenter;//文本对齐方式
     
122.                         TextObj.TextAlignmentPoint = TextPoint;
     
123.                         TextObj.Layer = "文字标注";
     
124. 
     
125.                         //标注拨量
     
126.                         if (i % 1000 == 0)
     
127.                         {
     
128.                             for (int j = Convert.ToInt32(Math.Ceiling(Dmin / 50)) * 50; j <= Math.Floor(Dmax / 50) * 50; j = j + 50)
     
129.                             {
     
130.                                 TextPoint[0] = i  - 5; TextPoint[1] = j;
     
131.                                 TextObj = AcadDoc.ModelSpace.AddText(j.ToString(), TextPoint, 7.5);
     
132.                                 TextObj.Alignment = AcAlignment.acAlignmentMiddleRight;//文本对齐方式
     
133.                                 TextObj.TextAlignmentPoint = TextPoint;                //文本对齐点
     
134.                                 TextObj.Layer = "文字标注";
     
135.                             }
     
136.                         }
     
137.                     }
     
138.                 }
     
139. 
     
140.             }
     
141. 
     
142.             AcadDoc.ActiveLayer = AcadDoc.Layers.Add("0");//恢复0图层
     
143.             AcadDoc.SendCommand("_z\ne\n");
     
144.             AcadDoc.SendCommand("_regenall\n");//全部重生成模型
     
145. 
     
146.             Microsoft.VisualBasic.Interaction.AppActivate(AcadApp.Caption);
     
147. 
     
148.         }
     
149.     }
     
150. }
     

using System;<br /> using System.Collections.Generic;<br /> using System.ComponentModel;<br /> using System.Data;<br /> using System.Drawing;<br /> using System.Linq;<br /> using System.Text;<br /> using System.Windows.Forms;<br /> using Microsoft.VisualBasic;<br /> using Autodesk.AutoCAD.Interop;<br /> using Autodesk.AutoCAD.Interop.Common;<br /> <br /> namespace CAD二次开发<br /> {<br />     public partial class Form1 : Form<br />     {<br />         public static Autodesk.AutoCAD.Interop.AcadApplication AcadApp;<br />         public static Autodesk.AutoCAD.Interop.AcadDocument AcadDoc;<br />         public Form1()<br />         {<br />             InitializeComponent();<br />         }<br />         public static void 启动CAD()<br />         {<br />             try<br />             {<br />                 AcadApp = (AcadApplication)System.Runtime.InteropServices.Marshal.GetActiveObject("AutoCAD.Application");<br />                 AcadDoc = AcadApp.ActiveDocument;<br />             }<br />             catch<br />             {<br />                 AcadApp = new AcadApplication();<br />                 AcadDoc = AcadApp.ActiveDocument;<br />             }<br />             AcadApp.Application.Visible = true;<br />             Microsoft.VisualBasic.Interaction.AppActivate(AcadApp.Caption);<br />         }<br /> <br />         private void button1_Click(object sender, EventArgs e)<br />         {<br />             启动CAD();<br /> <br />             double Ks =0;<br />             double Ke = 2000;<br />             double Dmax = 150;<br />             double Dmin = -150;<br /> <br />             string VerCAD = (AcadApp.Version.ToString()).Substring(0, 2);//获取AutoCAD版本号,从左边截取2位字符<br />             AcadAcCmColor color1 = (AcadAcCmColor)AcadDoc.Application.GetInterfaceObject("AutoCAD.AcCmColor." + VerCAD);//新建一AcadAcCmColor对象，该对象用来给图形对象的颜色属性赋值<br />             AcadLayer acLayer;<br />             AcadText TextObj;<br /> <br />             acLayer = AcadDoc.Layers.Add("中心线");<br />             acLayer.color = AcColor.acYellow;<br />             acLayer.Lineweight = ACAD_LWEIGHT.acLnWt025;<br /> <br />             acLayer = AcadDoc.Layers.Add("文字标注");<br />             acLayer.color = AcColor.acGreen;<br /> <br />             acLayer = AcadDoc.Layers.Add("主网格");<br />             color1.SetRGB(66, 112, 138);<br />             acLayer.TrueColor = color1;<br />             acLayer.Lineweight = ACAD_LWEIGHT.acLnWt015;<br /> <br />             acLayer = AcadDoc.Layers.Add("副网格");<br />             color1.SetRGB(95, 58, 69);<br />             acLayer.TrueColor = color1;<br />             acLayer.Lineweight = ACAD_LWEIGHT.acLnWt005;<br /> <br />             double[] lineStartPoint = new Double[3];<br />             double[] lineEndPoint = new Double[3];<br />             double[] TextPoint = new Double[3];<br /> <br />             //水平网格线<br />             for (int i = Convert.ToInt32(Math.Ceiling(Dmin / 10)) * 10; i <= Math.Floor(Dmax / 10) * 10; i = i + 10) <br />             {<br />                 lineStartPoint[0] = Ks ; lineStartPoint[1] = i;<br />                 lineEndPoint[0] = Ke ; lineEndPoint[1] = i;<br /> <br />                 if (i % 50 == 0)<br />                 {<br />                     if (i == 0)<br />                     {<br />                         AcadDoc.ModelSpace.AddLine(lineStartPoint, lineEndPoint).Layer = "中心线";<br />                     }<br />                     else<br />                     {<br />                         AcadDoc.ModelSpace.AddLine(lineStartPoint, lineEndPoint).Layer = "主网格";<br />                     }<br />                 }<br />                 else<br />                 {<br />                     AcadDoc.ModelSpace.AddLine(lineStartPoint, lineEndPoint).Layer = "副网格";<br />                 }<br />             }<br /> <br />             //竖向网格线<br />             for (int i = Convert.ToInt32(Math.Ceiling(Ks / 10)) * 10; i <= Math.Floor(Ke / 10) * 10; i = i + 10)<br />             {<br />                 lineStartPoint[0] = i ; lineStartPoint[1] = Math.Ceiling(Dmin / 10) * 10;<br />                 lineEndPoint[0] = i ; lineEndPoint[1] = Math.Floor(Dmax / 10) * 10;<br /> <br />                 if (i % 50 == 0)<br />                 {<br />                     AcadDoc.ModelSpace.AddLine(lineStartPoint, lineEndPoint).Layer = "主网格";<br />                     if (i % 100 == 0)<br />                     {<br />                         //标注里程<br />                         TextPoint[0] = i ; TextPoint[1] = Math.Ceiling(Dmin / 10) * 10 - 10;<br />                         string strText;<br />                         if (i % 1000 == 0)<br />                         {<br />                             strText = "K" + (i / 1000).ToString();<br />                         }<br />                         else<br />                         {<br />                             strText = ((i / 100) % 10).ToString();<br />                         }<br />                         TextObj = AcadDoc.ModelSpace.AddText(strText, TextPoint, 7.5);<br />                         TextObj.Alignment = AcAlignment.acAlignmentMiddleCenter;//文本对齐方式<br />                         TextObj.TextAlignmentPoint = TextPoint;<br />                         TextObj.Layer = "文字标注";<br /> <br />                         //标注拨量<br />                         if (i % 1000 == 0)<br />                         {<br />                             for (int j = Convert.ToInt32(Math.Ceiling(Dmin / 50)) * 50; j <= Math.Floor(Dmax / 50) * 50; j = j + 50)<br />                             {<br />                                 TextPoint[0] = i  - 5; TextPoint[1] = j;<br />                                 TextObj = AcadDoc.ModelSpace.AddText(j.ToString(), TextPoint, 7.5);<br />                                 TextObj.Alignment = AcAlignment.acAlignmentMiddleRight;//文本对齐方式<br />                                 TextObj.TextAlignmentPoint = TextPoint;                //文本对齐点<br />                                 TextObj.Layer = "文字标注";<br />                             }<br />                         }<br />                     }<br />                 }<br /> <br />             }<br /> <br />             AcadDoc.ActiveLayer = AcadDoc.Layers.Add("0");//恢复0图层<br />             AcadDoc.SendCommand("_z\ne\n");<br />             AcadDoc.SendCommand("_regenall\n");//全部重生成模型<br /> <br />             Microsoft.VisualBasic.Interaction.AppActivate(AcadApp.Caption);<br /> <br />         }<br />     }<br /> }<br />

hector

飞狐大侠，你好。从你的帖子中学到了很多，非常感谢。
有一个问题请教 一下：使用C# COM，怎么调用sendcommand命令，实现两条直线trim的功能？（在sendcommand命令中，可以使用handent,但是无法使用list()）,或者不用调用sendcommand，有无其它命令。
非常期待能获得你的指点。

雪山飞狐_lzh

4.0使用dynamic确实大大的简化了反射的难度，唯一的问题是没有智能提示 O(∩_∩)O~

Real_King

不错，C#在com方面的介绍比起VB太少了，面域的示例正好参考

雪山飞狐_lzh

变体参数的反射

Utiility类中大量的函数使用了变体。。。
比如GetEntity
如果直接使用下面的代码
dynamic util = doc.Utility;
util.GetEntity(out obj, out pt);
始终调用不了
下面的办法不知道是不是最好的，以AutoCad2008/2010为例
首先在项目中引用AutoCad Type和ObjuectDBX两个Com类型库
修改引用项目中两个dll的
嵌入互操作为false
复制本地为True
生成一次项目 在应用程序目录下出现这两个dll
即
Autodesk.AutoCAD.Interop.dll
Autodesk.AutoCAD.Interop.Common.dll
把它们Copy到相应的版本目录下
最后去除这两个引用，

1.             string path = Assembly.GetExecutingAssembly().Location;
   
2.             path = path.Substring(0, path.LastIndexOf("\\"));
   
3.             string id = app.Version.Substring(0, 4);
   
4.             Dictionary<string, string> vers =
   
5.                 new Dictionary<string,string>
   
6.                 {
   
7.                     {"17.1", "2008"},
   
8.                     {"18.0", "2010"},
   
9.                 };
   
10. 
    
11.             string file =
    
12.                 string.Format(
    
13.                     "{0}\\{1}\\Autodesk.AutoCAD.Interop.dll",
    
14.                     path,
    
15.                     vers[id]);
    
16.             Assembly ass = Assembly.LoadFile(file);
    
17. 
    
18.             dynamic util = doc.Utility;
    
19.             Type utilType = ass.GetType("Autodesk.AutoCAD.Interop.IAcadUtility");
    
20.             Object[] myArgs = new Object[3];
    
21.             myArgs[2] = Type.Missing;
    
22.             MethodInfo m = utilType.GetMethod("GetEntity");
    
23.             m.Invoke(util, myArgs);
    

            string path = Assembly.GetExecutingAssembly().Location;<br />             path = path.Substring(0, path.LastIndexOf("\\"));<br />             string id = app.Version.Substring(0, 4);<br />             Dictionary<string, string> vers = <br />                 new Dictionary<string,string><br />                 {<br />                     {"17.1", "2008"},<br />                     {"18.0", "2010"},<br />                 };<br /> <br />             string file =<br />                 string.Format(<br />                     "{0}\\{1}\\Autodesk.AutoCAD.Interop.dll",<br />                     path,<br />                     vers[id]);<br />             Assembly ass = Assembly.LoadFile(file);<br /> <br />             dynamic util = doc.Utility;<br />             Type utilType = ass.GetType("Autodesk.AutoCAD.Interop.IAcadUtility");<br />             Object[] myArgs = new Object[3];<br />             myArgs[2] = Type.Missing;<br />             MethodInfo m = utilType.GetMethod("GetEntity");<br />             m.Invoke(util, myArgs);<br />

雪山飞狐_lzh

可能的更好方法

1. using System;
   
2. using System.Collections.Generic;
   
3. using System.ComponentModel;
   
4. using System.Data;
   
5. using System.Drawing;
   
6. using System.Linq;
   
7. using System.Text;
   
8. using System.Windows.Forms;
   
9. using System.Runtime.InteropServices;
   
10. using System.Reflection;
    
11. using System.IO;
    
12. using stdole;
    
13. using System.Text.RegularExpressions;
    
14. using System.Collections;
    
15. 
    
16. namespace TlsCad.RunTime
    
17. {
    
18.     public partial class Form1 : Form
    
19.     {
    
20. 
    
21.         [DllImport("user32.dll")]
    
22.         static extern IntPtr SetActiveWindow(IntPtr hWnd);
    
23. 
    
24.         [DllImport("user32.dll")]
    
25.         static extern bool SetForegroundWindow(IntPtr hWnd);
    
26. 
    
27.         public Form1()
    
28.         {
    
29. 
    
30.             InitializeComponent();
    
31. 
    
32.             AcadX.Connection();
    
33.             dynamic app = AcadX.Application;
    
34. 
    
35.             //获取当前文档
    
36.             dynamic doc = app.ActiveDocument;
    
37. 
    
38.             double[] p1 = { 0, 0, 0 };
    
39.             double[] p2 = { 0, 10, 0 };
    
40.             double[] p3 = { 10, 10, 0 };
    
41.             double[] p4 = { 10, 0, 0 };
    
42. 
    
43.             //Com对象数组必须封装为IDispatch数组
    
44.             //注意应引用stdole.dll
    
45.             IDispatch[] ents =
    
46.             {
    
47.                 doc.ModelSpace.AddLine(p1, p2),
    
48.                 doc.ModelSpace.AddLine(p2, p3),
    
49.                 doc.ModelSpace.AddLine(p3, p4),
    
50.                 doc.ModelSpace.AddLine(p4, p1)
    
51.             };
    
52. 
    
53.             //测试生成面域
    
54.             dynamic r = doc.ModelSpace.AddRegion(ents);
    
55.             double[] min, max;
    
56.             r[0].GetBoundingBox(out min, out max);
    
57.             app.ZoomWindow(min, max);
    
58. 
    
59.             //测试Utility,或者var util = new AcadUtility(doc);
    
60.             var util = new AcadX(".IAcadUtility", doc.Utility);
    
61.             object[] args = new object[]{ null, null, Type.Missing };
    
62.             if (util.Invoke("GetEntity", ref args))
    
63.             {
    
64.                
    
65.                 dynamic obj = args[1];
    
66.                 var pt = args[2] as double[];
    
67. 
    
68.                 string info = string.Format("你选择了{0}实体", obj.ObjectName);
    
69.                 info += string.Format("\n在{0},{1},{2}", pt.Cast<object>().ToArray());
    
70.                 MessageBox.Show(info);
    
71. 
    
72.             }
    
73. 
    
74.         }
    
75. 
    
76.     }
    
77. 
    
78.     public class AcadX
    
79.     {
    
80. 
    
81.         public static dynamic Application
    
82.         { private set; get; }
    
83. 
    
84.         virtual protected string TypeName
    
85.         {
    
86.             get { return "Autodesk.AutoCAD.Interop"; }
    
87.         }
    
88. 
    
89.         protected static Assembly _assem
    
90.         { private set; get; }
    
91. 
    
92.         protected Type _type;
    
93.         protected object _obj;
    
94. 
    
95.         protected AcadX()
    
96.         {
    
97.            _type = _assem.GetType(TypeName);
    
98.         }
    
99. 
    
100.         public AcadX(string typeName, object obj)
     
101.         {
     
102.             _type = _assem.GetType(TypeName + typeName);
     
103.             _obj = obj;
     
104.         }
     
105. 
     
106.         public bool Invoke(string methodName, ref object[] args)
     
107.         {
     
108.             
     
109.             try
     
110.             {
     
111. 
     
112.                 MethodInfo mi = _type.GetMethod(methodName);
     
113.                 List<object> lst = new List<object> { mi.Invoke(_obj, args) };
     
114. 
     
115.                 var pars = mi.GetParameters();
     
116.                 for(int i = 0; i< pars.Count(); i++)
     
117.                 {
     
118.                     if (pars.IsOut)
     
119.                         lst.Add(args);
     
120.                 }
     
121. 
     
122.                 args = lst.ToArray();
     
123.                 return true;
     
124. 
     
125.             }
     
126.             catch
     
127.             {
     
128. 
     
129.                 args = new object[0];
     
130.                 return false;
     
131. 
     
132.             }
     
133. 
     
134.         }
     
135. 
     
136.         public static void Connection()
     
137.         {
     
138.             //获取当前AutoCad实例
     
139.             string pid = "AutoCad.Application";
     
140.             try
     
141.             {
     
142.                 Application = Marshal.GetActiveObject(pid);
     
143.             }
     
144.             catch
     
145.             {
     
146.                 //如果没有就创建之
     
147.                 Type t = Type.GetTypeFromProgID(pid);
     
148.                 Application = Activator.CreateInstance(t);
     
149.                 Application.Visible = true;
     
150.             }
     
151. 
     
152.             GetComAssembly(Application);
     
153. 
     
154.         }
     
155. 
     
156.         private static void GetComAssembly(dynamic app)
     
157.         {
     
158.             string id = app.Version.Substring(0, 4);
     
159.             Dictionary<string, string> vers = new Dictionary<string, string>();
     
160. 
     
161.             string vername = null;
     
162.             DirectoryInfo di = new DirectoryInfo("C:\\windows\\assembly\\gac_msil\\Autodesk.AutoCAD.Interop");
     
163.             var sdis = di.GetDirectories();
     
164.             foreach (var sdi in sdis)
     
165.             {
     
166.                 if (sdi.Name.Contains(id))
     
167.                 {
     
168.                     vername = sdi.Name;
     
169.                     break;
     
170.                 }
     
171.             }
     
172. 
     
173.             var verinfos = Regex.Split(vername, "__");
     
174. 
     
175.             _assem =
     
176.                 Assembly.Load(
     
177.                     string.Format(
     
178.                         "Autodesk.AutoCAD.Interop, Version={0}, Culture=neutral, PublicKeyToken={1}",
     
179.                         verinfos));
     
180.         }
     
181. 
     
182.     }
     
183. 
     
184.     public class AcadUtility : AcadX
     
185.     {
     
186. 
     
187.         protected override string TypeName
     
188.         {
     
189.             get { return base.TypeName + ".IAcadUtility"; }
     
190.         }
     
191. 
     
192.         public AcadUtility(dynamic doc)
     
193.         {
     
194.             _obj = doc.Utility;
     
195.         }
     
196. 
     
197.         public dynamic Document
     
198.         {
     
199.             set { _obj = value.Utility; }
     
200.         }
     
201. 
     
202.     }
     
203. 
     
204. 
     
205. }
     

using System;<br /> using System.Collections.Generic;<br /> using System.ComponentModel;<br /> using System.Data;<br /> using System.Drawing;<br /> using System.Linq;<br /> using System.Text;<br /> using System.Windows.Forms;<br /> using System.Runtime.InteropServices;<br /> using System.Reflection;<br /> using System.IO;<br /> using stdole;<br /> using System.Text.RegularExpressions;<br /> using System.Collections;<br /> <br /> namespace TlsCad.RunTime<br /> {<br />     public partial class Form1 : Form<br />     {<br /> <br />         [DllImport("user32.dll")]<br />         static extern IntPtr SetActiveWindow(IntPtr hWnd);<br /> <br />         [DllImport("user32.dll")]<br />         static extern bool SetForegroundWindow(IntPtr hWnd);<br /> <br />         public Form1()<br />         {<br /> <br />             InitializeComponent();<br /> <br />             AcadX.Connection();<br />             dynamic app = AcadX.Application;<br /> <br />             //获取当前文档<br />             dynamic doc = app.ActiveDocument;<br /> <br />             double[] p1 = { 0, 0, 0 };<br />             double[] p2 = { 0, 10, 0 };<br />             double[] p3 = { 10, 10, 0 };<br />             double[] p4 = { 10, 0, 0 };<br /> <br />             //Com对象数组必须封装为IDispatch数组<br />             //注意应引用stdole.dll<br />             IDispatch[] ents =<br />             {<br />                 doc.ModelSpace.AddLine(p1, p2),<br />                 doc.ModelSpace.AddLine(p2, p3),<br />                 doc.ModelSpace.AddLine(p3, p4),<br />                 doc.ModelSpace.AddLine(p4, p1)<br />             };<br /> <br />             //测试生成面域<br />             dynamic r = doc.ModelSpace.AddRegion(ents);<br />             double[] min, max;<br />             r[0].GetBoundingBox(out min, out max);<br />             app.ZoomWindow(min, max);<br /> <br />             //测试Utility,或者var util = new AcadUtility(doc);<br />             var util = new AcadX(".IAcadUtility", doc.Utility);<br />             object[] args = new object[]{ null, null, Type.Missing };<br />             if (util.Invoke("GetEntity", ref args))<br />             {<br />                 <br />                 dynamic obj = args[1];<br />                 var pt = args[2] as double[];<br /> <br />                 string info = string.Format("你选择了{0}实体", obj.ObjectName);<br />                 info += string.Format("\n在{0},{1},{2}", pt.Cast<object>().ToArray());<br />                 MessageBox.Show(info);<br /> <br />             }<br /> <br />         }<br /> <br />     }<br /> <br />     public class AcadX<br />     {<br /> <br />         public static dynamic Application<br />         { private set; get; }<br /> <br />         virtual protected string TypeName<br />         {<br />             get { return "Autodesk.AutoCAD.Interop"; } <br />         }<br /> <br />         protected static Assembly _assem<br />         { private set; get; }<br /> <br />         protected Type _type;<br />         protected object _obj;<br /> <br />         protected AcadX()<br />         {<br />            _type = _assem.GetType(TypeName);<br />         }<br /> <br />         public AcadX(string typeName, object obj)<br />         {<br />             _type = _assem.GetType(TypeName + typeName);<br />             _obj = obj;<br />         }<br /> <br />         public bool Invoke(string methodName, ref object[] args)<br />         {<br />             <br />             try<br />             {<br /> <br />                 MethodInfo mi = _type.GetMethod(methodName);<br />                 List<object> lst = new List<object> { mi.Invoke(_obj, args) };<br /> <br />                 var pars = mi.GetParameters();<br />                 for(int i = 0; i< pars.Count(); i++)<br />                 {<br />                     if (pars<i>.IsOut)<br />                         lst.Add(args<i>);<br />                 }<br /> <br />                 args = lst.ToArray();<br />                 return true;<br /> <br />             }<br />             catch<br />             {<br /> <br />                 args = new object[0];<br />                 return false;<br /> <br />             }<br /> <br />         }<br /> <br />         public static void Connection()<br />         {<br />             //获取当前AutoCad实例<br />             string pid = "AutoCad.Application";<br />             try<br />             {<br />                 Application = Marshal.GetActiveObject(pid);<br />             }<br />             catch<br />             {<br />                 //如果没有就创建之<br />                 Type t = Type.GetTypeFromProgID(pid);<br />                 Application = Activator.CreateInstance(t);<br />                 Application.Visible = true;<br />             }<br /> <br />             GetComAssembly(Application);<br /> <br />         }<br /> <br />         private static void GetComAssembly(dynamic app)<br />         {<br />             string id = app.Version.Substring(0, 4);<br />             Dictionary<string, string> vers = new Dictionary<string, string>();<br /> <br />             string vername = null;<br />             DirectoryInfo di = new DirectoryInfo("C:\\windows\\assembly\\gac_msil\\Autodesk.AutoCAD.Interop");<br />             var sdis = di.GetDirectories();<br />             foreach (var sdi in sdis)<br />             {<br />                 if (sdi.Name.Contains(id))<br />                 {<br />                     vername = sdi.Name;<br />                     break;<br />                 }<br />             }<br /> <br />             var verinfos = Regex.Split(vername, "__");<br /> <br />             _assem =<br />                 Assembly.Load(<br />                     string.Format(<br />                         "Autodesk.AutoCAD.Interop, Version={0}, Culture=neutral, PublicKeyToken={1}",<br />                         verinfos));<br />         }<br /> <br />     }<br /> <br />     public class AcadUtility : AcadX<br />     {<br /> <br />         protected override string TypeName<br />         {<br />             get { return base.TypeName + ".IAcadUtility"; }<br />         }<br /> <br />         public AcadUtility(dynamic doc)<br />         {<br />             _obj = doc.Utility;<br />         }<br /> <br />         public dynamic Document<br />         {<br />             set { _obj = value.Utility; }<br />         }<br /> <br />     }<br /> <br /> <br /> }<br />

hmxmylove

学习了

雪山飞狐_lzh

优化代码 6楼已更新

SurveyCAD

我把你的代码原样拷贝到一个新项目,执行的时候没有错误提示,但是只是画了一个正方形,并没有成功创建一个面域,请问是什么原因呢?

52幕墙设计

有帮助学习一下