使用C# Late Binding Com类库

雪山飞狐_lzh

之前发过32位版本的后绑定AutoCADCom库的方案，利用了PIA，但是64位AutoCad中桌子似乎偷懒了（常态），而且Cad库直接使用dynamic动态调用也是很麻烦，所以下面是解决方案

项目是VS2015编写的，。Net框架的版本为4.0，要注意几个问题：
1、代码使用了C#6.0中的新特性，较低版本的要改写，不过推荐使用VS2015+
2、主项目必须生成AnyCpu才能调用，原因未知。。。
3、没有做很详细的测试，欢迎大家参与测试。。。

雪山飞狐_lzh

2017/11/27
修改Assembly类加载不必要类型的Bug

1. using System;
   
2. using System.Collections.Generic;
   
3. using System.IO;
   
4. using ComTypes = System.Runtime.InteropServices.ComTypes;
   
5. 
   
6. namespace NFox.Runtime.Com.Reflection
   
7. {
   
8. 
   
9.     /// <summary>
   
10.     /// Com程序集,只有类型集合,类型别名、枚举等未处理
    
11.     /// </summary>
    
12.     public class Assembly
    
13.     {
    
14. 
    
15.         /// <summary>
    
16.         /// 程序集字典
    
17.         /// </summary>
    
18.         private static Dictionary<AssemblyKey, Assembly> _openedAssemblies
    
19.             = new Dictionary<AssemblyKey, Assembly>();
    
20. 
    
21.         public static DirectoryInfo Root
    
22.         {
    
23.             get
    
24.             {
    
25.                 var assem = System.Reflection.Assembly.GetExecutingAssembly();
    
26.                 var fi = new FileInfo(assem.Location);
    
27.                 return fi.Directory.CreateSubdirectory("ComAssemblies");
    
28.             }
    
29.         }
    
30. 
    
31.         /// <summary>
    
32.         /// 获取IDispatch接口对象的类型信息
    
33.         /// </summary>
    
34.         /// <param name="obj">IDispatch接口对象</param>
    
35.         /// <returns>对象的类型信息</returns>
    
36.         public static Type GetType(IDispatch obj)
    
37.         {
    
38. 
    
39.             AssemblyKey key;
    
40. 
    
41.             ComTypes.ITypeInfo info;
    
42.             obj.GetTypeInfo(0, 0, out info);
    
43.             ComTypes.ITypeLib lib;
    
44.             int id;
    
45.             info.GetContainingTypeLib(out lib, out id);
    
46.             
    
47.             IntPtr ip;
    
48.             lib.GetLibAttr(out ip);
    
49.             var la = Utils.GetObject<ComTypes.TYPELIBATTR>(ip);
    
50.             key = new AssemblyKey(la.guid, la.wMajorVerNum, la.wMinorVerNum);
    
51.             lib.ReleaseTLibAttr(ip);
    
52.             if (!_openedAssemblies.ContainsKey(key))
    
53.             {
    
54.                 string name, doc, helpfile;
    
55.                 int hc;
    
56.                 lib.GetDocumentation(-1, out name, out doc, out hc, out helpfile);
    
57.                 var dir = Root.CreateSubdirectory(name);
    
58.                 var clsdir = dir.CreateSubdirectory(key.ClsId.ToString());
    
59.                 var verdir = clsdir.CreateSubdirectory(key.Version);
    
60.                 _openedAssemblies.Add(key, new Assembly(key, name, verdir));
    
61.             }
    
62. 
    
63.             return _openedAssemblies[key].GetType(id, info);
    
64. 
    
65.         }
    
66. 
    
67.         private Assembly(AssemblyKey key, string name, DirectoryInfo path)
    
68.         {
    
69.             Key = key;
    
70.             Name = name;
    
71.             _root = path;
    
72.         }
    
73. 
    
74.         public string Name { get; }
    
75. 
    
76.         public AssemblyKey Key { get; }
    
77. 
    
78.         private DirectoryInfo _root;
    
79. 
    
80.         /// <summary>
    
81.         /// 类型字典
    
82.         /// </summary>
    
83.         public Dictionary<int, Type> Types { get; }
    
84.             = new Dictionary<int, Type>();
    
85. 
    
86.         /// <summary>
    
87.         /// 按索引获取Com程序集中的类型信息
    
88.         /// </summary>
    
89.         /// <param name="id">索引</param>
    
90.         /// <param name="info">ITypeInfo接口</param>
    
91.         /// <returns>对应索引的类型信息</returns>
    
92.         public Type GetType(int id, ComTypes.ITypeInfo info)
    
93.         {
    
94.             if (!Types.ContainsKey(id))
    
95.             {
    
96.                 var name = $"{_root.FullName}/{id}.typ";
    
97.                 if (File.Exists(name))
    
98.                 {
    
99.                     Types.Add(id, new Type(this, name));
    
100.                 }
     
101.                 else
     
102.                 {
     
103.                     Type type = new Type(this, info);
     
104.                     type.Save(name);
     
105.                     Types.Add(id, type);
     
106.                 }
     
107.             }
     
108.             return Types[id];
     
109.         }
     
110. 
     
111.         public override string ToString()
     
112.         {
     
113.             return Name;
     
114.         }
     
115. 
     
116.     }
     
117. }
     

