pbh1974 发表于 2003-1-17 14:53:00

可以这样解决......[讨论]

本帖最后由 作者 于 2003-1-17 14:53:38 编辑

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

mccad 发表于 2003-1-17 17:02:00

二次开发栏目中有些示例已经包含有该功能的程序，如内

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

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
页: 1 [2]
查看完整版本: GetPoint 需要捕捉时的问题？