求助:块选择过滤问题

yusicad

On Error Resume Next
  Dim FilterSets As AcadSelectionSet
  If Not IsNull(FilterSets.Item("BlockRef")) Then
     Set FilterSets = ThisDrawing.SelectionSets.Item("BlockRef")
     FilterSets.Delete
  End If
  Set FilterSets = ThisDrawing.SelectionSets.Add("BlockRef")
  '创建过滤机制
    Dim fType(0) As Integer
    Dim fData(0) As Variant
    fType(0) = 0
    fData(0) = "BlockRef"
    '提示用户选择
    FilterSets.SelectOnScreen fType, fData

这是我设定的在屏幕上选取块的过滤条件,可是为什么选不中块呢,总是提示显示0个对象,请高手指教!谢谢

yusicad

fData(0) = "BlockRef"
问题主要出在这,谁能告诉我这个参数怎么设置吗?

lh869

  Dim blockRefObj As AcadBlockReference
  Dim Sall As AcadSelectionSet
  Dim FilterType(0) As Integer
  Dim FilterData(0) As Variant
  Dim InsertionPnt(0 To 2) As Double
  FilterType(0) = 0
  FilterData(0) = "insert"

    '''''开始构造选择集
     Set Sall = acadDoc.SelectionSets.Add("SS1")
     Sall.Select acSelectionSetAll, , , FilterType, FilterData    ''''''找出选择集中的块属性

''''''具体操作过程

     Sall.Delete  ''''''释放选择集

yusicad

哈哈果然可以,牛人,谢谢,问题解决了,打死我也想不到会是"insert"

mufeng

噢，我也找怎么过滤只选择块，谢谢