如何改个别、框选标注文字大小

8稻草人8

如图：如何改个别、框选标注文字大小，大神帮帮忙。帮写个LSP

maiko

(vla-put-TextHeight (vlax-ename->vla-object (car (entsel))) 100)

1993063

2. (defun c:tt ( / int obj )
   
3.   (setq int (getdist "\n文字高度:"))
   
4.   (if (ssget)
   
5.     (vlax-for obj (vla-get-activeselectionset (vla-get-activedocument (vlax-get-acad-object)))
   
6.       (vla-put-textheight obj int)
   
7.     )
   
8.   )
   
9.   (princ)
   
10. )

(defun c:tt ( / int obj )<br />   (setq int (getdist "\n文字高度:"))<br />   (if (ssget)<br />     (vlax-for obj (vla-get-activeselectionset (vla-get-activedocument (vlax-get-acad-object)))<br />       (vla-put-textheight obj int)<br />     )<br />   )<br />   (princ)<br /> )

8稻草人8

maiko 发表于 2014-9-23 11:21
(vla-put-TextHeight (vlax-ename->vla-object (car (entsel))) 100)

谢谢你们，你们的代码都用上了，。。结合起来就是我想要的效果

8稻草人8

1993063 发表于 2014-9-23 11:30

谢谢你们，你们的代码都用上了，。。结合起来就是我想要的效果