請問 使用過濾器 acSelectionSetAll 就不能下過濾條件嗎?

ghj20122012

請問 使用過濾器 acSelectionSetAll 就不能下過濾條件嗎?

我把 SelectOnScreen 換成 acSelectionSetAll , 後面的FilterType, FilterData好像是不起作用的? 可是看說明應該是可以的啊..

sset.SelectOnScreen FilterType, FilterData
sset.Select acSelectionSetAll, , , FilterType, FilterData

我的想法是要全選 所有叫 DJ_V2 的圖塊, 不過, 目前看來好像要先選出所有圖塊, 再一個個去看是不是DJ_V2 的圖塊


Dim FilterType(0) As Integer
Dim FilterData(0)   As Variant

     On Error GoTo ErrorHandle1

FilterType(0) = 0
FilterData(0) = "insert"

fff:
Set sset = ThisDrawing.SelectionSets.Add("SS1")

sset.SelectOnScreen FilterType, FilterData
'sset.Select acSelectionSetAll, , , FilterType, FilterData
     
Dim entry As AcadEntity
For Each entry In sset
entry.color = acRed
entry.Update
Next entry

Exit Sub

ErrorHandle1:
ThisDrawing.SelectionSets.Item("SS1").Delete
     GoTo fff
end sub     



该贴已经同步到 ghj20122012的微博

wylong

2. Sub SelectionSetFilterTest()
   
3.     Dim FilterType(0 To 1) As Integer
   
4.     Dim FilterData(0 To 1) As Variant
   
5.     Dim sSet As AcadSelectionSet
   
6.     Dim Entry As AcadEntity
   
7. 
   
8.     FilterType(0) = 0 '图元类型
   
9.     FilterData(0) = "INSERT"
   
10.     FilterType(1) = 2 '图元名称
    
11.     FilterData(1) = "DJ_V2"
    
12. 
    
13.     On Error Resume Next
    
14.     ThisDrawing.SelectionSets.Item("SS1").Delete
    
15.     Set sSet = ThisDrawing.SelectionSets.Add("SS1")
    
16.     On Error GoTo 0
    
17.    
    
18.     '显示整个图形
    
19.     ThisDrawing.Application.ZoomExtents
    
20.    
    
21.     'sSet.SelectOnScreen FilterType, FilterData
    
22.    
    
23.     'Select只能选择图形中可视范围内的实体
    
24.     sSet.Select acSelectionSetAll, , , FilterType, FilterData
    
25.     If sSet.Count = 0 Then Exit Sub
    
26.     For Each Entry In sSet
    
27.         Entry.color = acRed
    
28.         Entry.Update
    
29.     Next Entry
    
30.     MsgBox "修改了" & sSet.Count & "实体!"
    
31. End Sub

Sub SelectionSetFilterTest()<br />     Dim FilterType(0 To 1) As Integer<br />     Dim FilterData(0 To 1) As Variant<br />     Dim sSet As AcadSelectionSet<br />     Dim Entry As AcadEntity<br /> <br />     FilterType(0) = 0 '图元类型<br />     FilterData(0) = "INSERT"<br />     FilterType(1) = 2 '图元名称<br />     FilterData(1) = "DJ_V2"<br /> <br />     On Error Resume Next<br />     ThisDrawing.SelectionSets.Item("SS1").Delete<br />     Set sSet = ThisDrawing.SelectionSets.Add("SS1")<br />     On Error GoTo 0<br />     <br />     '显示整个图形<br />     ThisDrawing.Application.ZoomExtents<br />     <br />     'sSet.SelectOnScreen FilterType, FilterData<br />     <br />     'Select只能选择图形中可视范围内的实体<br />     sSet.Select acSelectionSetAll, , , FilterType, FilterData<br />     If sSet.Count = 0 Then Exit Sub<br />     For Each Entry In sSet<br />         Entry.color = acRed<br />         Entry.Update<br />     Next Entry<br />     MsgBox "修改了" & sSet.Count & "实体!"<br /> End Sub

ghj20122012

上面的程式確實可以用, 太感謝了~~
再請問一下, 如果是動態圖塊呢.....因為我還有動態圖塊....FilterData 那些該怎麼下參數?
剛下了 li 看到圖塊的資訊...
                   處理碼 = 51285
             圖塊名稱: "marks_V2"
               匿名: "*U15"
                 在 點， X= 208.3794  Y= 186.6499  Z=   0.0000

wylong

1. FilterData(1) = "DJ_V2,marks_V2"

复制代码

ghj20122012

我新作了一個測試檔(2010格式)
作了一個動態圖塊 "圖界標2"

我想要全選它 , 用上面的參數去下, 抓不到, 我猜是動態圖塊的關係~
https://googledrive.com/host/0B35LzDuPHIVhWlF3eXRPakF0QmM/Drawing3.dwg

用list看動態圖塊多了 "匿名" 這個資訊
    處理碼 = 51431
             圖塊名稱: "圖界標2"
               匿名: "*U16"