如何通过c#炸开代理对象ACAD_PROXY_ENTITY

jun353835273

网上下载的代码，可惜不能炸开ACAD_PROXY_ENTITY对象。

1. using System;
   
2. using System.Collections.Generic;
   
3. using System.Linq;
   
4. using System.Text;
   
5. using Autodesk.AutoCAD.Runtime;
   
6. using Autodesk.AutoCAD.EditorInput;
   
7. using Autodesk.AutoCAD.DatabaseServices;
   
8. using Autodesk.AutoCAD.ApplicationServices;
   
9. 
   
10. namespace ExplodeProxyMgd
    
11. {
    
12.     public class ExplodeProxy
    
13.     {
    
14.         
    
15.         /// <summary>
    
16.         /// Explode proxy entity to blockreference
    
17.         /// Return string name of blockreference in drawing database
    
18.         /// </summary>
    
19.         /// <param name="rbArgs">Lisp arguments: entity objectId, string BlockPrefix</param>
    
20.         /// <returns>string BlockReference name</returns>
    
21.         [LispFunction("proxy-explode-to-block")]
    
22.         public static TypedValue ProxyExplodeToBlock(ResultBuffer rbArgs)
    
23.         {
    
24.             Document doc = Application.DocumentManager.MdiActiveDocument;
    
25.             Database db = doc.Database;
    
26.             Editor ed = doc.Editor;
    
27. 
    
28.             TypedValue res = new TypedValue((int)LispDataType.Text,"");
    
29. 
    
30.             if (rbArgs.AsArray().Length == 2)
    
31.             {
    
32.                 TypedValue entity = rbArgs.AsArray()[0];
    
33.                 TypedValue blkPrefix = rbArgs.AsArray()[1];
    
34.                
    
35.                 if ((entity.TypeCode == (int)LispDataType.ObjectId) && (blkPrefix.TypeCode == (int)LispDataType.Text))
    
36.                 {
    
37.                     using (Transaction tr = doc.TransactionManager.StartTransaction())
    
38.                     {
    
39.                         try
    
40.                         {
    
41.                             ObjectId id = (ObjectId)entity.Value;
    
42.                             DBObjectCollection objs = new DBObjectCollection();
    
43.                             BlockTable bt = (BlockTable)tr.GetObject(db.BlockTableId, OpenMode.ForRead);
    
44. 
    
45.                             Entity entx = (Entity)tr.GetObject(id, OpenMode.ForWrite);
    
46.                             entx.Explode(objs);
    
47. 
    
48.                             string blkName = blkPrefix.Value.ToString() + entx.Handle.ToString();
    
49. 
    
50.                             if (bt.Has(blkName) == false)
    
51.                             {
    
52.                                 BlockTableRecord btr = new BlockTableRecord();
    
53.                                 btr.Name = blkName;
    
54. 
    
55.                                 bt.UpgradeOpen();
    
56.                                 ObjectId btrId = bt.Add(btr);
    
57.                                 tr.AddNewlyCreatedDBObject(btr, true);
    
58. 
    
59.                                 foreach (DBObject obj in objs)
    
60.                                 {
    
61.                                     Entity ent = (Entity)obj;
    
62.                                     btr.AppendEntity(ent);
    
63.                                     tr.AddNewlyCreatedDBObject(ent, true);
    
64.                                 }
    
65.                             }
    
66.                             res = new TypedValue((int)LispDataType.Text, blkName);
    
67. 
    
68.                             tr.Commit();
    
69.                         }
    
70.                         catch (Autodesk.AutoCAD.Runtime.Exception ex)
    
71.                         {
    
72.                             tr.Abort();
    
73.                             ed.WriteMessage(ex.Message);
    
74.                         }
    
75.                     }
    
76.                 }
    
77.             }
    
78.             return res;
    
79.         }
    
80. 
    
81.         /// <summary>
    
82.         /// Explode proxy entity in place
    
83.         /// </summary>
    
84.         /// <param name="rbArgs">entity name</param>
    
85.         [LispFunction("proxy-explode-in-place")]
    
86.         public static void ProxyExplodeInPlace(ResultBuffer rbArgs)
    
87.         {
    
88.             Document doc = Application.DocumentManager.MdiActiveDocument;
    
89.             Database db = doc.Database;
    
90.             Editor ed = doc.Editor;
    
91. 
    
92.             if (rbArgs.AsArray().Length == 1)
    
93.             {
    
94.                 TypedValue entity = rbArgs.AsArray().First();
    
95. 
    
96.                 if (entity.TypeCode == (int)LispDataType.ObjectId)
    
97.                 {
    
98.                     using (Transaction tr = doc.TransactionManager.StartTransaction())
    
99.                     {
    
100.                         try
     
101.                         {
     
102.                             ObjectId id = (ObjectId)entity.Value;
     
103.                             DBObjectCollection objs = new DBObjectCollection();
     
104.                             BlockTable bt = (BlockTable)tr.GetObject(db.BlockTableId, OpenMode.ForRead);
     
105. 
     
106.                             Entity entx = (Entity)tr.GetObject(id, OpenMode.ForWrite);
     
107.                             entx.Explode(objs);
     
108. 
     
109.                             entx.Erase();
     
110. 
     
111.                             BlockTableRecord btr = (BlockTableRecord)tr.GetObject(db.CurrentSpaceId, OpenMode.ForWrite);
     
112. 
     
113.                             foreach (DBObject obj in objs)
     
114.                             {
     
115.                                 Entity ent = (Entity)obj;
     
116.                                 btr.AppendEntity(ent);
     
117.                                 tr.AddNewlyCreatedDBObject(ent, true);
     
118.                             }
     
119. 
     
120.                             tr.Commit();
     
121.                         }
     
122.                         catch (Autodesk.AutoCAD.Runtime.Exception ex)
     
123.                         {
     
124.                             tr.Abort();
     
125.                             ed.WriteMessage(ex.Message);
     
126.                         }                        
     
127.                     }
     
128.                 }
     
129.             }
     
130.         }
     
131.     }
     
132. }
     

