求助標示圖層LSP

BILL.PU

線上大大们,求助，標示圖層
/ r0 Z3 _1 k# ~4 @如圖把圖層一一標示出來
謝謝!!

woaishuijia

VBA代码,供参考

1. 
   $ a$ s1 B! S: f% f
2.     Dim B As AcadBlock, E As AcadEntity, P As Variant, Ps(5) As Double, MT As AcadMText
   4 [* R. u9 T: h# f9 P
3.     With ThisDrawing
   
4.         On Error GoTo 10
   4 n- M" n: V" z; l- W& ~5 P
5.         If .ActiveSpace = acModelSpace Then
   : A) c, D" S1 v* k) l4 v
6.             Set B = .ModelSpace
   % O% Y* p; i3 t7 r! O9 x* W
7.         Else
   
8.             Set B = .PaperSpace
   
9.         End If
   7 @6 o1 i- x- v4 Z; h$ y  {) o
10.         .Utility.GetEntity E, P, vbCrLf & "选择对象:"
    
11.         Ps(0) = P(0): Ps(1) = P(1): Ps(2) = P(2)
    4 w6 }; o: u% i, C. ]
12.         P = .Utility.GetPoint(P, vbCrLf & "指定文字插入点:" )
    4 x6 f$ `9 l- W, T3 r
13.         Set MT = B.AddMText(P, 0, "%<\AcObjProp Object(%<\_ObjId " & E.ObjectID & ">%).Layer>%" )
    1 ^% h8 E, W% U; M
14.         B.AddLeader Ps, MT, acLineWithArrow
    : a0 V  R# ~) t! `* P2 ]
15. 10    End With
    6 z* c3 s7 d& E( @$ S

复制代码