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

157787698

RT，如何做呢？
! X/ f4 {1 z7 @9 w
另外，如何取得图纸中特定文字的高度呢？

# g8 g9 k7 M  F7 z请用VBA

woaishuijia

1.     Dim E As AcadEntity, T As AcadText, S As String
   * W2 d  z$ g7 g
2.     S = "XXX"
   - N7 `* w' V7 o! q! @( r+ c
3.     For Each E In ThisDrawing.ModelSpace
   
4.         If E.ObjectName = "AcDbText" Then
   
5.             Set T = E
   
6.             If T.TextString = S Then
   
7.                 MsgBox "单行文字" & S & "的位置:" & vbCrLf & _
   8 [& z2 r& Z( }5 f! o5 u; T
8.                 "(" & T.InsertionPoint(0) & "," & T.InsertionPoint(1) & "," & _
   
9.                 T.InsertionPoint(2) & ")" & vbCrLf & "字高:" & T.Height
   : U/ _9 J, F: V, Q, Z  v7 ~
10.                 Exit For
    , R* A" z1 U# L
11.             End If
    + g& F. I: k" |* T' X) ]/ O
12.         End If
    / z8 I9 N2 D" S' Z: N
13.     Next

复制代码

157787698

2# woaishuijia
) H* K0 E3 S* |$ h- r
哥们，你太强了
我想知道你是做什么的