VB.NET 按颜色显示图元，运行效率欠佳，请高手赐教

vasslli

不知道是算法欠佳，还是其他问题，同样是选择41张a1图中显示某几种颜色，此程序需10s,而msteel工具箱仅2s左右，请高手优化，谢谢。YXX ,按色显示，QXX,全部显示。

2. <CommandMethod("YXX", CommandFlags.UsePickSet)> _
   
3.     Public Sub YXX()
   
4.         '' 获得当前文档和数据库   Get the current document and database
   
5.         Dim acDoc As Document = Application.DocumentManager.MdiActiveDocument
   
6.         Dim acCurDb As Database = acDoc.Database
   
7.         Dim acLyrTblRec As LayerTableRecord
   
8.         Dim acLyrTbl As LayerTable
   
9.         On Error Resume Next
   
10.         ''启动一个事务   Start a transaction
    
11.         Using acTrans As Transaction = acCurDb.TransactionManager.StartTransaction()
    
12.             'Dim ColorList As New List(Of String)
    
13.             'Dim ColorList As New ArrayList
    
14.             Dim ColorList As New List(Of String)
    
15.             Dim acSSPrompt As PromptSelectionResult = acDoc.Editor.GetSelection()
    
16.             If acSSPrompt.Status = PromptStatus.OK Then
    
17.                 Dim acSSet As SelectionSet = acSSPrompt.Value
    
18.                 For Each acSSObj As SelectedObject In acSSet
    
19.                     If Not IsDBNull(acSSObj) Then
    
20.                         Dim acEnt As Entity = acTrans.GetObject(acSSObj.ObjectId, OpenMode.ForWrite)
    
21.                         If Not IsDBNull(acEnt) Then
    
22.                             Dim acEntColor As String = acEnt.Color.ToString
    
23.                             'MsgBox(acEntColor)
    
24.                             If acEntColor = "BYLAYER" Then
    
25.                                 acLyrTbl = acTrans.GetObject(acCurDb.LayerTableId, OpenMode.ForRead)
    
26.                                 acLyrTblRec = acTrans.GetObject(acLyrTbl(acEnt.Layer), OpenMode.ForWrite)
    
27.                                 acEntColor = acLyrTblRec.Color.ToString
    
28.                                 'MsgBox(acEntColor)
    
29.                             End If
    
30.                             '去重
    
31.                             If ColorList.Contains(acEntColor) = False Then
    
32.                                 ColorList.Add(acEntColor)
    
33.                             End If
    
34.                         End If
    
35.                     End If
    
36.                 Next
    
37.             End If
    
38. 
    
39.             Dim acSSPrompt1 As PromptSelectionResult = acDoc.Editor.SelectAll()
    
40.             If acSSPrompt1.Status = PromptStatus.OK Then
    
41.                 Dim acSSet1 As SelectionSet = acSSPrompt1.Value
    
42.                 For Each acSSObj1 As SelectedObject In acSSet1
    
43.                     If Not IsDBNull(acSSObj1) Then
    
44.                         Dim acEnt1 As Entity = acTrans.GetObject(acSSObj1.ObjectId, OpenMode.ForWrite)
    
45.                         If Not IsDBNull(acEnt1) Then
    
46.                             Dim acEnt1Color As String = acEnt1.Color.ToString
    
47.                             'MsgBox(acEntColor)
    
48.                             If acEnt1Color = "BYLAYER" Then
    
49.                                 acLyrTbl = acTrans.GetObject(acCurDb.LayerTableId, OpenMode.ForRead)
    
50.                                 acLyrTblRec = acTrans.GetObject(acLyrTbl(acEnt1.Layer), OpenMode.ForWrite)
    
51.                                 acEnt1Color = acLyrTblRec.Color.ToString
    
52.                                 'MsgBox(acEntColor)
    
53.                             End If
    
54.                             If ColorList.Contains(acEnt1Color) = True Then
    
55.                                 acEnt1.Visible = True
    
56.                             Else
    
57.                                 acEnt1.Visible = False
    
58.                             End If
    
59.                         End If
    
60.                     End If
    
61.                 Next
    
62.             End If
    
63.             acTrans.Commit()
    
64.         End Using
    
65.     End Sub
    
66. 
    
67. 
    
68. <CommandMethod("QXX")> _
    
69.     Public Sub QXX()
    
70.         '' 获得当前文档和数据库   Get the current document and database
    
71.         Dim acDoc As Document = Application.DocumentManager.MdiActiveDocument
    
72.         Dim acCurDb As Database = acDoc.Database
    
73.         'On Error Resume Next
    
74.         ''启动一个事务   Start a transaction
    
75.         Using acTrans As Transaction = acCurDb.TransactionManager.StartTransaction()
    
76.             Dim acSSPrompt1 As PromptSelectionResult = acDoc.Editor.SelectAll()
    
77.             If acSSPrompt1.Status = PromptStatus.OK Then
    
78.                 Dim acSSet1 As SelectionSet = acSSPrompt1.Value
    
79.                 For Each acSSObj1 As SelectedObject In acSSet1
    
80.                     If Not IsDBNull(acSSObj1) Then
    
81.                         Dim acEnt1 As Entity = acTrans.GetObject(acSSObj1.ObjectId, OpenMode.ForWrite)
    
82.                         acEnt1.Visible = True
    
83.                     End If
    
84.                 Next
    
85.             End If
    
86.             acTrans.Commit()
    
87.         End Using
    
88.     End Sub
    

