获得标注字高

啵浪鼓

想做一个批量改尺寸文字字高的程序

首先要获得原文字的高度，entsel和nentsel不能多选

并且如果改尺寸如果dim scale overall缩放过比例的，nentsel也是无法获得真实字高

有没有朋友有获得尺寸字高的方法，求解

yaokui25

2. (defun DIMZG (ss / bl dim i lst name wzgd wzh)
   
3.   (setq lst '())
   
4.   (repeat (setq i (sslength ss))
   
5.     (setq name (ssname ss (setq i (1- i))))
   
6.     (if (= (cdr (assoc 0 (entget name))) "DIMENSION")
   
7.       (progn
   
8.         (setq dim (vlax-ename->vla-object name))
   
9.         (setq wzgd (vla-get-textheight dim))
   
10.         (setq bl (vla-get-scalefactor dim))
    
11.         (setq wzh (* wzgd bl))
    
12.         (setq lst (cons wzh lst))
    
13.       )
    
14.     )
    
15.   )
    
16.   (setq lst (vl-sort lst '>))
    
17.   (car lst)
    
18. )

(defun DIMZG (ss / bl dim i lst name wzgd wzh)<br />   (setq lst '())<br />   (repeat (setq i (sslength ss))<br />     (setq name (ssname ss (setq i (1- i))))<br />     (if (= (cdr (assoc 0 (entget name))) "DIMENSION")<br />       (progn<br />         (setq dim (vlax-ename->vla-object name))<br />         (setq wzgd (vla-get-textheight dim))<br />         (setq bl (vla-get-scalefactor dim))<br />         (setq wzh (* wzgd bl))<br />         (setq lst (cons wzh lst))<br />       )<br />     )<br />   )<br />   (setq lst (vl-sort lst '>))<br />   (car lst)<br /> )

啵浪鼓

yaokui25 发表于 2017-7-27 18:46

(vla-get-textheight(vlax-ename->vla-object 这个使用过了，只能获得默认文字大小，但是该标注如果使用dimscale缩放过以后，获得的依然是默认文字高度，并非是真实文字高度

啵浪鼓

难道只能通过炸开尺寸才能获得真实文字高度？

有点蛋蛋的忧伤