求助標示圖層LSP

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

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

x

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

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

VBA代码,供参考

: G" p7 ~1 y- ^( U0 d1 c, }& `
Dim B As AcadBlock, E As AcadEntity, P As Variant, Ps(5) As Double, MT As AcadMText/ ?( n7 p6 f- U) {8 Y3 c( v
With ThisDrawing
( y6 m! l9 R: ]# ^0 V* M
On Error GoTo 10
# S7 ~6 Z- y9 J" C
If .ActiveSpace = acModelSpace Then. [) n f7 l5 p& B: b3 ?% y; T6 b
Set B = .ModelSpace
6 z# C$ P4 M4 v* l* ^4 B- L
Else P0 `3 V$ [, B4 P
Set B = .PaperSpace
. j( _2 l3 x3 H ?4 y3 { s; v
End If5 E- y; x. g+ E
.Utility.GetEntity E, P, vbCrLf & "选择对象:"
" P9 f+ F- M+ D6 t, O8 M
Ps(0) = P(0): Ps(1) = P(1): Ps(2) = P(2)
1 v- [3 d( r0 H$ E7 v, o
P = .Utility.GetPoint(P, vbCrLf & "指定文字插入点:" )
3 v; B5 ^+ G0 Y y- U) I/ C b
Set MT = B.AddMText(P, 0, "%<\AcObjProp Object(%<\_ObjId " & E.ObjectID & ">%).Layer>%" )0 A3 s9 ]8 Z, H6 u9 J
B.AddLeader Ps, MT, acLineWithArrow1 \( H, V) J7 }+ E( {/ [% E* _; A
10 End With
. _2 x6 k w n# Q1 F# \

复制代码

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

通知