【转帖】哪位高手知道，如何利用lsp修改普通图块里的字体呢
 

哪位高手知道，如何利用lsp修改普通图块里的字体呢
www.dimcax.com
哪位高手知道，如何利用lsp修改普通图块里的字体呢哪位高手知道，如何利用lsp修改全部普通图块里的字体呢,
d
思路：过滤图块，然后用(ssname)得到每一个块的图元名，然后将其转换成vla对象，然后用vla-item方法得到块中每一个对象，此时并进行判断其如果是文字对象，则用（vla-put-字体属性)修改其文字字体即可。
具体怎么编写呢，请好事做到底
d
(defun c:tt (/ a e b)
(if (and (setq a (nentsel "\n选择块中的文字: ")
e (last a)
)
(setq a (vlax-ename->vla-object (car a)))
(or (member (vla-get-objectname a) '("acdbtext" "acdbmtext"))
(princ "\n所选对象不是文字: ")
)
(setq b (getstring t "\n指定新字符: "))
)
(progn
(vla-put-textstring a b)
(vla-update (vlax-ename->vla-object (car e)))
)
)
(princ)
)
d
看来编程，光autolisp是不行的，请介绍一下visal lisp
d
自己看帮助，比介绍的更清楚，呵呵