已知DxfName，获取类型和本地名称？

河伯

(1)问题-------------------------
已知"LINE"，得到GetType(Line)
已知"LWPOLYLINE"，得到GetType(Polyline)

(2)问题-------------------------
已知"LINE"，得到"直线"
已知"LWPOLYLINE"，得到"多段线"

雪山飞狐_lzh

反向的操作很简单：
RXClass.GetClass(typeof(Line)).DxfName
但必须是高版本
DxfName => type没有找到直接的方法，如果一定要实现
可以先反射DatabaseServices下所有Entity的子类，自己建一个字典

河伯

需要DxfName => type，如能反射所有子类，问题就好解决了。
具体从哪入手？

雪山飞狐_lzh

DxfName有重复项，：）
就没有直接用字典了，比如"Insert"
        [CommandMethod("t2")]
        public static void Test2()
        {

            var doc = Application.DocumentManager.MdiActiveDocument;
            var db = doc.Database;
            var ed = doc.Editor;

            Type t = typeof(Entity);
            var dict =
                Assembly.GetAssembly(t)
                .GetTypes()
                .Where(type => type.IsSubclassOf(t))
                .Where(type => RXClass.GetClass(type) != null)
                .GroupBy(type => RXClass.GetClass(type).DxfName);

            foreach (var s in dict)
                ed.WriteMessage("\n{0}:{1}", s.Key,s.ElementAt(0).Name);
        }

河伯

很好，反射成功。结果说明，DxfName和Entity Type不存在固定的对应关系。要让lisp和.NET有一致的类型限定，还得找别的方法。

2.     <CommandMethod("TTT")> Public Sub TTT()
   
3.         Dim doc = Application.DocumentManager.MdiActiveDocument
   
4.         Dim ed = doc.Editor
   
5.         Dim et As Type = GetType(Entity)
   
6.         Dim typs() As Type = Assembly.GetAssembly(et).GetTypes
   
7. 
   
8.         Dim var = From typ As Type In typs Where typ.IsSubclassOf(et)
   
9.         Dim dict As New Dictionary(Of String, Type)
   
10.         For Each typ As Type In var
    
11.             Dim cls As RXClass = RXClass.GetClass(typ)
    
12.             If cls IsNot Nothing Then
    
13.                 Dim dxf As String = cls.DxfName
    
14.                 If dxf <> Nothing Then
    
15.                     If Not dict.ContainsKey(dxf) Then
    
16.                         dict.Add(dxf, typ)
    
17.                     Else
    
18.                         ed.WriteMessage(vbLf & "Same DXF: {0}({1})", dxf, typ.Name)
    
19.                     End If
    
20.                 Else
    
21.                     ed.WriteMessage(vbLf & "DXF Nothing: {0}", typ.Name)
    
22.                 End If
    
23.             Else
    
24.                 ed.WriteMessage(vbLf & "RXClass Nothing: {0}", typ.Name)
    
25.             End If
    
26.         Next
    
27. 
    
28.         For Each s In dict
    
29.             ed.WriteMessage(vbLf & "{0}:{1}", s.Key, s.Value.Name)
    
30.         Next
    
31.     End Sub

    <CommandMethod("TTT")> Public Sub TTT()<br />         Dim doc = Application.DocumentManager.MdiActiveDocument<br />         Dim ed = doc.Editor<br />         Dim et As Type = GetType(Entity)<br />         Dim typs() As Type = Assembly.GetAssembly(et).GetTypes<br /> <br />         Dim var = From typ As Type In typs Where typ.IsSubclassOf(et)<br />         Dim dict As New Dictionary(Of String, Type)<br />         For Each typ As Type In var<br />             Dim cls As RXClass = RXClass.GetClass(typ)<br />             If cls IsNot Nothing Then<br />                 Dim dxf As String = cls.DxfName<br />                 If dxf <> Nothing Then<br />                     If Not dict.ContainsKey(dxf) Then<br />                         dict.Add(dxf, typ)<br />                     Else<br />                         ed.WriteMessage(vbLf & "Same DXF: {0}({1})", dxf, typ.Name)<br />                     End If<br />                 Else<br />                     ed.WriteMessage(vbLf & "DXF Nothing: {0}", typ.Name)<br />                 End If<br />             Else<br />                 ed.WriteMessage(vbLf & "RXClass Nothing: {0}", typ.Name)<br />             End If<br />         Next<br /> <br />         For Each s In dict<br />             ed.WriteMessage(vbLf & "{0}:{1}", s.Key, s.Value.Name)<br />         Next<br />     End Sub

雪山飞狐_lzh

如果是Lisp数据的话，可以考虑直接用
SystemObjects.ClassDictionary获取，这个字典是个string,RXClass的键值对
Key对应的是Axr的类名，如"AcDbLine"

河伯

SystemObjects.ClassDictionary可以代替反射，但是解决不了最初的问题。