|
|
发表于 2009-12-11 20:30:58
|
显示全部楼层
来自： 中国
VBA代码,供参考
! ]# G2 @0 F) l- Dim B As AcadBlock, E As AcadEntity, P As Variant, Ps(5) As Double, MT As AcadMText: @4 S4 @( d+ h* ?4 Z
- With ThisDrawing
) J& l; c9 g, L0 X* m6 v, \0 a - On Error GoTo 104 [; N( g8 ~6 h
- If .ActiveSpace = acModelSpace Then
4 H5 v% d' G X; t9 E# q - Set B = .ModelSpace. Q% v; U, b( q! K
- Else
5 p* j1 u7 K% E - Set B = .PaperSpace& A2 d3 ^- r$ p6 d) a
- End If8 J0 r' J& |* C+ g! {5 E
- .Utility.GetEntity E, P, vbCrLf & "选择对象:"
4 x B) F! q( d$ B0 w; [( p - Ps(0) = P(0): Ps(1) = P(1): Ps(2) = P(2)2 f. F7 {* D) ?# e$ ?
- P = .Utility.GetPoint(P, vbCrLf & "指定文字插入点:" )
/ \' r) S1 K1 l/ _3 u8 N# h0 Y - Set MT = B.AddMText(P, 0, "%<\AcObjProp Object(%<\_ObjId " & E.ObjectID & ">%).Layer>%" )
6 y) r7 P; o' _! g. q - B.AddLeader Ps, MT, acLineWithArrow
8 m% D% \' L8 b% \* m/ K - 10 End With# N$ F% P: t* R8 {
|
|
发表于 2009-11-16 21:01:37
