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

GordonHong 发表于 2003-2-13 08:46:00

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

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

efan2000 发表于 2003-2-13 20:07:00

解决方法如下：
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 发表于 2003-2-14 16:31:00

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

GordonHong 发表于 2003-2-14 16:54:00

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

mccad 发表于 2003-2-14 17:01:00

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

查看完整版本: [求助]VBA的GetPoint要如何使用锁点方式抓点