选择集过虑不起作用

pmq

Dim acTypValAr(1) As TypedValue
acTypValAr.SetValue(New TypedValue(DxfCode.Start, "Polyline,LWPOLYLINE"), 0)  '线形
acTypValAr.SetValue(New TypedValue(DxfCode.Visibility, 0), 1)  '对象可见

Dim acSelFtr = New SelectionFilter(acTypValAr) '将过滤条件赋值给SelectionFilter对象
Dim psr As PromptSelectionResult = ed.SelectAll(acSelFtr) '在图上选择对象

If psr.Status = PromptStatus.OK Then '如果提示状态OK，表示对象已选
     Dim SetA As SelectionSet = psr.Value
     MsgBox(SetA.Count)
End If

图上有多个图层172条多段线，只打开两个图层，执行命令还是选择了172个对象