using System;<br /> using System.Collections.Generic;<br /> using System.IO;<br /> using ComTypes = System.Runtime.InteropServices.ComTypes;<br /> <br /> namespace NFox.Runtime.Com.Reflection<br /> {<br /> <br />     /// <summary><br />     /// Com程序集,只有类型集合,类型别名、枚举等未处理<br />     /// </summary><br />     public class Assembly<br />     {<br /> <br />         /// <summary><br />         /// 程序集字典<br />         /// </summary><br />         private static Dictionary<AssemblyKey, Assembly> _openedAssemblies<br />             = new Dictionary<AssemblyKey, Assembly>();<br /> <br />         public static DirectoryInfo Root<br />         {<br />             get<br />             {<br />                 var assem = System.Reflection.Assembly.GetExecutingAssembly();<br />                 var fi = new FileInfo(assem.Location);<br />                 return fi.Directory.CreateSubdirectory("ComAssemblies");<br />             }<br />         }<br /> <br />         /// <summary><br />         /// 获取IDispatch接口对象的类型信息<br />         /// </summary><br />         /// <param name="obj">IDispatch接口对象</param><br />         /// <returns>对象的类型信息</returns><br />         public static Type GetType(IDispatch obj)<br />         {<br /> <br />             AssemblyKey key;<br /> <br />             ComTypes.ITypeInfo info;<br />             obj.GetTypeInfo(0, 0, out info);<br />             ComTypes.ITypeLib lib;<br />             int id;<br />             info.GetContainingTypeLib(out lib, out id);<br />             <br />             IntPtr ip;<br />             lib.GetLibAttr(out ip);<br />             var la = Utils.GetObject<ComTypes.TYPELIBATTR>(ip);<br />             key = new AssemblyKey(la.guid, la.wMajorVerNum, la.wMinorVerNum);<br />             lib.ReleaseTLibAttr(ip);<br />             if (!_openedAssemblies.ContainsKey(key))<br />             {<br />                 string name, doc, helpfile;<br />                 int hc;<br />                 lib.GetDocumentation(-1, out name, out doc, out hc, out helpfile);<br />                 var dir = Root.CreateSubdirectory(name);<br />                 var clsdir = dir.CreateSubdirectory(key.ClsId.ToString());<br />                 var verdir = clsdir.CreateSubdirectory(key.Version);<br />                 _openedAssemblies.Add(key, new Assembly(key, name, verdir));<br />             }<br /> <br />             return _openedAssemblies[key].GetType(id, info);<br /> <br />         }<br /> <br />         private Assembly(AssemblyKey key, string name, DirectoryInfo path)<br />         {<br />             Key = key;<br />             Name = name;<br />             _root = path;<br />         }<br /> <br />         public string Name { get; }<br /> <br />         public AssemblyKey Key { get; }<br /> <br />         private DirectoryInfo _root;<br /> <br />         /// <summary><br />         /// 类型字典<br />         /// </summary><br />         public Dictionary<int, Type> Types { get; }<br />             = new Dictionary<int, Type>();<br /> <br />         /// <summary><br />         /// 按索引获取Com程序集中的类型信息<br />         /// </summary><br />         /// <param name="id">索引</param><br />         /// <param name="info">ITypeInfo接口</param><br />         /// <returns>对应索引的类型信息</returns><br />         public Type GetType(int id, ComTypes.ITypeInfo info)<br />         {<br />             if (!Types.ContainsKey(id))<br />             {<br />                 var name = $"{_root.FullName}/{id}.typ";<br />                 if (File.Exists(name))<br />                 {<br />                     Types.Add(id, new Type(this, name));<br />                 }<br />                 else<br />                 {<br />                     Type type = new Type(this, info);<br />                     type.Save(name);<br />                     Types.Add(id, type);<br />                 }<br />             }<br />             return Types[id];<br />         }<br /> <br />         public override string ToString()<br />         {<br />             return Name;<br />         }<br /> <br />     }<br /> }<br />

雪山飞狐_lzh

下列代码对AutoCad2016 64位和AutoCad2010 32位均测试通过

1.             var app = Comproxy.GetObject("AutoCad.Application");
   
2.             var doc = app.ActiveDocument;
   
3.             var util = doc.Utility;
   
4.             var mspace = doc.ModelSpace;
   
5. 
   
6.             dynamic obj, pt;
   
7.             util.GetEntity(out obj, out pt);
   
8. 
   
9.             double[] p1 = { 0, 0, 0 };
   
10.             double[] p2 = { 0, 10, 0 };
    
11.             double[] p3 = { 10, 0, 0 };
    
12. 
    
13.             var objs =
    
14.                 Comproxy.CreateArray(
    
15.                     mspace.AddLine(p1, p2),
    
16.                     mspace.AddLine(p2, p3),
    
17.                     mspace.AddLine(p3, p1));
    
18.             var r = mspace.AddRegion(objs);

            var app = Comproxy.GetObject("AutoCad.Application");<br />             var doc = app.ActiveDocument;<br />             var util = doc.Utility;<br />             var mspace = doc.ModelSpace;<br /> <br />             dynamic obj, pt;<br />             util.GetEntity(out obj, out pt);<br /> <br />             double[] p1 = { 0, 0, 0 };<br />             double[] p2 = { 0, 10, 0 };<br />             double[] p3 = { 10, 0, 0 };<br /> <br />             var objs =<br />                 Comproxy.CreateArray(<br />                     mspace.AddLine(p1, p2),<br />                     mspace.AddLine(p2, p3),<br />                     mspace.AddLine(p3, p1));<br />             var r = mspace.AddRegion(objs);

SurveyCAD

2016 执行到红色这句错误
public static Type GetType(IDispatch obj)
        {

            AssemblyKey key;

            ComTypes.ITypeInfo info;
            obj.GetTypeInfo(0, 0, out info);
            ComTypes.ITypeLib lib;
            int id;
            info.GetContainingTypeLib(out lib, out id);

            IntPtr ip;
            lib.GetLibAttr(out ip);
            var la = Utils.GetObject<ComTypes.TYPELIBATTR>(ip);
            key = new AssemblyKey(la.guid, la.wMajorVerNum, la.wMinorVerNum);
            lib.ReleaseTLibAttr(ip)

cheng5276

狐哥雄壮！狐哥威武！

SurveyCAD

下载你的程序，直接运行，出现如下错误
请问是什么原因？

雪山飞狐_lzh

你的cad版本多少？ 测试代码运行到哪一步？

雪山飞狐_lzh

你在窗体的代码里设个断点 看走到哪一步

SurveyCAD

今天重新运行一下，又成功了，有点莫名其妙！

wfch2000

想下载一个试试