AutoCAD 删除集合对象中的成员
生活随笔
收集整理的這篇文章主要介紹了
AutoCAD 删除集合对象中的成员
小編覺得挺不錯的,現在分享給大家,幫大家做個參考.
集合的成員可以從集合對象被刪除,只要使用成員對象的 Erase 方法。例如,下面的代碼從 LayerTable 對象中刪除層 MyLayer。
在從圖形中刪除圖層前,應該確定它可以被刪除。若要確定一個圖層或另外的像塊(Block) 或文字樣式(TextStyle)可以被刪除,應該使用 方法。關于 Purge 方法的更多信息,請參見 清理未引用的命名對象部分。
Imports Autodesk.AutoCAD.Runtime Imports Autodesk.AutoCAD.ApplicationServices Imports Autodesk.AutoCAD.DatabaseServices<CommandMethod("RemoveMyLayer")> _ Public Sub RemoveMyLayer()''獲得當前文檔和數據庫,并啟動一個事務Dim acDoc As Document = Application.DocumentManager.MdiActiveDocumentDim acCurDb As Database = acDoc.DatabaseUsing acTrans As Transaction = acCurDb.TransactionManager.StartTransaction()''返回當前數據庫的層表Dim acLyrTbl As LayerTableacLyrTbl = acTrans.GetObject(acCurDb.LayerTableId, _OpenMode.ForRead)''檢驗名字為 MyLayer 的圖層是否已經存在在層表中 If acLyrTbl.Has("MyLayer") = True ThenDim acLyrTblRec As LayerTableRecordacLyrTblRec = acTrans.GetObject(acLyrTbl("MyLayer"), _OpenMode.ForWrite)TryacLyrTblRec.Erase()acDoc.Editor.WriteMessage(vbLf & "'MyLayer' was erased")'' 確認所做的修改acTrans.Commit()CatchacDoc.Editor.WriteMessage(vbLf & "'MyLayer' could not be erased")End TryElseacDoc.Editor.WriteMessage(vbLf & "'MyLayer' does not exist")End If'' 銷毀事務End Using End Sub總結
以上是生活随笔為你收集整理的AutoCAD 删除集合对象中的成员的全部內容,希望文章能夠幫你解決所遇到的問題。
- 上一篇: 苹果xr黑屏转圈圈解决方法_苹果iPho
- 下一篇: 如何给apk安装包去毒,避免被识别为病毒