后绑定AutoCadCom库的dll 提供测试 XP版本

雪山飞狐_lzh

调用方式

1.             MessageBox.Show("你安装了如下版本的AutoCAD\n" + string.Join("\n", AcadVersion.Versions.Select(v => v.ToString()).ToArray()));
   
2. 
   
3.             if (!AcadWrapper.GetApp())
   
4.                 AcadWrapper.OpenApp(AcadVersion.Versions[1]);
   
5. 
   
6.             dynamic app = AcadWrapper.Application;
   
7.             app.Visible = true;
   
8.             var doc = app.ActiveDocument;
   
9. 
   
10.             var res = doc.Utility.GetEntity();
    
11.             if (res != null)
    
12.             {
    
13.                 var obj = res[1].asEntity.ObjectName;
    
14.                 var pt = res[2];
    
15.             }

            MessageBox.Show("你安装了如下版本的<a href="http://bbs.mjtd.com/forum-41-1.html" target="_blank" class="relatedlink">AutoCAD</a>\n" + string.Join("\n", AcadVersion.Versions.Select(v => v.ToString()).ToArray()));<br /> <br />             if (!AcadWrapper.GetApp())<br />                 AcadWrapper.OpenApp(AcadVersion.Versions[1]);<br /> <br />             dynamic app = AcadWrapper.Application;<br />             app.Visible = true;<br />             var doc = app.ActiveDocument;<br /> <br />             var res = doc.Utility.GetEntity();<br />             if (res != null)<br />             {<br />                 var obj = res[1].asEntity.ObjectName;<br />                 var pt = res[2];<br />             }

雪山飞狐_lzh

同样也可以在.NetApi中调用 下面是加载cui文件的代码

1.             AcadWrapper.GetApp(Application.AcadApplication);
   
2.             var app = AcadWrapper.Application;
   
3.             var groups = app.MenuGroups;
   
4.             var cui = groups["TlsCad"];
   
5. 
   
6.             if (cui == null)
   
7.             {
   
8. 
   
9.                 var files = AcadWrapper.Preferences.Files;
   
10.                 var oldPath = files.SupportPath;
    
11.                 if (!oldPath.ToLower().Contains(Path.ToLower()))
    
12.                     files.SupportPath += ";" + Path;
    
13. 
    
14.                 cui = groups.Load("TlsCad.cui");
    
15.                 var menus = cui.Menus;
    
16.                 foreach (var menu in menus)
    
17.                     menus.InsertMenuInMenuBar(menu.Name, "");
    
18. 
    
19.             }

            AcadWrapper.GetApp(Application.AcadApplication);<br />             var app = AcadWrapper.Application;<br />             var groups = app.MenuGroups;<br />             var cui = groups["TlsCad"];<br /> <br />             if (cui == null)<br />             {<br /> <br />                 var files = AcadWrapper.Preferences.Files;<br />                 var oldPath = files.SupportPath;<br />                 if (!oldPath.ToLower().Contains(Path.ToLower()))<br />                     files.SupportPath += ";" + Path;<br /> <br />                 cui = groups.Load("TlsCad.cui");<br />                 var menus = cui.Menus;<br />                 foreach (var menu in menus)<br />                     menus.InsertMenuInMenuBar(menu.Name, "");<br /> <br />             }

cheng5276

老大强悍！

雪山飞狐_lzh

2015.4.10更新
说明：
AcadVersion为注册表查找已安装AutoCad的所有版本类，
由于手边没有XP以上版本，只能保证XP下运行正常
测试好了的话 我在适当的时候会放出源码
AcadWrapper类是对Acad的对象进行封装的反射类，
实际在.Net4.0,利用dynamic反射也许更好 但是有些Com库的函数可能会出现问题
那么可以使用下面的办法调用AcadWrapper进行混编

1.         private void button1_Click(object sender, EventArgs e)
   
2.         {
   
3.             MessageBox.Show("你安装了如下版本的AutoCad\n" + string.Join("\n", AcadVersion.Versions.Select(v => v.ToString()).ToArray()));
   
4. 
   
5.             if (!AcadWrapper.GetApp())
   
6.                 AcadWrapper.OpenApp(AcadVersion.Versions[0]);
   
7. 
   
8.             dynamic app = AcadWrapper.Application.Value;
   
9.             app.Visible = true;
   
10.             var doc = app.ActiveDocument;
    
11. 
    
12.             var util = AcadWrapper.Wrapper(doc.Utility, "Utility");
    
13.             var res = util.GetEntity();
    
14.             if (res != null)
    
15.             {
    
16.                 var obj = res[1].asEntity;
    
17.                 var pt = res[2];
    
18.             }
    
19.         }

        private void button1_Click(object sender, EventArgs e)<br />         {<br />             MessageBox.Show("你安装了如下版本的AutoCad\n" + string.Join("\n", AcadVersion.Versions.Select(v => v.ToString()).ToArray()));<br /> <br />             if (!AcadWrapper.GetApp())<br />                 AcadWrapper.OpenApp(AcadVersion.Versions[0]);<br /> <br />             dynamic app = AcadWrapper.Application.Value;<br />             app.Visible = true;<br />             var doc = app.ActiveDocument;<br /> <br />             var util = AcadWrapper.Wrapper(doc.Utility, "Utility");<br />             var res = util.GetEntity();<br />             if (res != null)<br />             {<br />                 var obj = res[1].asEntity;<br />                 var pt = res[2];<br />             }<br />         }