6 _. L2 k F; z" r4 [ ; {# s7 E) h# B, A( `Sub Main- g. q# `. j6 O/ @ g
' 获取当前设计" q! k3 ~# v* S
Dim design As Object. M5 m4 X1 }" S9 m
Set design = ActiveDocument( M5 q' [/ k! d: K& `) u
$ m% u2 Z0 c7 B ' 获取当前层 " K% e: V5 T I/ q- ]) u+ F Dim layer As Object L U0 n8 {- x9 E' m Set layer = design.CurrentLayer% A" T/ o5 U' M4 l: ~7 _- x" }& m* x
7 P2 F g2 W1 _+ f! V. ]4 ` ' 获取当前选中的对象( i1 i q/ p* M' U/ K& ]' h
Dim selectedShapes As Object x! [2 s" _5 S- p, h4 A( V7 X
Set selectedShapes = design.SelectedObjects6 [ U S+ b; ~' v
5 r) X2 P6 o+ F8 D0 I ' 遍历选中的对象3 C) P; j) D3 k j; B9 i
Dim shape As Object # ]: s$ l5 m. f2 g; T6 H! Z' J For Each shape In selectedShapes" y, m# h v" }/ a
' 检查对象是否为形状: q H8 P1 g5 Z: ?" G/ f7 @
If shape.Type = "Shape" Then R ]! A/ N+ f! o( N ' 将形状转换为铜皮: m8 q' @" I3 F9 C& ^) H' D
shape.ConvertToCopper " z: ^' A5 [& M3 ?0 H End If+ M S0 x* i5 Y1 I! Z" t
Next shape, a& n4 x$ |0 Y: u
End Sub " \. W! }: v3 n3 l: B( Q8 d. k% Y# V1 O" s