lisp代码爆炸图块，保留图块的属性文字

图块定义：

命令:
命令: BLOCKQQ
Enter block name <Return to select>:
Select a block:
Enter an entity type <Return for all>:
Press ESC to exit or any key to continue.
((0 . "BLOCK") (2 . "文字") (70 . 2) (4 . "") (10 0.0 0.0 0.0) (-2 . <图元名: 20ca6059800>))
((-1 . <图元名: 20ca6059800>) (0 . "ATTDEF") (330 . <图元名: 20ca6057ed0>) (5 . "578") (100 . "AcDbEntity") (67 . 0) (8 . "0") (100 . "AcDbText") (10 -3.49736 3.28912 0.0) (40 . 3.5) (1 . "KV-207") (50 . 0.0) (41 . 1.0) (51 . 0.0) (7 . "Standard") (71 . 0) (72 . 0) (11 0.0 0.0 0.0) (210 0.0 0.0 1.0) (100 . "AcDbAttributeDefinition") (280 . 0) (3 . "阀门位号") (2 . "阀门位号") (70 . 1) (73 . 0) (74 . 0) (280 . 0) (-3 ("AcDbBlockRepETag" (1070 . 1) (1071 . 2) (1005 . "0"))))
((-1 . <图元名: 20ca6059810>) (0 . "ATTDEF") (330 . <图元名: 20ca6057ed0>) (5 . "579") (100 . "AcDbEntity") (67 . 0) (8 . "0") (100 . "AcDbText") (10 -0.692549 0.513472 0.0) (40 . 2.5) (1 . "0") (50 . 0.0) (41 . 1.0) (51 . 0.0) (7 . "Standard") (71 . 0) (72 . 0) (11 0.0 0.0 0.0) (210 0.0 0.0 1.0) (100 . "AcDbAttributeDefinition") (280 . 0) (3 . "长度") (2 . "长度") (70 . 0) (73 . 0) (74 . 0) (280 . 1) (-3 ("AcDbBlockRepETag" (1070 . 1) (1071 . 4) (1005 . "0"))))
((-1 . <图元名: 20ca6059820>) (0 . "ATTDEF") (330 . <图元名: 20ca6057ed0>) (5 . "57A") (100 . "AcDbEntity") (67 . 0) (8 . "0") (100 . "AcDbText") (10 -0.794433 -3.72974 0.0) (40 . 2.0) (1 . "1") (50 . 0.0) (41 . 1.0) (51 . 0.0) (7 . "Standard") (71 . 0) (72 . 0) (11 0.0 0.0 0.0) (210 0.0 0.0 1.0) (100 . "AcDbAttributeDefinition") (280 . 0) (3 . "页码") (2 . "页码") (70 . 1) (73 . 0) (74 . 0) (280 . 1) (-3 ("AcDbBlockRepETag" (1070 . 1) (1071 . 5) (1005 . "0"))))
命令:
命令:
BLOCKQQ
Enter block name <Return to select>:
Select a block:
" no block found."

CAD自带指令BURST的lisp源代码：