高手或版主赐教：选择集问题

mycad · 发表于 2009-6-23 09:24:00

On Error Resume Next

' MsgBox returnobj.textString
If Not isnull(ThisDrawing.SelectionSets.Item("this")) Then
   Set sset = ThisDrawing.SelectionSets.Item("this")
   sset.Delete
End If
   Set sset = ThisDrawing.SelectionSets.Add("this")
   sset.SelectOnScreen
上面的代码在我的程序中出现下面致命错误，“致命错误退出”，不知道怎样解决好？谢谢赐教！！！！
在线等待。。。。。。。。。。。。。。。
  FATAL ERROR:Unhandled Access Violation Reading 0x0000 Exception at 58babbeh