03-05 创建和编辑AutoCAD实体(五) 使用图层、颜色和线型(1)
1.9、Erase Layers删除图层You can erase a layer at any time during a drawing session. You cannot erase the current layer,layer 0,an xref-dependent layer,or a layer that contains objects. 可以在绘图过程中随时删除图层。不能删除当前图层、图层0、依赖外部参考的图层,以及包含有对象的图层。 To erase a layer,use the Erase method. It is recommended to use the Purge function to verify that the layer can be purged,along with verifying that it is not layer 0,Defpoints,or the current layer. 删除图层使用Erase方法。推荐使用Purge函数检查要删除的图层是否可以被清除,该函数还同时检查要删除的图层不是0图层、Defpoints图层或当前图层。 Note: Layers referenced by block definitions,along with the special layer named DEFPOINTS,cannot be deleted even if they do not contain visible objects. 注意:即使不含可见对象,也不能删除块定义所引用的图层、名为Defpoints的特殊图层。 VB.NET Imports Autodesk.AutoCAD.Runtime Imports Autodesk.AutoCAD.ApplicationServices Imports Autodesk.AutoCAD.DatabaseServices <CommandMethod("EraseLayer")> _ Public Sub EraseLayer() '' 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 Layer table for read Dim acLyrTbl As LayerTable acLyrTbl = acTrans.GetObject(acCurDb.LayerTableId,_ OpenMode.ForRead) Dim sLayerName As String = "ABC" If acLyrTbl.Has(sLayerName) = True Then '' Check to see if it is safe to erase layer Dim acObjIdColl As ObjectIdCollection = New ObjectIdCollection() acObjIdColl.Add(acLyrTbl(sLayerName)) acCurDb.Purge(acObjIdColl) If acObjIdColl.Count > 0 Then Dim acLyrTblRec As LayerTableRecord acLyrTblRec = acTrans.GetObject(acObjIdColl(0),OpenMode.ForWrite) Try '' Erase the unreferenced layer acLyrTblRec.Erase(True) '' Save the changes and dispose of the transaction acTrans.Commit() Catch Ex As Autodesk.AutoCAD.Runtime.Exception '' Layer could not be deleted Application.ShowAlertDialog("Error:n" + Ex.Message) End Try End If End If End Using End Sub C# using Autodesk.AutoCAD.Runtime; using Autodesk.AutoCAD.ApplicationServices; using Autodesk.AutoCAD.DatabaseServices; [CommandMethod("EraseLayer")] public static void EraseLayer() { // 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 Layer table for read以读打开图层表 LayerTable acLyrTbl; acLyrTbl = acTrans.GetObject(acCurDb.LayerTableId, OpenMode.ForRead) as LayerTable; string sLayerName = "ABC"; if (acLyrTbl.Has(sLayerName) == true) { // Check to see if it is safe to erase layer检查删除图层是否安全 ObjectIdCollection acObjIdColl = new ObjectIdCollection(); acObjIdColl.Add(acLyrTbl[sLayerName]); acCurDb.Purge(acObjIdColl); if (acObjIdColl.Count > 0) { LayerTableRecord acLyrTblRec; acLyrTblRec = acTrans.GetObject(acObjIdColl[0], OpenMode.ForWrite) as LayerTableRecord; try { // Erase the unreferenced layer删除未引用图层 acLyrTblRec.Erase(true); // Save the changes and dispose of the transaction保存修改,关闭事务 acTrans.Commit(); } catch (Autodesk.AutoCAD.Runtime.Exception Ex) { // Layer could not be deleted不能删除 Application.ShowAlertDialog("Error:n" + Ex.Message); } } } } } VBA/ActiveX Code Reference Sub EraseLayer() On Error Resume Next Dim layerObj As AcadLayer Set layerObj = ThisDrawing.Layers("ABC") layerObj.Delete End Sub (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |