求助:如何取得标注文字大小

ymcui

如何取得标注文字大小,下面这个只能取得标注样式文字大小.如果标注手动改过就得不出真正的大小,请高手帮忙.谢谢
(cdr (assoc '140 (tblsearch "DIMstyle" (cdr (assoc '3 ent)))))

ZZXXQQ

2. (defun c:tt ()
   
3. (if (and (setq s1 (entsel "\n选择尺寸: "))
   
4. (setq ent (entget(car s1)))
   
5. (= (cdr(assoc 0 ent)) "DIMENSION")) (progn
   
6. (setq dim (tblsearch "DIMSTYLE" (cdr(assoc 3 ent))))
   
7. (setq txt (cdr(assoc 1 ent)))
   
8. (if (wcmatch txt "*\\H#*x;*")
   
9. (setq h (atof(substr txt (+ (vl-string-position (ascii "H") txt) 2))))
   
10. (setq h 1)
    
11. )
    
12. (* h (cdr(assoc 40 dim)) (cdr(assoc 140 dim)))
    
13. ))
    
14. )
    

(defun c:tt ()<br /> (if (and (setq s1 (entsel "\n选择尺寸: "))<br /> (setq ent (entget(car s1)))<br /> (= (cdr(assoc 0 ent)) "DIMENSION")) (progn<br /> (setq dim (tblsearch "DIMSTYLE" (cdr(assoc 3 ent))))<br /> (setq txt (cdr(assoc 1 ent)))<br /> (if (wcmatch txt "*\\H#*x;*")<br /> (setq h (atof(substr txt (+ (vl-string-position (ascii "H") txt) 2))))<br /> (setq h 1)<br /> )<br /> (* h (cdr(assoc 40 dim)) (cdr(assoc 140 dim)))<br /> ))<br /> )<br />

ymcui

ZZXXQQ 发表于 2014-11-28 21:09

Z老大:是不是我的CAD有问题,程序还是只能得出样式的大小!

maiko

(vla-get-TextHeight (vlax-ename->vla-object (car(entsel))))

ymcui

谢谢maiko 的帮助.