acSelectionSetAll and line selections

[sthamert]

I am having a problem with my code selecting more than what is specified by the filterdata, example below. I have a drawing with hidden attributes(text) in modelspace and the drawing in paperspace, but my selectionset is till finding the entities in modelspace.

Does anyone have a suggestion?

Set acSSet2 = ThisDrawing.SelectionSets.Add("ALL")
ReDim Preserve HasEnts(LayOuts.Count)
a = 0
For Each layout In ThisDrawing.LayOuts
    whatlayout = layout.Name
    wSpace = layout.Block.Name
    If wSpace = "*Paper_Space" Or wSpace Like "*PAPER_SPACE" Then
       ThisDrawing.ActiveSpace = acPaperSpace
    Else
        ThisDrawing.ActiveSpace = acModelSpace
    End If
    'ThisDrawing.ActiveLayout = layout
    iMode2 = acSelectionSetAll
    iFilterType2(0) = 0
    vFilterData2(0) = "Line"
    acSSet2.Select iMode2, , , iFilterType2, vFilterData2
    iCount = acSSet2.Count
    If iCount > 17 Then
        HasEnts(a) = layout.Name
        a = a + 1
    Else
        HasEnts(a) = layout.Name
        a = a + 1
    End If
Next

[darfnuggi]

Perhaps this part of your code is including modelspace before you make your selelctionset:

  Else
        ThisDrawing.ActiveSpace = acModelSpace

[Ed Jobe]

Perhaps this part of your code is including modelspace before you make your selelctionset:

  Else
        ThisDrawing.ActiveSpace = acModelSpace

No, that wouldn't be it. The enum acSelectionSetAll specifies ALL objects in the dwg, not just the current layout. To exclude ms ents, include group code 67 =1 in your filter. To get ents on a single ps layout, you could bypass the ss method and just iterate the ents in the Layout's Block property.

[jwanstaett]

add this to your code

iFilterType2(1) = 67
vFilterData2(1) = 1

this will get the data in all layout but not modelspace

dxf code 67
Absent or zero indicates entity is in model space. 1 indicates entity is in paper space (optional).

note: you will need to redim iFilterType and vFilterData2