<CommandMethod("YXX", CommandFlags.UsePickSet)> _<br />     Public Sub YXX()<br />         '' 获得当前文档和数据库   Get the current document and database<br />         Dim acDoc As Document = Application.DocumentManager.MdiActiveDocument<br />         Dim acCurDb As Database = acDoc.Database<br />         Dim acLyrTblRec As LayerTableRecord<br />         Dim acLyrTbl As LayerTable<br />         On Error Resume Next<br />         ''启动一个事务   Start a transaction<br />         Using acTrans As Transaction = acCurDb.TransactionManager.StartTransaction()<br />             'Dim ColorList As New List(Of String)<br />             'Dim ColorList As New ArrayList<br />             Dim ColorList As New List(Of String)<br />             Dim acSSPrompt As PromptSelectionResult = acDoc.Editor.GetSelection()<br />             If acSSPrompt.Status = PromptStatus.OK Then<br />                 Dim acSSet As SelectionSet = acSSPrompt.Value<br />                 For Each acSSObj As SelectedObject In acSSet<br />                     If Not IsDBNull(acSSObj) Then<br />                         Dim acEnt As Entity = acTrans.GetObject(acSSObj.ObjectId, OpenMode.ForWrite)<br />                         If Not IsDBNull(acEnt) Then<br />                             Dim acEntColor As String = acEnt.Color.ToString<br />                             'MsgBox(acEntColor)<br />                             If acEntColor = "BYLAYER" Then<br />                                 acLyrTbl = acTrans.GetObject(acCurDb.LayerTableId, OpenMode.ForRead)<br />                                 acLyrTblRec = acTrans.GetObject(acLyrTbl(acEnt.Layer), OpenMode.ForWrite)<br />                                 acEntColor = acLyrTblRec.Color.ToString<br />                                 'MsgBox(acEntColor)<br />                             End If<br />                             '去重<br />                             If ColorList.Contains(acEntColor) = False Then<br />                                 ColorList.Add(acEntColor)<br />                             End If<br />                         End If<br />                     End If<br />                 Next<br />             End If<br /> <br />             Dim acSSPrompt1 As PromptSelectionResult = acDoc.Editor.SelectAll()<br />             If acSSPrompt1.Status = PromptStatus.OK Then<br />                 Dim acSSet1 As SelectionSet = acSSPrompt1.Value<br />                 For Each acSSObj1 As SelectedObject In acSSet1<br />                     If Not IsDBNull(acSSObj1) Then<br />                         Dim acEnt1 As Entity = acTrans.GetObject(acSSObj1.ObjectId, OpenMode.ForWrite)<br />                         If Not IsDBNull(acEnt1) Then<br />                             Dim acEnt1Color As String = acEnt1.Color.ToString<br />                             'MsgBox(acEntColor)<br />                             If acEnt1Color = "BYLAYER" Then<br />                                 acLyrTbl = acTrans.GetObject(acCurDb.LayerTableId, OpenMode.ForRead)<br />                                 acLyrTblRec = acTrans.GetObject(acLyrTbl(acEnt1.Layer), OpenMode.ForWrite)<br />                                 acEnt1Color = acLyrTblRec.Color.ToString<br />                                 'MsgBox(acEntColor)<br />                             End If<br />                             If ColorList.Contains(acEnt1Color) = True Then<br />                                 acEnt1.Visible = True<br />                             Else<br />                                 acEnt1.Visible = False<br />                             End If<br />                         End If<br />                     End If<br />                 Next<br />             End If<br />             acTrans.Commit()<br />         End Using<br />     End Sub<br /> <br /> <br /> <CommandMethod("QXX")> _<br />     Public Sub QXX()<br />         '' 获得当前文档和数据库   Get the current document and database<br />         Dim acDoc As Document = Application.DocumentManager.MdiActiveDocument<br />         Dim acCurDb As Database = acDoc.Database<br />         'On Error Resume Next<br />         ''启动一个事务   Start a transaction<br />         Using acTrans As Transaction = acCurDb.TransactionManager.StartTransaction()<br />             Dim acSSPrompt1 As PromptSelectionResult = acDoc.Editor.SelectAll()<br />             If acSSPrompt1.Status = PromptStatus.OK Then<br />                 Dim acSSet1 As SelectionSet = acSSPrompt1.Value<br />                 For Each acSSObj1 As SelectedObject In acSSet1<br />                     If Not IsDBNull(acSSObj1) Then<br />                         Dim acEnt1 As Entity = acTrans.GetObject(acSSObj1.ObjectId, OpenMode.ForWrite)<br />                         acEnt1.Visible = True<br />                     End If<br />                 Next<br />             End If<br />             acTrans.Commit()<br />         End Using<br />     End Sub<br />

雪山飞狐_lzh

你的代码是全图选择图元
用过滤器要快些的

vasslli

雪山飞狐_lzh 发表于 2015-12-25 15:46
你的代码是全图选择图元
用过滤器要快些的

我的思路是：1.任选几个图元，取图元色彩集。2.遍历所有对象，取每个对象颜色，若在色彩集中则显示，反之关闭。
过滤器？通过色彩不太好选，不同层，不同色，颜色随层时，都是256(BYLAYER)，选不中啊
.visible的对象不能是选择集。。所以遍历了所有图元判断.

雪山飞狐_lzh

http://bbs.mjtd.com/forum.php?mod=viewthread&tid=75642最后一个帖子我贴了按线型过滤的例子 颜色过滤类似