8稻草人8 发表于 2014-9-23 10:58:09

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


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

maiko 发表于 2014-9-23 11:21:33

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

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

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

8稻草人8 发表于 2014-9-23 15:15:08

maiko 发表于 2014-9-23 11:21 static/image/common/back.gif
(vla-put-TextHeight (vlax-ename->vla-object (car (entsel))) 100)

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

8稻草人8 发表于 2014-9-23 15:15:40

1993063 发表于 2014-9-23 11:30 static/image/common/back.gif


谢谢你们，你们的代码都用上了，。。结合起来就是我想要的效果
页: [1]
查看完整版本: 如何改个别、框选标注文字大小