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- s# y0 q1 Q6 z2 r
S = "XXX"
' k5 H2 L' S% r1 g0 q# b
For Each E In ThisDrawing.ModelSpace8 T+ ~) B" a3 g, K
If E.ObjectName = "AcDbText" Then
, J: n2 X! O2 ^; [
Set T = E
Z4 d8 ^! ?# c
If T.TextString = S Then0 b3 \: X* b8 p, P& s& C# U8 [" T! ?
MsgBox "单行文字" & S & "的位置:" & vbCrLf & _# X6 @+ ^6 Y3 i
"(" & T.InsertionPoint(0) & "," & T.InsertionPoint(1) & "," & _
$ o t5 ~* @7 E6 ]+ k6 p7 C: l% f5 o
T.InsertionPoint(2) & ")" & vbCrLf & "字高:" & T.Height' M4 v7 c9 e. S; @# U
Exit For; {. l; {/ R: e5 X* M# U5 v
End If6 k" K8 {4 H% Z* p
End If" B' r: b: [" F/ Y: z
Next

复制代码

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

2# woaishuijia

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

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

通知