[资料] 创建和编辑AutoCAD实体（四） 编辑二维命名对象 （6）

萧闫子

8、Explode Objects分解对象

Exploding an object converts the single object to its constituent parts. You use the Explode function to explode an object, and it requires a DBObjectCollection object in which is used to return the resulting objects. For example, exploding a polyline can result in the creation of an object collection that contains multiple lines and arcs.

分解对象就是将单独的对象转变为它的组件。我们使用Explode函数分解对象，该函数需要一个DBObjectCollection对象作为参数来返回分解后的对象。例如，分解多段线会产生一个包含多条直线和圆弧的对象集合。

If a block is exploded, the object collection returned holds the graphical objects in which define the block. After an object is exploded, the original object is left unaltered. If you want the returned objects to replace the original object, the original object must be erased and then the returned objects must be added to a block table record.

如果分解的是图块，则返回的对象集合包含定义图块的各个图形对象。完成分解后，原对象保留不变。如果要用返回的对象集合代替原对象，需删除原对象然后将返回的对象集合添加到块表记录。

For more information about exploding objects, see “Disassociate Compound Objects (Explode)” in theAutoCAD User's Guide.

关于分解对象的更多内容，见AutoCAD用户指南中的“解除关联合成对象（分解）”。

Explode a polyline 分解多段线

This example creates a lightweight polyline object and then explodes the polyline into its simplest objects. After the polyline is exploded, it is disposed of and the returned objects are added to Model space.

本例创建一个轻量级多段线对象，然后将其分解为最简单的对象。多段线分解后将其从内存清除，将分解返回的对象添加到模型空间。

VB.NET

Imports Autodesk.AutoCAD.Runtime

Imports Autodesk.AutoCAD.ApplicationServices

Imports Autodesk.AutoCAD.DatabaseServices

Imports Autodesk.AutoCAD.Geometry

1. <div align="left"><CommandMethod("ExplodeObject")> _</div><div align="left">Public Sub ExplodeObject()</div><div align="left">  '' Get the current document and database</div><div align="left">  Dim acDoc As Document = Application.DocumentManager.MdiActiveDocument</div><div align="left">  Dim acCurDb As Database = acDoc.Database</div>
   
2. <div align="left">  '' Start a transaction</div><div align="left">  Using acTrans As Transaction = acCurDb.TransactionManager.StartTransaction()</div>
   
3. <div align="left">      '' Open the Block table for read</div><div align="left">      Dim acBlkTbl As BlockTable</div><div align="left">      acBlkTbl = acTrans.GetObject(acCurDb.BlockTableId, _</div><div align="left">                                   OpenMode.ForRead)</div>
   
4. <div align="left">      '' Open the Block table record Model space for write</div><div align="left">      Dim acBlkTblRec As BlockTableRecord</div><div align="left">      acBlkTblRec = acTrans.GetObject(acBlkTbl(BlockTableRecord.ModelSpace), _</div><div align="left">                                      OpenMode.ForWrite)</div>
   
5. <div align="left">      '' Create a lightweight polyline</div><div align="left">      Using acPoly As Polyline = New Polyline()</div><div align="left">          acPoly.AddVertexAt(0, New Point2d(1, 1), 0, 0, 0)</div><div align="left">          acPoly.AddVertexAt(1, New Point2d(1, 2), 0, 0, 0)</div><div align="left">          acPoly.AddVertexAt(2, New Point2d(2, 2), 0, 0, 0)</div><div align="left">          acPoly.AddVertexAt(3, New Point2d(3, 2), 0, 0, 0)</div><div align="left">          acPoly.AddVertexAt(4, New Point2d(4, 4), 0, 0, 0)</div><div align="left">          acPoly.AddVertexAt(5, New Point2d(4, 1), 0, 0, 0)</div>
   
6. <div align="left">          '' Sets the bulge at index 3</div><div align="left">          acPoly.SetBulgeAt(3, -0.5)</div>
   
7. <div align="left">          '' Explodes the polyline</div><div align="left">          Dim acDBObjColl As DBObjectCollection = New DBObjectCollection()</div><div align="left">          acPoly.Explode(acDBObjColl)</div>
   
8. <div align="left">          For Each acEnt As Entity In acDBObjColl</div><div align="left">              '' Add the new object to the block table record and the transaction</div><div align="left">              acBlkTblRec.AppendEntity(acEnt)</div><div align="left">              acTrans.AddNewlyCreatedDBObject(acEnt, True)</div><div align="left">          Next</div>
   
9. <div align="left">          '' Dispose of the in memory polyline</div><div align="left">      End Using</div>
   
