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" E+ V @. d3 G9 L. A- @9 [
S = "XXX"
& G7 u" K# O/ T
For Each E In ThisDrawing.ModelSpace
0 E6 N/ V: o6 X( P% F
If E.ObjectName = "AcDbText" Then: _- g% u1 M* k1 L! t
Set T = E
% l. o8 [" R" d6 }9 u7 T9 a) D& Z
If T.TextString = S Then) ]4 Y p9 A* C; X
MsgBox "单行文字" & S & "的位置:" & vbCrLf & _
. h7 Z& o7 R& M' w
"(" & T.InsertionPoint(0) & "," & T.InsertionPoint(1) & "," & _
6 R6 U) K( W8 c
T.InsertionPoint(2) & ")" & vbCrLf & "字高:" & T.Height* D; g* _* W7 C9 |* B0 S5 S9 \* r
Exit For' i Q6 u. ~1 Q+ h2 \" [
End If
# i; Q, k8 p7 ~6 a5 x& N& Q
End If
( t0 D5 g J3 Y5 @# T( L/ p
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

通知