[编程申请]：设置命令text的当前文字高度

baihc798

图中已有一个单行文字（高度为600），text里的当前文字高度原为400，能不能帮我编个程，设置当前文字高度，点一下那个单行文字，就把text里当前高度设置为高度600了。

xyp1964

可以试试签名栏下的“文本编辑套件”：http://www.xdcad.net/forum/showthread.php?s=&threadid=352703

baihc798

里面没有我所说的功能

eachy

特性编辑器或者格式刷

baihc798

特性编辑器或者格式刷 不能改命令text里的当前文字高度，它只能改文字的高度。因为我的程序里有text这个命令，不过因为文字高度要改。所以就想有上面这个功能

xyp1964

2. [FONT=courier new](defun c:test ()
   
3.   (setq        s1 (entsel"\n选择文本 : ")
   
4.         th (cdr (assoc 40 (entget(car s1))))
   
5.         )
   
6.   (princ"\n当前字高 : ")
   
7.   (setvar"textsize" th)  
   
8. )[/FONT]

[FONT=courier new](defun c:test ()<br />   (setq        s1 (entsel"\n选择文本 : ")<br />         th (cdr (assoc 40 (entget(car s1))))<br />         )<br />   (princ"\n当前字高 : ")<br />   (setvar"textsize" th)  <br /> )[/FONT]

baihc798

太感谢了。