[求助]VBA的GetPoint要如何使用锁点方式抓点

GordonHong

当我使用VBA的GetPoint方法，点击锁点工具列抓点(如：nea point,endpoint….)，在Command里居然出现了 *Cancel* 而无法抓点，不知有哪位前辈知道如何解决呢。

efan2000

解决方法如下：
Sub Test()
    On Error GoTo ErrTrap
    Pt = acadDoc.Utility.GetPoint(Point, Prompt)
    Exit Sub
   
ErrTrap:
    If Err.Number = -2147352567 Then '运行命令，如透明命令等。
        Err.Clear
        Resume
    ElseIf Err.Number = -2147467259 Then '右键单击结束，关于按ESC键结束命令可以参考其它有关资料。
    End If
    On Error GoTo 0
End Sub

GordonHong

謝謝您幫我解決了問題,真是太感謝您了.

zxj_76

GordonHong

请教一下Err.Number 相关资料哪里可以查到呢

mccad

这样你就可以知道什么情况下会出现什么编号的出错号