VBA如何获得特定单行文字的位置坐标？

157787698

RT，如何做呢？
: \5 ^% r0 u* N, X
; N6 M: h' ~  C+ y  j) x+ M另外，如何取得图纸中特定文字的高度呢？

请用VBA

woaishuijia

1.     Dim E As AcadEntity, T As AcadText, S As String
   3 S# d! b! V! Z8 `. A1 p
2.     S = "XXX"
   
3.     For Each E In ThisDrawing.ModelSpace
   # _1 A( Z, q% F2 a! Q
4.         If E.ObjectName = "AcDbText" Then
   + r' e/ i$ U( g" [8 A8 `$ E% I
5.             Set T = E
   % V4 H8 v. W2 i7 b8 k0 }5 R6 r$ e
6.             If T.TextString = S Then
   
7.                 MsgBox "单行文字" & S & "的位置:" & vbCrLf & _
   ' F0 E: y0 F+ m4 N
8.                 "(" & T.InsertionPoint(0) & "," & T.InsertionPoint(1) & "," & _
   $ R1 y% |) Z8 N& ?& N0 b8 S1 @
9.                 T.InsertionPoint(2) & ")" & vbCrLf & "字高:" & T.Height
   6 \; O! j7 @# ~
10.                 Exit For
    
11.             End If
    ' F* C( ^* W" R) Z- C/ z
12.         End If
    9 n( w! ]8 `6 e/ p) q/ r5 ^
13.     Next

复制代码

157787698

2# woaishuijia

哥们，你太强了
我想知道你是做什么的