求助標示圖層LSP

BILL.PU

線上大大们,求助，標示圖層
: t6 O! M9 \3 A0 B* I! \- c如圖把圖層一一標示出來
' E/ j" [9 O/ R! ]& n0 {0 O. U* c6 V' ~, i謝謝!!

woaishuijia

VBA代码,供参考

1. 
   
2.     Dim B As AcadBlock, E As AcadEntity, P As Variant, Ps(5) As Double, MT As AcadMText
   
3.     With ThisDrawing
   - X  v# l- {! {
4.         On Error GoTo 10
   - v+ @- z, W' N6 m8 D0 d9 I
5.         If .ActiveSpace = acModelSpace Then
   ' ]$ A% q, E, T& v
6.             Set B = .ModelSpace
   4 B# W; G5 d6 X' w# v
7.         Else
   , h1 S& G% X! c. L% ^8 |
8.             Set B = .PaperSpace
   $ `* W$ j: [7 Z! L& M3 R
9.         End If
   " Q, d9 ^+ c: z- R8 m: ?
10.         .Utility.GetEntity E, P, vbCrLf & "选择对象:"
    " V6 {5 z' j5 G- B0 n: Y
11.         Ps(0) = P(0): Ps(1) = P(1): Ps(2) = P(2)
    ) C& H# P" w6 S+ m) J
12.         P = .Utility.GetPoint(P, vbCrLf & "指定文字插入点:" )
    
13.         Set MT = B.AddMText(P, 0, "%<\AcObjProp Object(%<\_ObjId " & E.ObjectID & ">%).Layer>%" )
    
14.         B.AddLeader Ps, MT, acLineWithArrow
    
15. 10    End With
    ! i1 \5 ~7 k* j% @1 d3 x8 ^

复制代码