怎么炸开多重定义块儿！不要炸断尺寸线

怎么炸开多重定义块儿！不要炸断尺寸线

矛与盾的关系
有人用多重镶套块达到加密的目的，也有人去炸

1. ;;;功能：炸开当前图档中全部匿名块（包含镶套）
   
2. ;;;日期：zml84 于 2009-09-27
   
3. (setvar "EXPLMODE" 1)
   
4. (setvar "qaflags" 1)
   
5. (while (setq SS        (ssget "X"
   
6.                        '((0 . "INSERT")
   
7.                          (100 . "AcDbBlockReference")
   
8.                          (2 . "`*U*")
   
9.                         )
   
10.                 )
    
11.        )
    
12.     (princ "\n发现匿名块: ")
    
13.     (princ (sslength SS))
    
14.     (command "_.EXPLODE" SS "")
    
15. )

复制代码