求助標示圖層LSP

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

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

x

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

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

VBA代码,供参考

; @2 I0 D3 c) [& w
Dim B As AcadBlock, E As AcadEntity, P As Variant, Ps(5) As Double, MT As AcadMText
- W2 \4 I: K2 A; e& v9 o! u
With ThisDrawing
- l3 p j, R' C. a4 Y. o
On Error GoTo 10* U8 r/ ]) c+ j3 Y9 V
If .ActiveSpace = acModelSpace Then% M$ y3 W! A: E2 W
Set B = .ModelSpace( Z8 a) x5 k. V4 w% s" Z6 V. M( j
Else
2 z' Z1 i! [2 Q2 Y
Set B = .PaperSpace
# k' \+ z, z0 a: l% ~7 f2 H
End If4 m. j2 o0 E# e4 q+ ]: Y
.Utility.GetEntity E, P, vbCrLf & "选择对象:"* x) q8 e, c! G6 ^, T( P$ V" P
Ps(0) = P(0): Ps(1) = P(1): Ps(2) = P(2)
% S' }; ~: v( B
P = .Utility.GetPoint(P, vbCrLf & "指定文字插入点:" )
9 f/ _# T8 }* ~( h. B6 a* S
Set MT = B.AddMText(P, 0, "%<\AcObjProp Object(%<\_ObjId " & E.ObjectID & ">%).Layer>%" )
: g2 k d" Q }
B.AddLeader Ps, MT, acLineWithArrow
' C' V/ p3 I6 z: y3 p! c0 O6 @; b
10 End With2 T0 T# N k2 |# g5 I" c

复制代码

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

通知