|
本帖最后由 wenwengg 于 2011-2-25 08:56 编辑
# _+ P0 j$ @" f8 j/ C/ N/ g& a) X( r# ] x
Sub ResetBlock()
# k" x4 W9 G2 ?2 N8 Y8 Y! G; \On Error Resume Next' a7 s# k v* M( ], Q3 n4 \; w
Dim blockEnt As Object
5 B) e* S9 g" i( IFor Each blockEnt In ThisDrawing.Blocks
- P4 ?: f( l7 Y3 DblockEnt.Explodable = True '设置可分解
7 e3 h% Y5 A3 A4 d( ^" W# {Next
+ \& w3 k6 O) q- R: HEnd Sub |
|