[求助]如何用LISP修改尺寸中文字的高度？

YDPLDL

真是抱歉,我这段时间有点忙,也没来关心下这个问题.我上次的意思是说,我都没看出加载后用哪个命令,并且也没有提示修改哪些尺寸标注的字高,并且也没有指示高度值啊.不过还是谢谢大家的关心!多谢!

无痕

2. ;| dmth ＝　改变标注文字高度.  by lxx.2008.4
3. 说明：1.标注文字高度受到文本style影响，如果style默认高度不为0，直接put-TextHeight无效.
4. 　　　2.本程序考虑了不同标注类型的文本及全局比例，统一按指定高度改变.
5. 　　　3.公差可同比缩放.
6. |;
7. (defun c:dmth (/ h ss i e o st sts)
8.   (vl-load-com)
9.   (command ".undo" "be")
10.   (setq h (getdist "\n 指定标注文字高度:"))
11.   (setq ss (ssget '((0 . "DIMENSION")))
12. i  -1
13.   )
14.   (while (setq e(ssname ss (setq i (1+ i))))
15.     (setq o (vlax-ename->vla-object e))
16.     (setq st (vlax-ename->vla-object (tblobjname "style" (vla-get-TextStyle o)))
17.    sth (vla-get-height st))
18.     (if (/= 0. sth)
19.       (progn
20. (setq sts (cons (list st sth) sts))
21. (vla-put-height st 0.)     
22.       )
23.     )
24.     (vla-put-TextHeight o (/ h (vla-get-ScaleFactor o)))
25.   )
26.   (if sts (mapcar '(lambda(x)(vla-put-height (car x)(cadr x)))sts))
27.   (command ".undo" "e")
28.   (princ)
29. )

;| dmth ＝　改变标注文字高度.  by lxx.2008.4 说明：1.标注文字高度受到文本style影响，如果style默认高度不为0，直接put-TextHeight无效. 　　　2.本程序考虑了不同标注类型的文本及全局比例，统一按指定高度改变. 　　　3.公差可同比缩放. |; (defun c:dmth (/ h ss i e o st sts)   (vl-load-com)   (command ".undo" "be")   (setq h (getdist "\n 指定标注文字高度:"))   (setq ss (ssget '((0 . "DIMENSION"))) i  -1   )   (while (setq e(ssname ss (setq i (1+ i))))     (setq o (vlax-ename->vla-object e))     (setq st (vlax-ename->vla-object (tblobjname "style" (vla-get-TextStyle o)))    sth (vla-get-height st))     (if (/= 0. sth)       (progn (setq sts (cons (list st sth) sts)) (vla-put-height st 0.)            )     )     (vla-put-TextHeight o (/ h (vla-get-ScaleFactor o)))   )   (if sts (mapcar '(lambda(x)(vla-put-height (car x)(cadr x)))sts))   (command ".undo" "e")   (princ) )

zzwpress

其实真的好简单的一个Lisp,没有找对方法的话会走很大的一个弯路。
大家看一看我这样写这个修改标注文字高度的LISP

wayne_myles

无痕 发表于 2008-4-29 00:13

好 不错，，，，，，，，，，，