10. <div align="left">      '' Save the new objects to the database</div><div align="left">      acTrans.Commit()</div><div align="left">  End Using</div><div align="left">End Sub</div><div align="left"><strong>C#</strong></div><div align="left">using Autodesk.AutoCAD.Runtime;</div><div align="left">using Autodesk.AutoCAD.ApplicationServices;</div><div align="left">using Autodesk.AutoCAD.DatabaseServices;</div><div align="left">using Autodesk.AutoCAD.Geometry;</div>
    
11. <div align="left">[CommandMethod("ExplodeObject")]</div><div align="left">public static void ExplodeObject()</div><div align="left">{</div><div align="left">  // Get the current document and database</div><div align="left">  Document acDoc = Application.DocumentManager.MdiActiveDocument;</div><div align="left">  Database acCurDb = acDoc.Database;</div>
    
12. <div align="left">  // Start a transaction</div><div align="left">  using (Transaction acTrans = acCurDb.TransactionManager.StartTransaction())</div><div align="left">  {</div><div align="left">      // Open the Block table for read</div><div align="left">      BlockTable acBlkTbl;</div><div align="left">      acBlkTbl = acTrans.GetObject(acCurDb.BlockTableId,</div><div align="left">                                   OpenMode.ForRead) as BlockTable;</div>
    
13. <div align="left">      // Open the Block table record Model space for write</div><div align="left">      BlockTableRecord acBlkTblRec;</div><div align="left">      acBlkTblRec = acTrans.GetObject(acBlkTbl[BlockTableRecord.ModelSpace],</div><div align="left">                                      OpenMode.ForWrite) as BlockTableRecord;</div>
    
14. <div align="left">      // Create a lightweight polyline</div><div align="left">      using (Polyline acPoly = new Polyline())</div><div align="left">      {</div><div align="left">          acPoly.AddVertexAt(0, new Point2d(1, 1), 0, 0, 0);</div><div align="left">          acPoly.AddVertexAt(1, new Point2d(1, 2), 0, 0, 0);</div><div align="left">          acPoly.AddVertexAt(2, new Point2d(2, 2), 0, 0, 0);</div><div align="left">          acPoly.AddVertexAt(3, new Point2d(3, 2), 0, 0, 0);</div><div align="left">          acPoly.AddVertexAt(4, new Point2d(4, 4), 0, 0, 0);</div><div align="left">          acPoly.AddVertexAt(5, new Point2d(4, 1), 0, 0, 0);</div>
    
15. <div align="left">          // Sets the bulge at index 3 顶点3、4之间的线段凸起</div><div align="left">          acPoly.SetBulgeAt(3, -0.5);</div>
    
16. <div align="left">          // Explodes the polyline分解多段线</div><div align="left">          DBObjectCollection acDBObjColl = new DBObjectCollection();</div><div align="left">          acPoly.Explode(acDBObjColl);</div>
    
17. <div align="left">          foreach (Entity acEnt in acDBObjColl)</div><div align="left">          {</div><div align="left">              // Add the new object to the block table record and the transaction</div><div align="left">              acBlkTblRec.AppendEntity(acEnt);</div><div align="left">              acTrans.AddNewlyCreatedDBObject(acEnt, true);</div><div align="left">          }</div>
    
18. <div align="left">          // Dispose of the in memory polyline清除内存中的多段线</div><div align="left">      }</div>
    
19. <div align="left">      // Save the new objects to the database提交修改</div><div align="left">      acTrans.Commit();</div><div align="left">  }</div><div align="left">}</div><div align="left"><strong>VBA/ActiveX Code Reference</strong></div><div align="left">Sub ExplodeObject()</div><div align="left">    Dim plineObj As AcadLWPolyline</div><div align="left">    Dim points(0 To 11) As Double</div>
    
20. <div align="left">    ' Define the 2D polyline points</div><div align="left">    points(0) = 1: points(1) = 1</div><div align="left">    points(2) = 1: points(3) = 2</div><div align="left">    points(4) = 2: points(5) = 2</div><div align="left">    points(6) = 3: points(7) = 2</div><div align="left">    points(8) = 4: points(9) = 4</div><div align="left">    points(10) = 4: points(11) = 1</div>
    
21. <div align="left">    ' Create a light weight Polyline object</div><div align="left">    Set plineObj = ThisDrawing.ModelSpace. _</div><div align="left">                                 AddLightWeightPolyline(points)</div>
    
22. <div align="left">    ' Set the bulge on one segment to vary the</div><div align="left">    ' type of objects in the polyline</div><div align="left">    plineObj.SetBulge 3, -0.5</div>
    
23. <div align="left">    ' Explode the polyline</div><div align="left">    Dim explodedObjects As Variant</div><div align="left">    explodedObjects = plineObj.Explode</div>
    
24. <div align="left">    ' Erase the polyline</div><div align="left">    plineObj.Erase</div><div align="left">End Sub</div>

复制代码