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 h* G: i; {$ }4 y/ z- N
S = "XXX"
2 i! [+ ]( j% z
For Each E In ThisDrawing.ModelSpace
3 X2 j( A( Z# i# Z/ C4 q- M4 m
If E.ObjectName = "AcDbText" Then
; W, t @0 Q8 h2 F
Set T = E* ~6 i/ ~9 {6 D9 H
If T.TextString = S Then) \8 s& @- M; L" p x
MsgBox "单行文字" & S & "的位置:" & vbCrLf & _
3 k4 B4 Q1 C4 A! I2 T: z) e# B
"(" & T.InsertionPoint(0) & "," & T.InsertionPoint(1) & "," & _& y! _! S- D4 o# \: f9 B
T.InsertionPoint(2) & ")" & vbCrLf & "字高:" & T.Height+ N, C0 y( Z) @/ S Z1 P$ K
Exit For' @7 e# J9 F- Y# U9 g2 {0 S
End If. P1 Y6 i( F5 F' ~! G3 K6 F
End If9 k0 p0 j* u3 h# a
Next

复制代码

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

2# woaishuijia

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

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

通知