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

157787698

RT，如何做呢？

另外，如何取得图纸中特定文字的高度呢？
: r3 X: v8 |' v
: y, J  G+ O+ Z( a, t请用VBA

woaishuijia

1.     Dim E As AcadEntity, T As AcadText, S As String
   2 N+ ~0 L. Z4 R: |' g! h1 t! P
2.     S = "XXX"
   6 p8 c; g" J5 c( ~5 m% _  f
3.     For Each E In ThisDrawing.ModelSpace
   6 x2 P+ w5 ^  R& v! I0 x& W5 j
4.         If E.ObjectName = "AcDbText" Then
   * l- x. @) Z* k
5.             Set T = E
   ( ?+ R/ U. E* ^- B8 W, j+ C
6.             If T.TextString = S Then
   
7.                 MsgBox "单行文字" & S & "的位置:" & vbCrLf & _
   
8.                 "(" & T.InsertionPoint(0) & "," & T.InsertionPoint(1) & "," & _
   0 i/ m; ]( I1 E) I" \
9.                 T.InsertionPoint(2) & ")" & vbCrLf & "字高:" & T.Height
   : b$ A7 o$ R; A
10.                 Exit For
    5 Z* x4 f) c& w! ]* o' Y% O
11.             End If
    8 C0 q8 @  G% `% F$ G+ z1 T- J+ t2 e
12.         End If
    & y' U: {* j4 ^: \; z6 ^0 B9 a
13.     Next

复制代码

157787698

2# woaishuijia

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