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* O$ M2 v' P: Z% P- ~4 a0 F
S = "XXX"
9 M6 y# A. p9 Y
For Each E In ThisDrawing.ModelSpace
/ z+ `/ G9 ?+ e
If E.ObjectName = "AcDbText" Then
' |5 D9 e. ^5 G7 ?+ N0 ~" U4 A
Set T = E! C4 T, t/ d" [3 l
If T.TextString = S Then+ l0 W& A9 S; ?9 {
MsgBox "单行文字" & S & "的位置:" & vbCrLf & _
5 ]+ _( ?% s. V8 C1 I$ J9 g. U
"(" & T.InsertionPoint(0) & "," & T.InsertionPoint(1) & "," & _- f' h( u, `- O: z& y% J1 B
T.InsertionPoint(2) & ")" & vbCrLf & "字高:" & T.Height- Q% Y7 [, w1 T- H9 o# O5 G2 `
Exit For" ^2 F) L. E. J3 E$ E" S/ J. K
End If
/ g! |* i7 e2 i6 q6 }* d
End If
* H& }9 W: [1 u4 O
Next

复制代码

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

2# woaishuijia

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

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

通知