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

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

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

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

这个问题其实就是在指定点时执行CAD本身命令的问题。

本帖最后由 作者 于 2003-2-13 20:07:10 编辑

解决方法如下：
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

真是太谢谢了

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

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

在AutoCAD(r)14.0中的GetPoint是可以用透明命令的，但AutoCAD2000却不可以。

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

Err.Number 相关资料如何查得

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

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

出错时你可以调用Debug.princ Err.Number来显示出错编号

这样你就可以知道什么情况下会出现什么编号的出错号
页: [1]
查看完整版本: [求助]VBA的GetPoint要如何使用锁点方式抓点