|
本帖最后由 wenwengg 于 2011-2-25 08:56 编辑
5 m: L7 A- Y. D. I |( D( m; N4 t h; t6 {. J7 {
Sub ResetBlock()
& \4 C8 q9 ~# j& t6 d. sOn Error Resume Next
% d# C2 I& {" t! r6 SDim blockEnt As Object
) g p4 H/ G6 L" m' |For Each blockEnt In ThisDrawing.Blocks5 ?% Q' F9 Q, M1 V1 S
blockEnt.Explodable = True '设置可分解6 r, a# e0 |: C) e5 G* E# L
Next" K. E6 X; g; M- ?* B
End Sub |
|