- 积分
- 2250
- 明经币
- 个
- 注册时间
- 2009-5-15
- 在线时间
- 小时
- 威望
-
- 金钱
- 个
- 贡献
-
- 激情
-
|
发表于 2011-1-24 17:16:57
|
显示全部楼层
回复 hnzgs 的帖子
这是我的代码:
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 & " 个对象") |
|