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

157787698 · 发表于 2010-9-14 09:23:11

您需要登录才可以下载或查看，没有帐号？注册

x

RT，如何做呢？

另外，如何取得图纸中特定文字的高度呢？

请用VBA

woaishuijia · 发表于 2010-9-14 11:38:58

Dim E As AcadEntity, T As AcadText, S As String
$ Z6 C' v: l0 s$ U! ^/ B
S = "XXX"' `5 A8 \( i$ V. A, l
For Each E In ThisDrawing.ModelSpace
$ a y( E3 N% l& P
If E.ObjectName = "AcDbText" Then6 @& `3 a& T$ o7 C
Set T = E, q* N% X( _3 q+ g$ S
If T.TextString = S Then
3 |+ I, k/ W3 w$ P+ l4 _
MsgBox "单行文字" & S & "的位置:" & vbCrLf & _9 F. c% K# J4 f4 @6 r& x5 ~+ C! U, B
"(" & T.InsertionPoint(0) & "," & T.InsertionPoint(1) & "," & _
7 T2 H% r/ t. |1 V$ ^
T.InsertionPoint(2) & ")" & vbCrLf & "字高:" & T.Height) e9 F7 J, h1 [* V: A
Exit For
: s- l% ^9 O4 z7 A* `: s
End If: m ~6 J, D \& m P
End If$ t t% \4 `; N3 W0 n! d( _
Next

复制代码

157787698 · 发表于 2010-9-14 16:12:34

2# woaishuijia

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

		自动登录	找回密码
密码			注册

通知