|
|
以下是 从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
esoqsdpdbop.JPG
|
|
置顶卡
