请问，在一个VBA工程中再编写怎样的程序代码，能够终止此工程的运行？

LYHZM

请问，在一个VBA工程中再编写怎样的程序代码，能够实现以下功能：


                         当此工程运行时（如正在提示用户在AutoCAD界面中选择图形），当用户按下ESC键准备终止此工程的运行时，程序执行一段代码，以执行删除选择集（否则，下次再运行此工程时将出现错误）等操作，最后结束工程的运行，返回AutoCAD界面？

雪山飞狐_lzh

Sub Test()
On Error Resume Next
ThisDrawing.Utility.GetPoint
If Err Then GoTo ErrClear
'此处执行你的后续代码
ErrClear:
'此处执行删除选择集等操作
End Sub

LYHZM

非常感谢lzh741206老师的解答！ 修改代码大致如下： Sub Test()
On Error Resume Next
ThisDrawing.Utility.GetPoint If Err Then GoTo ErrClear
'此处执行你的后续代码 ...

ErrClear:
SelSet.Clear
SelSet.Delect End Sub
但上述代码运行时产生如下错误： 1.当正在提示用户在AutoCAD界面中选择图形时，若用户没有选中程序设定的、必须选择的图形，而且用户又不愿再选择图形、按下ESC键准备终止此工程的运行时，会出现一个程序设定的提示窗口，提示用户没有选中要求的图形而要求重新选择，请问，此时如何实现在用户按下ESC键是能够终止此工程的运行而不是出现提示窗口？ 2.若运行中出现错误，如提示用户确定插入点时而用户直接按回车键跳过，则当下次再运行此工程时，会在创建选择集的语句（Set SelSet = ThisDrawing.SelectionSets.Add("图块选择集")）出现错误，此时，若把此语句中的选择集的名称更改一下如改为“图块选择集2”则运行正常。难道上一次运行时语句“SelSet.Clear”及“SelSet.Delect”没有被执行？ 请问上述问题如何解决？

雪山飞狐_lzh

我只是用GetPoint说明如何做，应该用 Sub Test()
On Error Resume Next
Dim SelSet As AcadSelectionSet
Set SelSet = ThisDrawing.SelectionSets.Add("图块选择集")
If Err Then Set SelSet = ThisDrawing.SelectionSets("图块选择集"): SelSet.Clear
SelSet.SelectOnScreen
If SelSet.Count = 0 Then GoTo ErrClear
'MsgBox SelSet.Count
'此处执行你的后续代码
ErrClear: SelSet.Delect
End Sub

LYHZM

非常感谢lzh741206老师耐心和细致的解答！