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 String6 f7 G- K2 F' _! \
S = "XXX"
0 W5 A! t4 ]1 |& Q' q
For Each E In ThisDrawing.ModelSpace2 Y# P* l) G; _
If E.ObjectName = "AcDbText" Then- }+ V% _$ E6 C+ i: r
Set T = E
1 G* T) a. e2 `( i! _' K
If T.TextString = S Then
7 B: J' P$ h3 a0 b- s
MsgBox "单行文字" & S & "的位置:" & vbCrLf & _# I% S8 z# Q0 }: S4 i
"(" & T.InsertionPoint(0) & "," & T.InsertionPoint(1) & "," & _3 {" A9 n" G2 ~) f( I4 y8 I
T.InsertionPoint(2) & ")" & vbCrLf & "字高:" & T.Height
8 \: H2 Y- P4 } ~+ c# o- Z- w
Exit For! K, H v1 l: c; _# A, u Y5 r
End If
, d/ b: Z5 c8 x g% |, x$ a, P3 l
End If" `1 F$ F. Z' O8 ?
Next

复制代码

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

2# woaishuijia

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

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

通知