哪位高手知道，如何利用LSP修改普通图块里的字体呢

toeastone

哪位高手知道，如何利用LSP修改全部普通图块里的字体呢,

ljttjl

思路：过滤图块，然后用(ssname)得到每一个块的图元名，然后将其转换成vla对象，然后用vla-item方法得到块中每一个对象，此时并进行判断其如果是文字对象，则用（vla-put-字体属性)修改其文字字体即可。

toeastone

具体怎么编写呢，请好事做到底

caoyin

(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)
)

toeastone

看来编程，光autolisp是不行的，请介绍一下visal lisp

caoyin

自己看帮助，比介绍的更清楚，呵呵

toeastone

如何修改块中字体的样式呢，代码是怎样的呢，谢谢高手