Topic: Layer Selection Filter

[chobo]

why is below code not working ?

Code - vb.net: [Select]

1.     <CommandMethod("TEST")> _
2.     Public Shared Sub FilterCircles()
3.         Dim ed As Editor = Application.DocumentManager.MdiActiveDocument.Editor
4.  
5.         Dim tvArr() As TypedValue = { _
6.          New TypedValue(CInt(DxfCode.Operator), "<AND"), _
7.          New TypedValue(CInt(DxfCode.Start), "CIRCLE"), _
8.          New TypedValue(CInt(DxfCode.Operator), "<>"), _
9.          New TypedValue(CInt(DxfCode.LayerName), "1"), _
10.          New TypedValue(CInt(DxfCode.Operator), "AND>") _
11.         }
12.  
13.         Dim psRes As PromptSelectionResult = ed.SelectAll(New SelectionFilter(tvArr))
14.         If psRes.Status = PromptStatus.OK Then
15.             ed.WriteMessage("Number of objects selected: {0}", psRes.Value.Count)
16.         End If
17.     End Sub
18.  

[gile]

Hi,

Your code doesn't work because relational filters as (CInt(DxfCode.Operator), "<>") or (-4, "<>") only work with numerical values.

Use logical grouping with "NOT" (putting the whole filter list in a "AND" grouping is unusefull because it's the default).

Code - vb.net: [Select]

1. Dim tvArr() As TypedValue = { _
2.     New TypedValue(0, "CIRCLE"),  _
3.     New typedValue(-4, "<NOT"), _
4.     New TypedValue(8, "1"), _
5.     New TypedValue(-4, "NOT>") _
6. }

Or, more concisely, use wildcard patterns:

Code - vb.net: [Select]

1. Dim tvArr() As TypedValue = { New TypedValue(0, "CIRCLE"),  New TypedValue(8, "~1") }

[chobo]

That's the reason !!
Thank you gile, I really appreciate it.