|
|
发表于 2009-12-11 20:30:58
|
显示全部楼层
来自： 中国
VBA代码,供参考
$ @3 {2 _ q8 N5 P. E. g: l- Dim B As AcadBlock, E As AcadEntity, P As Variant, Ps(5) As Double, MT As AcadMText' F/ M, I: b' S( A: |
- With ThisDrawing, W% s$ ^4 a3 D) Z4 a$ s
- On Error GoTo 10
2 O# d7 ]- ]) i8 O- L - If .ActiveSpace = acModelSpace Then
& f$ Z* ^* l* L - Set B = .ModelSpace; y: I$ m; x* Q, P, B( `- l3 t
- Else5 d8 c0 R4 r& V/ a
- Set B = .PaperSpace
) l( D) f" u$ T2 J - End If6 h; ]0 q# y* d! S6 c
- .Utility.GetEntity E, P, vbCrLf & "选择对象:", P4 V$ W5 `8 z9 Y
- Ps(0) = P(0): Ps(1) = P(1): Ps(2) = P(2)
( e+ z& v+ n- r- j& V' A3 X( V - P = .Utility.GetPoint(P, vbCrLf & "指定文字插入点:" )/ k! h0 x0 ]( j; z
- Set MT = B.AddMText(P, 0, "%<\AcObjProp Object(%<\_ObjId " & E.ObjectID & ">%).Layer>%" )
+ ^3 `! \: p0 r - B.AddLeader Ps, MT, acLineWithArrow+ n( Y" a* y- a- W; W& \6 L
- 10 End With
$ [0 N2 F5 {0 l% g2 L$ A* x3 w0 @
|
|
发表于 2009-11-16 21:01:37
