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

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

当我使用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