求助標示圖層LSP

BILL.PU · 发表于 2009-11-16 21:01:37

您需要登录才可以下载或查看，没有帐号？注册

x

線上大大们,求助，標示圖層
如圖把圖層一一標示出來
謝謝!!

woaishuijia · 发表于 2009-12-11 20:30:58

VBA代码,供参考

# h# v8 Z0 O% e& N: w! A
Dim B As AcadBlock, E As AcadEntity, P As Variant, Ps(5) As Double, MT As AcadMText
, I6 c/ z8 d1 m$ D/ m1 H0 [3 A
With ThisDrawing1 a* Y% j% T0 E# L/ C
On Error GoTo 109 ]7 D M+ O9 {
If .ActiveSpace = acModelSpace Then5 n/ W1 s6 k: e- A6 K0 f
Set B = .ModelSpace
9 M- v; E; H- ~" y
Else
" F& G) X) a' D; d ^$ [
Set B = .PaperSpace
9 t* n% U L; l9 M4 O! Y5 F# m$ [' n
End If
i1 V. [# x5 j* b/ ~
.Utility.GetEntity E, P, vbCrLf & "选择对象:"8 P* @; }( {& w
Ps(0) = P(0): Ps(1) = P(1): Ps(2) = P(2)( E0 H: a4 a- c& W1 e3 r9 \1 |
P = .Utility.GetPoint(P, vbCrLf & "指定文字插入点:" )
# {9 A- W; Y& J$ a3 h% }
Set MT = B.AddMText(P, 0, "%<\AcObjProp Object(%<\_ObjId " & E.ObjectID & ">%).Layer>%" )1 X+ \* u( d" T$ @/ K
B.AddLeader Ps, MT, acLineWithArrow8 G& o' k/ G8 e/ Q+ H
10 End With, k( f0 [- s4 P2 C, z$ [) ?

复制代码

		自动登录	找回密码
密码			注册

通知