VB.net: Select all lines

[Jozi68]

I am using the following code to select all lines on my drawing, but it does not work. I'm sure this should be quite easy to do, but .net is still new to me.

 

Dim filterfor() As TypedValue = {New TypedValue(0, "LINE")}

Dim sf As SelectionFilter = New SelectionFilter(filterfor)

Dim psr As PromptSelectionResult = ed.SelectAll(sf)

If psr.Status = PromptStatus.OK Then

ed.WriteMessage("Can not find the lines in the drawing.")

Else

ed.WriteMessage("Lines found!")

End If

 

Any ideas?

[gile]

Hi,

 

I don't know much about VB, but according to my little C# knowlege, I rather write:

 filterfor As TypedValue() = {New TypedValue(0, "LINE")}