如果取得尺寸文字的字高

Ea

可以这样 (setq  bn (cdr (assoc 2 (entget (car (entsel "\n选择标注: "))))))然后 用 (setq blk (tblobjname "block" bn))遍历 blk 找 AcDbMtext 就可以取出字高。一段用来测试的代码

2. (defun c:test (/ e obj)
3.    (if (setq e (car (entsel)))
4.        (progn
5.            (setq obj  (vlax-ename->vla-object e)
6.          blk  (vla-item (vla-get-blocks
7.              (vla-get-activedocument (vlax-get-acad-object))
8.          )
9.          (cdr (assoc 2 (entget e)))
10.     )
11.            )
12.            (vlax-for  i blk
13.   (setq elst (cons (vla-get-objectname i) elst))
14.            )
15.        )
16.    )
17. )

(defun c:test (/ e obj)    (if (setq e (car (entsel)))        (progn            (setq obj  (vlax-ename->vla-object e)          blk  (vla-item (vla-get-blocks              (vla-get-activedocument (vlax-get-acad-object))          )          (cdr (assoc 2 (entget e)))     )            )            (vlax-for  i blk   (setq elst (cons (vla-get-objectname i) elst))            )        )    ) )

标注返回的表("AcDbPoint" "AcDbPoint" "AcDbPoint" "AcDbMText" "AcDbBlockReference"
"AcDbBlockReference" "AcDbLine" "AcDbLine" "AcDbLine")从中也可以看出DIM生成的顺序，Line、Line、Line、两边的斜线、数字、点

ljcgq

(defun c:zgg()
(SETQ SS(SSGET '((0 . "dimension"))))
(setq d(entget (ssname ss 0)))
(setq pt (cdr (assoc 11 d)))
(setq zg (cdr(assoc 40 ( entget (car (nentselp pt ))))))
(princ"\n\n字高为: ")
(PRINT zg)
)