lisp如何提取标注内文字

ljxkm

选取标注图元，得到如下数据：
         ((-1 . <图元名: 7ef5ff00>) (0 . "DIMENSION") (330 . <图元名: 7ef5fcf8>) (5 .
"98") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (100 .
"AcDbDimension") (2 . "*D2") (10 1152.77 435.766 0.0) (11 1040.1 437.85 0.0)
(12 0.0 0.0 0.0) (70 . 32) (1 . "") (71 . 5) (72 . 1) (41 . 1.0) (42 . 225.344)
(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 927.426 355.372 0.0) (14 1152.77 299.445
0.0) (15 0.0 0.0 0.0) (16 0.0 0.0 0.0) (40 . 0.0) (50 . 0.0) (100 .
"AcDbRotatedDimension"))
群吗1后面为"",不知如何取得实际的尺寸标注值。

fangmin723

jiang__jin 发表于 2021-4-22 13:44
有xyp-DXF函数吗

(defun xyp-DXF(dxf ent) (cdr (assoc dxf (entget ent))))

天宇飞翔12

同问xyp-DXF函数在哪？

xyp1964

(xyp-DXF 42 (car (entsel "\n选择尺寸标注: ")))

ljxkm

感谢啊版主，

清风明月名字

我正想写呢。谢谢了！

819534890

xyp1964 发表于 2014-5-8 19:49
(xyp-DXF 42 (car (entsel "\n选择尺寸标注: ")))

不完全正确。当（1 、 “”）的内容是空白时才是42，若非空，应该为1里面的内容。

xyp1964

819534890 发表于 2014-5-8 21:37
不完全正确。当（1 、 “”）的内容是空白时才是42，若非空，应该为1里面的内容。

2. (setq s1 (car (entsel "\n选择: ")))
   
3. (if (/= (setq tx (xyp-DXF 1 s1)) "")
   
4.   (distof tx)
   
5.   (xyp-DXF 42 s1)
   
6. )

(setq s1 (car (entsel "\n选择: ")))<br /> (if (/= (setq tx (xyp-DXF 1 s1)) "")<br />   (distof tx)<br />   (xyp-DXF 42 s1)<br /> )

819534890

xyp1964 发表于 2014-5-8 22:03

对的，42是真实值，1是手动输入的值。
楼主如果要显示的值的话就先判断1是否空白，如果要真实值，就直接取42.

czcxxx

感谢啊版主！！！！！！！！！！！！！

czcxxx

感谢啊版主！！！！！！！！！！！！！！！！！！

yuun

可以先将标注炸开，提取炸开后的文字，再将炸开后的标注删除。