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

157787698

RT，如何做呢？
; g# \4 X" v/ d$ Y2 q, D& d, V
另外，如何取得图纸中特定文字的高度呢？

5 m/ T! E* ~$ t4 J2 o& |& W请用VBA

woaishuijia

1.     Dim E As AcadEntity, T As AcadText, S As String
   3 `) |9 D+ T6 I  G6 M+ {8 P7 ~
2.     S = "XXX"
   6 R- D" I0 x0 R* D
3.     For Each E In ThisDrawing.ModelSpace
   
4.         If E.ObjectName = "AcDbText" Then
   
5.             Set T = E
   $ y8 u, M9 \: u( ^- m
6.             If T.TextString = S Then
   3 }8 N9 X7 w, n! e0 ]4 H! U+ Z3 f" c
7.                 MsgBox "单行文字" & S & "的位置:" & vbCrLf & _
   . v2 B! F3 d3 H
8.                 "(" & T.InsertionPoint(0) & "," & T.InsertionPoint(1) & "," & _
   
9.                 T.InsertionPoint(2) & ")" & vbCrLf & "字高:" & T.Height
     `+ E3 F! n2 f
10.                 Exit For
    " e6 H, Y( O* s5 A! o
11.             End If
    0 L5 X, f) k8 x, i- G
12.         End If
    9 k) m  Z. Z: j( P" {+ O
13.     Next

复制代码

157787698

2# woaishuijia
1 K& j+ n+ Q1 V9 b: Y3 J- A
哥们，你太强了
我想知道你是做什么的