using System;<br /> using System.Collections.Generic;<br /> using System.Linq;<br /> using System.Text;<br /> using Autodesk.<a href="http://bbs.mjtd.com/forum-41-1.html" target="_blank" class="relatedlink">AutoCAD</a>.Runtime;<br /> using Autodesk.AutoCAD.EditorInput;<br /> using Autodesk.AutoCAD.DatabaseServices;<br /> using Autodesk.AutoCAD.ApplicationServices;<br /> <br /> namespace ExplodeProxyMgd<br /> {<br />     public class ExplodeProxy<br />     {<br />         <br />         /// <summary><br />         /// Explode proxy entity to blockreference<br />         /// Return string name of blockreference in drawing database<br />         /// </summary><br />         /// <param name="rbArgs">Lisp arguments: entity objectId, string BlockPrefix</param><br />         /// <returns>string BlockReference name</returns><br />         [LispFunction("proxy-explode-to-block")]<br />         public static TypedValue ProxyExplodeToBlock(ResultBuffer rbArgs)<br />         {<br />             Document doc = Application.DocumentManager.MdiActiveDocument;<br />             Database db = doc.Database;<br />             Editor ed = doc.Editor;<br /> <br />             TypedValue res = new TypedValue((int)LispDataType.Text,"");<br /> <br />             if (rbArgs.AsArray().Length == 2)<br />             {<br />                 TypedValue entity = rbArgs.AsArray()[0];<br />                 TypedValue blkPrefix = rbArgs.AsArray()[1];<br />                 <br />                 if ((entity.TypeCode == (int)LispDataType.ObjectId) && (blkPrefix.TypeCode == (int)LispDataType.Text))<br />                 {<br />                     using (Transaction tr = doc.TransactionManager.StartTransaction())<br />                     {<br />                         try<br />                         {<br />                             ObjectId id = (ObjectId)entity.Value;<br />                             DBObjectCollection objs = new DBObjectCollection();<br />                             BlockTable bt = (BlockTable)tr.GetObject(db.BlockTableId, OpenMode.ForRead);<br /> <br />                             Entity entx = (Entity)tr.GetObject(id, OpenMode.ForWrite);<br />                             entx.Explode(objs);<br /> <br />                             string blkName = blkPrefix.Value.ToString() + entx.Handle.ToString();<br /> <br />                             if (bt.Has(blkName) == false)<br />                             {<br />                                 BlockTableRecord btr = new BlockTableRecord();<br />                                 btr.Name = blkName;<br /> <br />                                 bt.UpgradeOpen();<br />                                 ObjectId btrId = bt.Add(btr);<br />                                 tr.AddNewlyCreatedDBObject(btr, true);<br /> <br />                                 foreach (DBObject obj in objs)<br />                                 {<br />                                     Entity ent = (Entity)obj;<br />                                     btr.AppendEntity(ent);<br />                                     tr.AddNewlyCreatedDBObject(ent, true);<br />                                 }<br />                             }<br />                             res = new TypedValue((int)LispDataType.Text, blkName);<br /> <br />                             tr.Commit();<br />                         }<br />                         catch (Autodesk.AutoCAD.Runtime.Exception ex)<br />                         {<br />                             tr.Abort();<br />                             ed.WriteMessage(ex.Message);<br />                         }<br />                     }<br />                 }<br />             }<br />             return res;<br />         }<br /> <br />         /// <summary><br />         /// Explode proxy entity in place<br />         /// </summary><br />         /// <param name="rbArgs">entity name</param><br />         [LispFunction("proxy-explode-in-place")]<br />         public static void ProxyExplodeInPlace(ResultBuffer rbArgs)<br />         {<br />             Document doc = Application.DocumentManager.MdiActiveDocument;<br />             Database db = doc.Database;<br />             Editor ed = doc.Editor;<br /> <br />             if (rbArgs.AsArray().Length == 1)<br />             {<br />                 TypedValue entity = rbArgs.AsArray().First();<br /> <br />                 if (entity.TypeCode == (int)LispDataType.ObjectId)<br />                 {<br />                     using (Transaction tr = doc.TransactionManager.StartTransaction())<br />                     {<br />                         try<br />                         {<br />                             ObjectId id = (ObjectId)entity.Value;<br />                             DBObjectCollection objs = new DBObjectCollection();<br />                             BlockTable bt = (BlockTable)tr.GetObject(db.BlockTableId, OpenMode.ForRead);<br /> <br />                             Entity entx = (Entity)tr.GetObject(id, OpenMode.ForWrite);<br />                             entx.Explode(objs);<br /> <br />                             entx.Erase();<br /> <br />                             BlockTableRecord btr = (BlockTableRecord)tr.GetObject(db.CurrentSpaceId, OpenMode.ForWrite);<br /> <br />                             foreach (DBObject obj in objs)<br />                             {<br />                                 Entity ent = (Entity)obj;<br />                                 btr.AppendEntity(ent);<br />                                 tr.AddNewlyCreatedDBObject(ent, true);<br />                             }<br /> <br />                             tr.Commit();<br />                         }<br />                         catch (Autodesk.AutoCAD.Runtime.Exception ex)<br />                         {<br />                             tr.Abort();<br />                             ed.WriteMessage(ex.Message);<br />                         }                        <br />                     }<br />                 }<br />             }<br />         }<br />     }<br /> }<br />

satan421

ExplodeProxy提供了供lisp调用的函数，只是只有arx文件，没有源码。