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

157787698

RT，如何做呢？
  k* O  ^( E5 E) [$ o1 R, ^- y! l
: b" ~2 @) i1 ]( u另外，如何取得图纸中特定文字的高度呢？

: p, J2 x1 L8 [8 S: v9 @请用VBA

woaishuijia

1.     Dim E As AcadEntity, T As AcadText, S As String
   # n8 M3 G9 |3 w5 v$ _% A+ E
2.     S = "XXX"
   1 f" P0 b3 R% x) b. C1 r6 o
3.     For Each E In ThisDrawing.ModelSpace
   ( \. S8 h! P$ D& `1 N
4.         If E.ObjectName = "AcDbText" Then
   ; C+ @" u$ l, N8 X$ R
5.             Set T = E
   " f, Z0 Y* ~# R) X0 V; ^
6.             If T.TextString = S Then
   ) [" X) t" x1 [7 Y5 ]
7.                 MsgBox "单行文字" & S & "的位置:" & vbCrLf & _
   ! J2 [4 Z! |2 e  ^
8.                 "(" & T.InsertionPoint(0) & "," & T.InsertionPoint(1) & "," & _
   ) D4 Y* P: H3 E: `* O6 |
9.                 T.InsertionPoint(2) & ")" & vbCrLf & "字高:" & T.Height
   7 O# H; B) ]0 M, K
10.                 Exit For
    
11.             End If
    
12.         End If
    ! N; O4 D6 b. X: {, s; i
13.     Next

复制代码

157787698

2# woaishuijia

) K$ F: M/ i+ O( \9 I( r) b哥们，你太强了
3 @! T2 }+ o9 d1 ~1 J我想知道你是做什么的