Filtering selection sets

[Coolmo]

I'm getting an error when trying to filter the selection set on screen. I'm using:

Dim Polyset As AcadSelectionSet
Set Polyset = ThisDrawing.SelectionSets.Add("Polyset1")
Polyset.SelectOnScreen 0, "line"

but the Polyset.SelectOnScreen 0, "line" doesn't work. Neither does:

Polyset.SelectOnScreen (0, "line") wants and = mark or something
Polyset.SelectOnScreen 0, line simply doesn't work

What am I missing? The main error states "Invalid filtertype on SelectScreen"

[Ed Jobe]

Have you checked the help file for samples? The error says the "type" of the filter is bad. The arguments are expecting variant arrays.

[Coolmo]

It explains the "types" as 0 for entities, 8 for layers, etc. I can't find samples from the help that show actual code, just tables for all the "types". They also list the type as 0 and not "0" and the entity as "Line" not line. I've tried all but using "0". I'll try that now.

[Ed Jobe]

The "type" of 0 and 8 is Integer. The "type" of line is String. You need to assign the dxf code to an Integer array and the string to a variant array. Then assign the arrays to variants. Here is a sample.



Dim intFtyp(0) As Integer ' setup for the filter
Dim varFval(0) As Variant
Dim varFilter1, varFilter2 As Variant
intFtyp(0) = 0: varFval(0) = "LINE" ' get only lines
varFilter1 = intFtyp: varFilter2 = varFval

Set s1 = AddSelectionSet "ssLineFilter" ' create or get the set
s1.Clear ' clear the set
s1.SelectOnScreen varFilter1, varFilter2 ' do it
End Function

[Coolmo]

So simply declaring the variables as integers and variants makes it work? Cool! I was just trying to enter a 0 and a "string" and hope for the best. We'll try it now. Thanks.

[Ed Jobe]

BTW, the reason for setting it up in an array is so that you can have multiple conditions and boolean operators. The example I gave has only one condition.