从CAD内指定点提取TEXT文本至EXCEL出错

yefeiwolaile

 以下是  从CAD内指定点提取TEXT文本至EXCEL的制定格时用到的一个循环，里面P,P2,P3是CAD内制定的三个文本的起始点坐标，PP是遍历CAD内文本指定点变量，但是最后运算后就是头一个P=PP时，提取不到指定文本，其余两个都能提取出来？真是百思不得其解。请高手帮忙解决。

 For Each Ent In ThisDrawing.PaperSpace '循环实体 

    Select Case Ent.ObjectName '获取实体名
   
      Case "AcDbMText"     '选择文本实体

        Set TextEnt = Ent
           
        pp = TextEnt.InsertionPoint
   
     If p(0) = pp(0) And p(1) = pp(1) Then
    
         dz1 = TextEnt.TextString
            
         ElseIf p2(0) = pp(0) And p2(1) = pp(1) Then
         bb = TextEnt.TextString 
            For aa = 1 To Len(bb)
            If IsNumeric(Mid(bb, aa, 1)) Then Exit For

               Next aa 

          ElseIf p3(0) = pp(0) And p3(1) = pp(1) Then

           xz1 = TextEnt.TextString

    End If  

    End Select
    
  Next Ent

yefeiwolaile

我想到一个变通的办法，绕过识别这个点，直接固定TEXT文本在这里。