请问如果区分？

yicol

上次版主给我的建议，但我还是有点搞不出来，那个平移和右键的贴子也看了，我用不上

On Error Resume Next
abc_text = ""
Do While InStr(abc_text, "*取消*") = 0
    ThisDrawing.Utility.GetEntity adTextobj, 0, "请选择原文字："
    abc_text = ThisDrawing.GetVariable("lastprompt")
'下面这句不行，不管我选择了文字没有，都会执行 if...then 里面的语句
要是有一个语句来判断adtextobj是否包函对像就OK了，但我不知道用什么语句
    If adTextobj.ObjectName = "AcDbText" Or adTextobj.ObjectName = "AcDbMText" Then
        abc_text = "*取消*"
    End If
   
Loop

mccad

2. Sub SelectText()
   
3. On Error Resume Next
   
4. Dim adTextobj As AcadEntity
   
5. Do
   
6.     ThisDrawing.Utility.GetEntity adTextobj, 0, "请选择原文字："
   
7.     If Err Then
   
8.         Debug.Print ThisDrawing.GetVariable("lastprompt")
   
9.         If InStr(ThisDrawing.GetVariable("lastprompt"), "*取消*") <> 0 Then
   
10.             Exit Sub
    
11.          End If
    
12.     Else
    
13.         If adTextobj.ObjectName = "AcDbText" Or _
    
14.             adTextobj.ObjectName = "AcDbMText" Then
    
15.             Exit Do
    
16.         End If
    
17.     End If
    
18.     Loop
    
19. End Sub
    

Sub SelectText()<br /> On Error Resume Next<br /> Dim adTextobj As AcadEntity<br /> Do<br />     ThisDrawing.Utility.GetEntity adTextobj, 0, "请选择原文字："<br />     If Err Then<br />         Debug.Print ThisDrawing.GetVariable("lastprompt")<br />         If InStr(ThisDrawing.GetVariable("lastprompt"), "*取消*") <> 0 Then<br />             Exit Sub<br />          End If<br />     Else<br />         If adTextobj.ObjectName = "AcDbText" Or _<br />             adTextobj.ObjectName = "AcDbMText" Then<br />             Exit Do<br />         End If<br />     End If<br />     Loop<br /> End Sub<br />