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

157787698

RT，如何做呢？
/ Y* s2 o9 I( P8 ?) ^2 `
* d5 s! N( N+ r/ @3 K另外，如何取得图纸中特定文字的高度呢？

请用VBA

woaishuijia

1.     Dim E As AcadEntity, T As AcadText, S As String
   1 J1 D- Q5 ^! Q
2.     S = "XXX"
   
3.     For Each E In ThisDrawing.ModelSpace
   4 [0 N) G1 d( c2 Y7 h* z
4.         If E.ObjectName = "AcDbText" Then
   8 N+ \; L" J* X% g- c3 U$ C3 ?* e
5.             Set T = E
   
6.             If T.TextString = S Then
   + x* @3 Q! R  |" i% a
7.                 MsgBox "单行文字" & S & "的位置:" & vbCrLf & _
   % @) m7 D: e9 D5 u
8.                 "(" & T.InsertionPoint(0) & "," & T.InsertionPoint(1) & "," & _
     S5 Q6 @, f' X! S
9.                 T.InsertionPoint(2) & ")" & vbCrLf & "字高:" & T.Height
   % q1 {$ O2 J( _! b0 B, ?9 S
10.                 Exit For
    0 l' p0 z; R  @8 P1 F. v6 o
11.             End If
    
12.         End If
    & e! b  ^" h% u* D$ `
13.     Next

复制代码

157787698

2# woaishuijia

哥们，你太强了
6 ]/ ^$ g" I" l2 T" @0 h我想知道你是做什么的