求助標示圖層LSP

BILL.PU · 发表于 2009-11-16 21:01:37

您需要登录才可以下载或查看，没有帐号？注册

x

線上大大们,求助，標示圖層
如圖把圖層一一標示出來
謝謝!!

woaishuijia · 发表于 2009-12-11 20:30:58

VBA代码,供参考

/ Y8 z2 c' l2 k
Dim B As AcadBlock, E As AcadEntity, P As Variant, Ps(5) As Double, MT As AcadMText
" ^: i7 w. c V" S5 f2 J! W$ c
With ThisDrawing7 i/ O& k* e$ Y( P3 Z& s
On Error GoTo 10
2 Y4 ^% c, Y! D+ a0 ~
If .ActiveSpace = acModelSpace Then: D9 G$ f8 s+ d2 S. E0 _7 u ]
Set B = .ModelSpace
3 z) P4 s5 W/ A; g) v, F
Else4 W3 A: j n+ h s: r& ?2 z+ @% Y: p
Set B = .PaperSpace
! a7 L0 ]2 V5 [5 e
End If6 p) a8 y& o% L/ G0 r3 a3 h6 G
.Utility.GetEntity E, P, vbCrLf & "选择对象:"
8 v! }- r: m& e: n
Ps(0) = P(0): Ps(1) = P(1): Ps(2) = P(2) s' p; }" M# b/ |
P = .Utility.GetPoint(P, vbCrLf & "指定文字插入点:" )
4 i9 o( k# U/ q8 u' N6 `3 J
Set MT = B.AddMText(P, 0, "%<\AcObjProp Object(%<\_ObjId " & E.ObjectID & ">%).Layer>%" ); ~0 v# h1 o) J# }( I* k
B.AddLeader Ps, MT, acLineWithArrow
( H+ s9 |) x. k: B+ I# Y
10 End With
- @& n+ v5 y+ `

复制代码

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

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

通知