|
|
发表于 2009-12-11 20:30:58
|
显示全部楼层
来自： 中国
VBA代码,供参考
a8 ~: V4 p% ^9 }! c. f: c" V- Dim B As AcadBlock, E As AcadEntity, P As Variant, Ps(5) As Double, MT As AcadMText/ ^5 L% \! g' F1 w
- With ThisDrawing1 G# M( [; e3 P. n9 d/ I
- On Error GoTo 10
) T/ E6 e S6 i4 f& [ - If .ActiveSpace = acModelSpace Then
3 I5 c4 ~7 Q+ i$ ]* q/ C8 ^* o - Set B = .ModelSpace
( P. @2 B) L% L4 F$ Y - Else
$ l2 c3 c3 m9 O7 X9 h6 s7 L - Set B = .PaperSpace
2 Z3 L9 F% Q6 c, s3 R, R& I - End If
3 d9 `3 P! I( S: n9 O! r' a- q - .Utility.GetEntity E, P, vbCrLf & "选择对象:"3 }& K r2 E* m( r+ b& S; K4 V4 w) I
- Ps(0) = P(0): Ps(1) = P(1): Ps(2) = P(2)6 P+ ^* {6 W. F1 t8 a
- P = .Utility.GetPoint(P, vbCrLf & "指定文字插入点:" )0 t4 T+ O) {% D, E$ I
- Set MT = B.AddMText(P, 0, "%<\AcObjProp Object(%<\_ObjId " & E.ObjectID & ">%).Layer>%" ); `# V- z8 n$ P# y5 ?
- B.AddLeader Ps, MT, acLineWithArrow; S, D' z5 t: y- a9 g, P
- 10 End With
+ C4 r$ V4 J3 P$ \3 M
|
|
发表于 2009-11-16 21:01:37
