[求助]：怎样判断按两次ECS?

surveyors

在VBA中执行循环选点命令，如何通过判断执行了两次ECS后取消选点过程？谢谢

雪山飞狐_lzh

Sub Test()
On Error Resume Next
Dim ErrNum As Integer
Do While 1
ThisDrawing.Utility.GetPoint
If Err.Number = -2147352567 Then ErrNum = ErrNum + 1
If ErrNum = 2 Then GoTo ErrHandle
Loop
ErrHandle:
End Sub

surveyors

谢谢！