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
- r6 r( W! ]$ A1 Y. J* W4 f0 f
S = "XXX"0 i# x4 m8 D7 n: P4 C' Z1 Z+ K% @( [
For Each E In ThisDrawing.ModelSpace
, D4 n9 n# F; g+ E
If E.ObjectName = "AcDbText" Then
, t2 u3 l0 T; H
Set T = E" E/ m/ [7 {9 l! L
If T.TextString = S Then
. w ?% T% s. T3 X
MsgBox "单行文字" & S & "的位置:" & vbCrLf & _
: U5 n! @& y# {1 |# ^ M# L7 k
"(" & T.InsertionPoint(0) & "," & T.InsertionPoint(1) & "," & _
, G* B: U U8 w" D6 E4 N
T.InsertionPoint(2) & ")" & vbCrLf & "字高:" & T.Height
, { |8 h; \1 Q! N0 ~# N0 x7 }! D
Exit For4 c; ^, @& q0 U# T
End If
4 g+ h" C$ k# ^9 u* @
End If3 I& Y. A& C& ~- N1 d; m- W
Next

复制代码

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

2# woaishuijia

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

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

全站		goto3d 说: 此次SW竞赛获奖名单公布如下，抱歉晚了，版主最近太忙：一等奖：塔山817；二等奖：a9041、飞鱼；三等奖：wx_dfA5IKla、xwj960414、bzlgl、hklecon；请以上各位和版主联系，领取奖金！！！	2022-03-11
全站		goto3d 说: 在线网校新上线表哥同事（Mastercam2022）+虞为民版大（inventor2022）的最新课程，来围观吧！	2021-06-26

通知