GetPoint 需要捕捉时的问题？

pbh1974

在需要捕捉时，按住“shift“键，再按鼠标右键，弹出捕捉菜单，选择要捕捉的类型

mccad

不知是否适用，你自己试吧。

On Error GoTo Err_Control
' ...
' ...
' 你的程序内容
' ...
'以下为判断出错内容
Exit_Here:
  Exit Sub
Err_Control:
  Select Case Err.Number
    Case -2147352567
      varCancel = ThisDrawing.GetVariable("LASTPROMPT")
      If InStr(1, varCancel, "*Cancel*") <> 0  _
And InStr(1, varCancel, "*Cancel*") <> 0 Then
        Err.Clear
        Resume Exit_Here
      Else
      'Missed the pick, send them back!
        Err.Clear
        Resume
      End If
    Case -2145320928
    'Right click or enter
      Err.Clear
      Resume Exit_Here
    Case Else
      'MsgBox Err.Description Err.Clear
      Resume Exit_Here
  End Select