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
原文链接：https://www.f2er.com/vb/260937.html