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

mycad

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

上面的代码在我的程序中出现下面致命错误，“AutoCAD致命错误退出”，不知道怎样解决好？谢谢赐教！！！！

在线等待。。。。。。。。。。。。。。。

  FATAL ERROR:Unhandled Access Violation Reading 0x0000 Exception at 58babbeh

天之雨露

 把以下代码写cad2006中文版的模块里测试没出现任何问题　，你试试也写到模块里看看行不行

 Sub a()
 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
End Sub

还有cad重装试试

mycad

可能是cad问题，代码没有问题的，谢谢楼上的