[求助]：如何用lisp程序提取尺寸标注的数值内容

lxch

我使用(setq ed1(entget (car(entsel"hi:"))))语句可以得到尺寸标注的数据列表：
((-1 . <图元名: 40062eb0>) (0 . "DIMENSION") (330 . <图元名: 40062cf8>) (5 . "7E") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (100 . "AcDbDimension") (2 . "*D2") (10 12.0 4.21388 0.0) (11 6.0 6.08888 0.0) (12 0.0 0.0 0.0) (70 . 32) (1 . "") (71 . 5) (72 . 1) (41 . 1.0) (42 . 12.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 0.0 -0.625 0.0) (14 12.0 -0.625 0.0) (15 0.0 0.0 0.0) (16 0.0 0.0 0.0) (40 . 0.0) (50 . 0.0) (100 . "AcDbRotatedDimension"))
但是其中没有显示出标注的数值。
用什么方法可以得到标注的数值呢？
谢谢！

qjcpj

须深入标注实体内取其文字子实体(MTEXT),可使用nentselp函数。具体可参见本人不久前上传的gxwz.lsp文件中的RZ_DIMENSION子函数。