|
|
发表于 2009-12-11 20:30:58
|
显示全部楼层
来自： 中国
VBA代码,供参考- / N1 U1 X7 Q) c! Y* R* G2 ~
- Dim B As AcadBlock, E As AcadEntity, P As Variant, Ps(5) As Double, MT As AcadMText' f) I# g$ c' o6 m }, E& E
- With ThisDrawing, S6 j, Q% S- G( S$ j$ u5 i' l
- On Error GoTo 10
/ }1 k$ A+ d. i6 r% k - If .ActiveSpace = acModelSpace Then- I) I. e4 V6 _9 h
- Set B = .ModelSpace
; H% [- o2 G! ~ L6 M - Else& M* b! d; X% p l) K
- Set B = .PaperSpace
: a1 b+ ~! }3 n/ B - End If& |, v0 I) D' f( l
- .Utility.GetEntity E, P, vbCrLf & "选择对象:" p$ c8 X* b. w$ L1 R
- Ps(0) = P(0): Ps(1) = P(1): Ps(2) = P(2)# v3 A' N6 S! z
- P = .Utility.GetPoint(P, vbCrLf & "指定文字插入点:" )
% L; t3 J, \9 q' d4 N - Set MT = B.AddMText(P, 0, "%<\AcObjProp Object(%<\_ObjId " & E.ObjectID & ">%).Layer>%" ). g0 l" p# l( |1 w7 ], Z4 n8 O
- B.AddLeader Ps, MT, acLineWithArrow
1 O/ a9 a( I4 j i% L - 10 End With
% Y2 Z, W8 s3 k1 D: C) {
|
|
发表于 2009-11-16 21:01:37
