清理图中的无用图层

guohq

1. Public Function PurgeLayers() As String()
   
2.         Dim Lays As New List(Of String)
   
3.         Using Trans As Transaction = DB.TransactionManager.StartTransaction
   
4.             Dim LayTab As LayerTable = Trans.GetObject(DB.LayerTableId, OpenMode.ForWrite)
   
5.             DB.Clayer = LayTab("0") '设置0层为当前层
   
6.             Dim IDs As New ObjectIdCollection
   
7.             For Each ID As ObjectId In LayTab
   
8.                 IDs.Add(ID)
   
9.             Next
   
10.             DB.Purge(IDs)
    
11.             Dim LayTabRec As LayerTableRecord = Nothing
    
12.             For Each ID As ObjectId In IDs
    
13.                 LayTabRec = Trans.GetObject(ID, OpenMode.ForWrite)
    
14.                 Lays.Add(LayTabRec.Name.ToUpper)
    
15.                 LayTabRec.Erase(True)
    
16.             Next
    
17.             Trans.Commit()
    
18.         End Using
    
19.         PurgeLayers = Lays.ToArray
    
20.     End Function

Public Function PurgeLayers() As String()<br />         Dim Lays As New List(Of String)<br />         Using Trans As Transaction = DB.TransactionManager.StartTransaction<br />             Dim LayTab As LayerTable = Trans.GetObject(DB.LayerTableId, OpenMode.ForWrite)<br />             DB.Clayer = LayTab("0") '设置0层为当前层<br />             Dim IDs As New ObjectIdCollection<br />             For Each ID As ObjectId In LayTab<br />                 IDs.Add(ID)<br />             Next<br />             DB.Purge(IDs)<br />             Dim LayTabRec As LayerTableRecord = Nothing<br />             For Each ID As ObjectId In IDs<br />                 LayTabRec = Trans.GetObject(ID, OpenMode.ForWrite)<br />                 Lays.Add(LayTabRec.Name.ToUpper)<br />                 LayTabRec.Erase(True)<br />             Next<br />             Trans.Commit()<br />         End Using<br />         PurgeLayers = Lays.ToArray<br />     End Function

守仁格竹GM

直接PU不也行吗

ScmTools

守仁格竹GM 发表于 2013-5-14 12:52
直接PU不也行吗

PU会清掉很多其它非图层之类的设置，LZ的例子其实就是遍历层表修改图层

pimixixi

对我帮助太大

st788796

ScmTools 发表于 2013-5-14 19:47
PU会清掉很多其它非图层之类的设置，LZ的例子其实就是遍历层表修改图层

PU 可以设置清理哪些的,就是要多点几次