社区 › VB › 从CAD内指定点提取TEXT文本至EXCEL出错

yefeiwolaile 发表于 2008-5-30 20:13:00

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

以下是从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 发表于 2008-5-31 21:19:00

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

查看完整版本: 从CAD内指定点提取TEXT文本至EXCEL出错