再问如何遍历DWG文件中的图元

hanphy_cai

我有个项目，需要用C#打开DWG文件，然后在程序窗口中画出。通过搜索引擎我解决了打开DWG文件，也可以遍历，但问题是，我怎么得到每个图元的属性呢？比如，我得到一个Entry，Entry.Name是椭圆，那怎么得到它的a/b半径和中心点？

 

hanphy_cai

2.                 string progid = "ObjectDBX.AxDbDocument.16"; //注意，这是AutoCAD2004的写法，
3.                 // 若是AutoCAD2002和AutoCAD2000i则是”ObjectDBX.AxDbDocument.1“   
4.                 AcadApplication acadApp = connector.Application;
5.                 dbx.AxDbDocument dbxDoc;
6.                 dbxDoc = (dbx.AxDbDocument)acadApp.GetInterfaceObject(progid);
7.                 dbxDoc.Open(filename, null);
8.                 foreach (dbx.AcadEntity entity in dbxDoc.ModelSpace)
9.                 {
10.                     Console.WriteLine("-------------");
11.                     Console.WriteLine("EntityName: {0}", entity.EntityName);
12.                     Console.WriteLine("ObjectName: {0}", entity.ObjectName);
13.                     Console.WriteLine("EntityLineType: {0}", entity.Linetype);
14.                     Console.WriteLine("Entity.ObjectID: {0}", entity.ObjectID);
15.                     if (entity.EntityName == "AcDbEllipse")
16.                     {
17.                         dbx.AcadEllipseClass ellipse = entity.Get
18.                         dbx.AcadEllipseClass ellipse = (dbx.AcadEllipseClass)
19.                             dbxDoc.ModelSpace.Database.ObjectIdToObject(entity.ObjectID);
20.                         //dbx.AcadEllipseClass ellipse = (dbx.AcadEllipseClass)entity;//.ObjectName;
21.                         Console.WriteLine("", ellipse.MajorRadius);
22.                         Point center = (Point)ellipse.Center;
23.                         Point major = (Point)ellipse.MajorAxis;
24.                         Point minor = (Point)ellipse.MinorAxis;
25.                         
26.                         Console.WriteLine("    center{{0},{1}}", center.X, center.Y);
27.                         Console.WriteLine("     major{{0},{1}}", major.X, major.Y);
28.                         Console.WriteLine("     minor{{0},{1}}", minor.X, minor.Y);
29.                         xGraph.DrawEllipse(myPen,
30.                             center.X/100,
31.                             center.Y / 100,
32.                             major.X * 2 / 100,
33.                             minor.Y * 2 / 100);
34.                     }
35.                     if (entity.EntityName == "AcDbSpline")
36.                     {
37.                         //dbx.AcadSplineClass spline = (dbx.AcadSplineClass)entity;
38.                     }
39.                     if (entity.EntityName == "AcDbBlockReference")//判断实体是否是块参照
40.                     {
41.                         dbx.AcadBlockReference blkRef;
42.                         blkRef = (dbx.AcadBlockReference)entity;  //将是块参照的实体强制转换为块参照类型
43.                         object[] atts = (object[])blkRef.GetAttributes();//获取块参照中的属性（为对象类型）
44.                         for (int i = 0; i < atts.Length; i++) //遍历块参照属性
45.                         {
46.                             dbx.AcadAttributeReference att;
47.                             att = (dbx.AcadAttributeReference)atts[i];//将块参照属性（对象类型）强制转换为块参照属性类型
48.                             Console.WriteLine("Tag: {0}\tValue: {1}\n",
49.                             att.TagString,
50.                             att.TextString);//显示块参照属性的Tag和Text的值
51.                         }
52.                     }

复制代码

hanphy_cai

我强制转换Entry为各个图元类，可是得到异常

System.InvalidCastException：
无法将类型为“System.__ComObject”的 COM 对象强制转换为类类型“AXDBLib.AcadEllipseClass”。进入 CLR 且不支持 IProvideClassInfo 或没有注册任何互操作程序集的 COM 组件都将包装在 __ComObject 类型中。这种类型的实例不能强制转换为任何其他类；不过，只要基础 COM 组件支持对接口 IID 的 QueryInterface 调用，就能将这些实例强制转换为接口。

搜索网络，这个问题以前人家问过：http://www.mjtd.com/bbs/Archive_view.asp?boardID=4&ID=27173

回帖说：

- AcadEntity不用转换为相应的实体啊，如果为不同的实体就有相应实体的属性.

- 没有错，是没有必要

Dim ss As AcadSelectionSet
    ThisDrawing.SelectionSets("TT").Delete
    Set ss = ThisDrawing.SelectionSets.Add("TT")
    ss.Select acSelectionSetAll
    Dim poly As AcadPolyline
    For Each elem In ss              \'对每一条折线提取顶点坐标
                If (elem.ObjectName = "AcDb3dPolyline") Then
                       pnts = elem.Coordinates
                       MsgBox pnts(0)
                End If

     Next elem

---------------------------

那问题是到底怎么样得到各种图元的属性啊？

下面是我的代码示例，请前辈们帮帮忙：

hanphy_cai

2.     foreach (dbx.AcadEntity entity in dbxDoc.ModelSpace)
3.     {
4.         Console.WriteLine("-------------");
5.         Console.WriteLine("EntityName: {0}", entity.EntityName);
6.         Console.WriteLine("ObjectName: {0}", entity.ObjectName);
7.         Console.WriteLine("EntityLineType: {0}", entity.Linetype);
8.         Console.WriteLine("Entity.ObjectID: {0}", entity.ObjectID);
9.         if (entity.EntityName == "AcDbEllipse")
10.         {
11.             dbx.AcadEllipseClass ellipse = (dbx.AcadEllipseClass) entity;  //异常抛出！！！
13.             //得到椭圆属性（也不一定对）
14.             Point center = (Point)ellipse.Center;
15.             Point major = (Point)ellipse.MajorAxis;
16.             Point minor = (Point)ellipse.MinorAxis;
17.                         
18.             Console.WriteLine("    center{{0},{1}}", center.X, center.Y);
19.             Console.WriteLine("     major{{0},{1}}", major.X, major.Y);
20.             Console.WriteLine("     minor{{0},{1}}", minor.X, minor.Y);
22.             //画椭圆
23.                         xGraph.DrawEllipse(myPen,
24.                             center.X,
25.                             center.Y,
26.                             major.X * 2,
27.                             minor.Y * 2);
28.        }

复制代码