请教各位关于选择集！

evaporated

各位大侠帮忙看看： 1 If Not IsNull(ThisDrawing.SelectionSets.Item("ccurblock")) Then
Set curblock = ThisDrawing.SelectionSets.Item("ccurblock")
curblock.Delete
End If 这种判定选择集不能重名的代码是直接套用明经出的《AutoCADvba精彩示例教程》的 可是在autocad2004，2002中经常保错啊。 核心是ThisDrawing.SelectionSets.Item("ccurblock")在不存在ccurblock的时候，就会出错 。难道选择集不能这样引用么？ 2 有关filtertype 和 filterdata ， 当 filtertype 为 0,filterdata 为 "TEXT" 时 ， curText.Select acSelectionSetAll, , , filtertype, filterdata 能够选中所有的文字么？在块中或者其他地方的行么？ 谢谢各位！

mccad

出错是因为该名称的选择集不存在。
前面可加上
On Error Resume Next

evaporated

谢谢啦！


果然是这个问题！


今天复习了on error 的用法。才发现自己原来的想法是错的