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

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

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

雪山飞狐_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()<BR>On Error Resume Next<BR>Dim obj As AcadEntity<BR>Err.Clear<BR>Set obj = ThisDrawing.HandleToObject("131")<BR>If Err Then MsgBox "对象不存在": Debug.Print Err.Number<BR>End Sub<BR>

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

哦,谢谢!~<A name=26798><FONT color=#990000><B>lzh741206</B></FONT></A>真强!
页: [1]
查看完整版本: 根据handle值如何判别其对应的MText字符串是否存在？