如何取得无名块中的数据

qhdqsj

以下是CAD中一个标注的查询结果，但我几次努力，始终无法得到（2.“*D22”）中“*d22”中的数据。当然通过另一途径“list"可以得到，但得到结果只能“看”，不能使用。请高手赐教，如何能在lisp中得到？

1st Text: ((-1 . <图元名: 7e49af60>) (0 . "DIMENSION") (5 . "314") (102 .
"{ACAD_XDICTIONARY") (360 . <图元名: 7e49af68>) (102 . "}") (102 .
"{ACAD_REACTORS") (330 . <图元名: 7e49af70>) (102 . "}") (330 . <图元名: 7e498cf8>)
(100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "bz") (100 .
"AcDbDimension") (2 . "*D22") (10 2026.98 784.47 0.0) (11 1954.38 784.47 0.0)
(12 0.0 0.0 0.0) (70 . 160) (1 . "") (71 . 5) (72 . 1) (41 . 1.0) (42 . 184.0)
(73 . 0) (74 . 0) (75 . 0) (52 . 0.0) (53 . 0.0) (54 . 0.0) (51 . 0.0) (210 0.0
0.0 1.0) (3 . "ISO-25") (100 . "AcDbAlignedDimension") (13 1842.98 849.232 0.0)
(14 2026.98 849.232 0.0) (15 0.0 0.0 0.0) (16 0.0 0.0 0.0) (40 . 0.0) (50 .
0.0) (100 . "AcDbRotatedDimension"))

hhc

(entget (tblobjname "BLOCK" "*D22"))

qhdqsj

十分感谢HHC朋友。终于得见“*022"的真面目了。