Dim doc As Document = Application.DocumentManager.MdiActiveDocument
If doc Is Nothing Then Return
Dim ed As Editor = doc.Editor
' Dim filterfor As TypedValue() = {New TypedValue(0, "LINE,ARC,CIRCLE,SPLINE,LWPOLYLINE,ELLIPSE,INSERT,MTEXT,TEXT,POINT"), New TypedValue(410, "Model")}
Dim filterfor As TypedValue() = {New TypedValue(0, "LINE,ARC,CIRCLE,SPLINE,LWPOLYLINE,ELLIPSE,INSERT,MTEXT,TEXT,POINT")}
Dim sf As SelectionFilter = New SelectionFilter(filterfor)
Dim rsSel As PromptSelectionResult = ed.SelectAll(sf)
If rsSel.Status <> PromptStatus.OK OrElse rsSel.Value.Count = 0 Then Return
Dim rsEnt As PromptEntityResult = ed.GetEntity("Select Polyline")
If rsEnt.Status <> PromptStatus.OK Then Return
'This work
Dim filter = New SelectionFilter(New TypedValue() {New TypedValue(0, "LWPOLYLINE"), New TypedValue(410, "Model")})
Dim rsSel As PromptSelectionResult = ed.SelectAll(filter)
'This dont work
Dim filterfor As TypedValue() = {New TypedValue(0, "LINE,ARC,CIRCLE,SPLINE,LWPOLYLINE,ELLIPSE,INSERT,MTEXT,TEXT,POINT"), New TypedValue(410, "Model space")}
Dim acTypValAr(1) As TypedValue
acTypValAr.SetValue(New TypedValue(DxfCode.Start, "INSERT,LINE,LWPOLYLINE,MTEXT,TEXT,POINT"), 0)
acTypValAr.SetValue(New TypedValue(DxfCode.LayerName, "LAYERNAME"), 1)