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 String7 j4 [1 _* x# s
S = "XXX"9 G8 i. w1 G% K, e* g$ V q
For Each E In ThisDrawing.ModelSpace% s* g* T$ ]0 T, d
If E.ObjectName = "AcDbText" Then4 y" q: S3 y' m: R8 e5 z8 d
Set T = E
7 k1 a- ]& J3 @ m
If T.TextString = S Then5 B6 K) H, K) T
MsgBox "单行文字" & S & "的位置:" & vbCrLf & _
9 U2 f7 o0 _8 ^; `% ~; P8 }
"(" & T.InsertionPoint(0) & "," & T.InsertionPoint(1) & "," & _, \, o! V, M2 ?& `6 G/ x; Y8 l) O. l
T.InsertionPoint(2) & ")" & vbCrLf & "字高:" & T.Height% D* @( x v1 S, h: P
Exit For4 L2 j4 B0 Z6 U& Q8 O" b# O
End If
* w2 _+ w- B9 h
End If
& T7 N0 J: I9 Y3 n; Y$ |
Next

复制代码

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

2# woaishuijia

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

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

通知