[LISP程序]：请问如何获得文字高度等信息

tcy200489

选择对象: ((-1 . <图元名: 7ef7cc28>) (0 . "DIMENSION") (5 . "265") (102 .
"{ACAD_XDICTIONARY") (360 . <图元名: 7ef7cc90>) (102 . "}") (102 .
"{ACAD_REACTORS") (330 . <图元名: 7ef7cce0>) (102 . "}") (330 . <图元名:
7ef5dcf8>) (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (100 .
"AcDbDimension") (2 . "*D2") (10 1930.75 360.414 0.0) (11 1836.49 509.032 0.0)
(12 0.0 0.0 0.0) (70 . 33) (1 . "") (71 . 5) (72 . 1) (41 . 1.0) (42 . 349.496)
(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 1709.94 631.326 0.0) (14 1930.75 360.414
0.0) (15 0.0 0.0 0.0) (16 0.0 0.0 0.0) (40 . 0.0) (50 . 0.0))
以上是一个线性标注的dxf组码,请问如何获得文字高度等信息?

kohi

[php]
1。题目最好是：。。。尺寸文字高度。。。
2。 从数据表中找出尺寸样式， 再由尺寸样式表中找出尺寸文字高度：
(defun c:test1 ()
  (setq dim (car (entsel "\nSelect Dimension:")))
  (setq dimsty (cdr (assoc 3 (entget dim))))
  (setq th (cdr (assoc 140 (tblsearch "dimstyle" dimsty))))
  th
)
3。使用VLISP更简单：
(defun c:test ()
  (setq dim (car (entsel "\nSelect Dimension:")))
  (setq th (vla-get-textheight (vlax-ename->vla-object dim)))
  th
)
[/php]

倒数第一名

好东西，我正在想找这个东西呢。谢谢。

yanhuafeishi

谢谢了

fflsnow

能直接看的吧,用LIST命令!