[求助]使用Utility的GetPoint时如何避免用户操作错误

双子星

现有
Handpoint = acadApp.ActiveDocument.Utility.GetPoint(, "请输入套料的插入点：")
希望用户在捕捉点或输入点坐标动作时，如何避免用户因其他操作如缩放、PAN引起的系统报错

arej

可以加一段以下语句：
on error goto errHandle
Handpoint = acadApp.ActiveDocument.Utility.GetPoint(, "请输入套料的插入点：")
errhandle:
if Err.Number=-2147352567 then
Err.Clear
resume
end if

[此贴子已经被作者于2002-8-22 21:13:08编辑过]

双子星

但是我希望除错后能仍然回到getpoint的状态下，怎么做最好呢

arej

加了该语句后，你可以多次使用PAN或ZOOM命令。有否试试？

双子星

谢谢，可以了
不过它对Utility的其他Get事件也适用吗
Err.Number = -2147352567，这个number我怎么查不到，是什么意思呢

arej

应该都适用。
其实这个Err.Number你可以在VBA运行出错时看到。