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

pckite

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

雪山飞狐_lzh

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

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

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

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

雪山飞狐_lzh

我的调试代码是这样的，立即窗口会显示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

哦,谢谢!~lzh741206真强!