根据handle值如何判别其对应的MText字符串是否存在？

pckite · 发表于 2004-6-13 17:32:00

雪山飞狐_lzh · 发表于 2004-6-13 17:58:00

用错误机制，如果对象不存在，HandleToObject会引发一个错误，捕获它就行了


Sub tt()
On Error Resume Next
Dim obj As AcadEntity
Err.Clear
Set obj = ThisDrawing.HandleToObject("131")
If Err.Number = -2145386484 Then MsgBox "对象不存在"
End Sub

pckite · 发表于 2004-6-13 18:02:00

怎么知道Err.Number = -2145386484就是出错的情况?

雪山飞狐_lzh · 发表于 2004-6-13 18:04:00

我的调试代码是这样的，立即窗口会显示Err.Number 的值 Sub tt()
On Error Resume Next
Dim obj As AcadEntity
Err.Clear
Set obj = ThisDrawing.HandleToObject("131")
If Err Then MsgBox "对象不存在": Debug.Print Err.Number
End Sub

pckite · 发表于 2004-6-14 10:02:00

哦,谢谢!~lzh741206真强!

根据handle值如何判别其对应的MText字符串是否存在？

发表回复

精选推荐

浏览过的版块