这是我的代码:
Dim ed As Editor = Application.DocumentManager.MdiActiveDocument.Editor
Dim values(6) As TypedValue
values(0) = New TypedValue(-4, "<AND")
values(1) = New TypedValue(DxfCode.Start, "CIRCLE")
values(2) = New TypedValue(-4, ">=")
values(3) = New TypedValue(40, 40)
values(4) = New TypedValue(-4, "<")
values(5) = New TypedValue(40, 100)
values(6) = New TypedValue(-4, "AND>")
Dim sfilter As New SelectionFilter(values)
' 返回选择集的用户提示类.
Dim resSel As PromptSelectionResult = ed.SelectAll(sfilter) '这里出错
'无选择时结束退出
If resSel.Value Is Nothing Then Return
ed.WriteMessage(vbCrLf & "已选择 " & resSel.Value.Count & " 个对象") 2006确实有bug
其他的版本应该没问题
不过你的代码，两个and是多此一举 回复 雪山飞狐_lzh 的帖子
郁闷，公司都用2006
实在调试不出来，照猫画虎的往上加and了，呵呵~~
页:
1
[2]