如何获取单个ＤＩＭＬＦＡＣ

mqschz

我想请教高手： 　　如何在ＬＩＳＰ中获取单个标注的ＤＩＭＬＦＡＣ？？？ 希望不是通过点计算得来的！！！ 谢了！！！！！

ljpnb

用这样的格式可以获取： 命令: (entget (car (entsel)) '("ACAD")) 选择对象: ((-1 . <图元名: 7efe8150>) (0 . "DIMENSION") (330 . <图元名:
7ef6ccc0>) (5 . "15A") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 .
"CONTINUOUS") (100 . "AcDbDimension") (2 . "*D2") (10 159.148 129.735 0.0) (11
116.805 131.785 0.0) (12 0.0 0.0 0.0) (70 . 32) (1 . "") (71 . 5) (72 . 1) (41
. 1.0) (42 . 21.1711) (52 . 0.0) (53 . 0.0) (54 . 0.0) (51 . 0.0) (210 0.0 0.0
1.0) (3 . "VER") (100 . "AcDbAlignedDimension") (13 74.4632 122.04 0.0) (14
159.148 122.04 0.0) (15 0.0 0.0 0.0) (16 0.0 0.0 0.0) (40 . 0.0) (50 . 0.0)
(100 . "AcDbRotatedDimension") (-3 ("ACAD" (1000 . "DSTYLE") (1002 . "{") (1070
. 40) (1040 . 1.0) (1070 . 144) (1040 . 0.25) (1002 . "}")))) 倒数第二个项为线性比例。

mqschz

哈!妙!!!


多谢!多谢!!!