|
|
本帖最后由 wenwengg 于 2011-2-25 08:56 编辑
% m0 b! _0 r F4 i k: s" M$ T* P' S
4 p% |5 f" m! e9 NSub ResetBlock()8 W( s) c T) s; Y0 o6 W$ o
On Error Resume Next2 x1 {% u: B& ]* V$ ^' T3 D
Dim blockEnt As Object
% e9 s$ K( O# `1 V0 {For Each blockEnt In ThisDrawing.Blocks
& ]0 ?3 `6 R& yblockEnt.Explodable = True '设置可分解0 L, n. `4 k' @$ o
Next: W3 W. S8 h- l4 r+ l7 ?, O
End Sub |
|
发表于 2011-2-24 19:45
发表于 2011-2-25 07:58
楼主