如何判断getentity 未选择图形对象

nhbabc

各位：   Dim returnobj As AcadObject
         Dim basepnt As Variant
         ThisDrawing.Utility.GetEntity returnobj, basepnt, "select file name to save"
在提示“select file name to save"”若用户未选择图形对象，点了空白处会出错。
     出错对话框如下：file:///

如何判读用户未点选图形对象呢 ？好进行后面的容错处理!

zzyong00

判断哪个错误号，以确定就是“用户未选择图形对象”

zzyong00

on error goto err1



exit sub
err1
.......

nhbabc

试试看，谢谢！

nhbabc

还是没用啊，

zzyong00

1. Public Sub ss()
   
2. On Error GoTo err1
   
3. 
   
4.     Dim returnobj As AcadObject
   
5.     Dim basepnt As Variant
   
6.     ThisDrawing.Utility.GetEntity returnobj, basepnt, "select file name to save"
   
7. 
   
8. Exit Sub
   
9. err1:
   
10. If Err.Number = -2147352567 Then MsgBox "没选择对象"
    
11. 
    
12. End Sub
    

Public Sub ss()<br /> On Error GoTo err1<br /> <br />     Dim returnobj As AcadObject<br />     Dim basepnt As Variant<br />     ThisDrawing.Utility.GetEntity returnobj, basepnt, "select file name to save"<br /> <br /> Exit Sub<br /> err1:<br /> If Err.Number = -2147352567 Then MsgBox "没选择对象"<br /> <br /> End Sub<br />