オブジェクトを分解すると、単一のオブジェクトが構成要素に変換されます。オブジェクトを分解するには Explode 関数を使用します。この関数には、結果のオブジェクトを返すために使用される DBObjectCollection オブジェクトを渡す必要があります。たとえば、ポリラインを分解すると、複数の線分と円弧が含まれているオブジェクトのコレクションが作成されます。
ブロックを分解すると、ブロックを定義するグラフィカル オブジェクトを保持するオブジェクト コレクションが返されます。オブジェクトを分解した後、元のオブジェクトは変更されないまま残ります。返されるオブジェクトで元のオブジェクトを置き換える場合は、元のオブジェクトを削除し、返されるオブジェクトをブロック テーブル レコードに追加する必要があります。
次の例では、ライトウェイト ポリライン オブジェクトを作成した後、ポリラインを最も単純なオブジェクトに分解します。ポリラインを分解した後、元のポリラインを破棄し、返されるオブジェクトをモデル空間に追加します。
Imports Autodesk.AutoCAD.Runtime Imports Autodesk.AutoCAD.ApplicationServices Imports Autodesk.AutoCAD.DatabaseServices Imports Autodesk.AutoCAD.Geometry <CommandMethod("ExplodeObject")> _ Public Sub ExplodeObject() '' Get the current document and database Dim acDoc As Document = Application.DocumentManager.MdiActiveDocument Dim acCurDb As Database = acDoc.Database '' Start a transaction Using acTrans As Transaction = acCurDb.TransactionManager.StartTransaction() '' Open the Block table for read Dim acBlkTbl As BlockTable acBlkTbl = acTrans.GetObject(acCurDb.BlockTableId, _ OpenMode.ForRead) '' Open the Block table record Model space for write Dim acBlkTblRec As BlockTableRecord acBlkTblRec = acTrans.GetObject(acBlkTbl(BlockTableRecord.ModelSpace), _ OpenMode.ForWrite) '' Create a lightweight polyline Using acPoly As Polyline = New Polyline() acPoly.AddVertexAt(0, New Point2d(1, 1), 0, 0, 0) acPoly.AddVertexAt(1, New Point2d(1, 2), 0, 0, 0) acPoly.AddVertexAt(2, New Point2d(2, 2), 0, 0, 0) acPoly.AddVertexAt(3, New Point2d(3, 2), 0, 0, 0) acPoly.AddVertexAt(4, New Point2d(4, 4), 0, 0, 0) acPoly.AddVertexAt(5, New Point2d(4, 1), 0, 0, 0) '' Sets the bulge at index 3 acPoly.SetBulgeAt(3, -0.5) '' Explodes the polyline Dim acDBObjColl As DBObjectCollection = New DBObjectCollection() acPoly.Explode(acDBObjColl) For Each acEnt As Entity In acDBObjColl '' Add the new object to the block table record and the transaction acBlkTblRec.AppendEntity(acEnt) acTrans.AddNewlyCreatedDBObject(acEnt, True) Next '' Dispose of the in memory polyline End Using '' Save the new objects to the database acTrans.Commit() End Using End Sub
using Autodesk.AutoCAD.Runtime; using Autodesk.AutoCAD.ApplicationServices; using Autodesk.AutoCAD.DatabaseServices; using Autodesk.AutoCAD.Geometry; [CommandMethod("ExplodeObject")] public static void ExplodeObject() { // Get the current document and database Document acDoc = Application.DocumentManager.MdiActiveDocument; Database acCurDb = acDoc.Database; // Start a transaction using (Transaction acTrans = acCurDb.TransactionManager.StartTransaction()) { // Open the Block table for read BlockTable acBlkTbl; acBlkTbl = acTrans.GetObject(acCurDb.BlockTableId, OpenMode.ForRead) as BlockTable; // Open the Block table record Model space for write BlockTableRecord acBlkTblRec; acBlkTblRec = acTrans.GetObject(acBlkTbl[BlockTableRecord.ModelSpace], OpenMode.ForWrite) as BlockTableRecord; // Create a lightweight polyline using (Polyline acPoly = new Polyline()) { acPoly.AddVertexAt(0, new Point2d(1, 1), 0, 0, 0); acPoly.AddVertexAt(1, new Point2d(1, 2), 0, 0, 0); acPoly.AddVertexAt(2, new Point2d(2, 2), 0, 0, 0); acPoly.AddVertexAt(3, new Point2d(3, 2), 0, 0, 0); acPoly.AddVertexAt(4, new Point2d(4, 4), 0, 0, 0); acPoly.AddVertexAt(5, new Point2d(4, 1), 0, 0, 0); // Sets the bulge at index 3 acPoly.SetBulgeAt(3, -0.5); // Explodes the polyline DBObjectCollection acDBObjColl = new DBObjectCollection(); acPoly.Explode(acDBObjColl); foreach (Entity acEnt in acDBObjColl) { // Add the new object to the block table record and the transaction acBlkTblRec.AppendEntity(acEnt); acTrans.AddNewlyCreatedDBObject(acEnt, true); } // Dispose of the in memory polyline } // Save the new objects to the database acTrans.Commit(); } }
Sub ExplodeObject() Dim plineObj As AcadLWPolyline Dim points(0 To 11) As Double ' Define the 2D polyline points points(0) = 1: points(1) = 1 points(2) = 1: points(3) = 2 points(4) = 2: points(5) = 2 points(6) = 3: points(7) = 2 points(8) = 4: points(9) = 4 points(10) = 4: points(11) = 1 ' Create a light weight Polyline object Set plineObj = ThisDrawing.ModelSpace. _ AddLightWeightPolyline(points) ' Set the bulge on one segment to vary the ' type of objects in the polyline plineObj.SetBulge 3, -0.5 ' Explode the polyline Dim explodedObjects As Variant explodedObjects = plineObj.Explode ' Erase the polyline plineObj.Erase End Sub