[求助]使用Utility的GetPoint时如何避免用户操作错误
现有Handpoint = acadApp.ActiveDocument.Utility.GetPoint(, "请输入套料的插入点：")
希望用户在捕捉点或输入点坐标动作时，如何避免用户因其他操作如缩放、PAN引起的系统报错
[回复]使用Utility的GetPoint时如何避免用户操作错误
本帖最后由 作者 于 2002-8-22 21:16:38 编辑可以加一段以下语句：
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的状态下，怎么做最好呢回复
加了该语句后，你可以多次使用PAN或ZOOM命令。有否试试？回复
谢谢，可以了不过它对Utility的其他Get事件也适用吗
Err.Number = -2147352567，这个number我怎么查不到，是什么意思呢
回复
应该都适用。其实这个Err.Number你可以在VBA运行出错时看到。
页:
[1]