|
本帖最后由 wenwengg 于 2011-2-25 08:56 编辑
5 ~) V! X7 U# M c. C2 X1 {9 g t2 N# w; A, F: i4 x
Sub ResetBlock()
9 E5 ?" K% t% V& v4 W# N( qOn Error Resume Next
; P1 o& e0 C* G, HDim blockEnt As Object
0 s. ~# Y- Q* ?/ xFor Each blockEnt In ThisDrawing.Blocks
+ m: X# E# G& p6 i! l- N/ o9 XblockEnt.Explodable = True '设置可分解
7 |; g8 A; J& X: ZNext$ y1 ^4 s# Z/ B. y) @7 y3 P0 p
End Sub |
|