如何用vlisp选中所有文字，进行处理？谢谢！

ZHAOWCHANG

如题，多文档操作中需要对所有文字进行处理。不知用什么函数，进行选择。希望高手赐教。

此时不能用(ssget "X" '((0 . "TEXT"))) 多文档不可使用 ssget 函数。

ZHAOWCHANG

哪位高手帮帮啦！

caoyin

2. ;;对当前打开的所有的文档进行遍历操作示例--caoyin09.6.3
3. ;;可以根据要求自行修改执行的操作动作---下面的例子是将所有TEXT，MTEXT对象颜色修改为33
4. (defun c:TT ()
5. (vlax-for doc (vla-get-documents (vlax-get-acad-object))
6.   (vlax-for blk (vla-get-Blocks doc)
7.     (vlax-for obj blk
8.       (if (wcmatch (vla-get-objectname obj) "AcDb*Text")
9.         (vla-put-color obj 33);;以修改文字为33号颜色为例
10.       )
11.     )
12.   )
13.   (vla-regen doc 1)
14. )
15. )

;;对当前打开的所有的文档进行遍历操作示例--caoyin09.6.3 ;;可以根据要求自行修改执行的操作动作---下面的例子是将所有TEXT，MTEXT对象颜色修改为33 (defun c:TT () (vlax-for doc (vla-get-documents (vlax-get-acad-object))   (vlax-for blk (vla-get-Blocks doc)     (vlax-for obj blk       (if (wcmatch (vla-get-objectname obj) "AcDb*Text")         (vla-put-color obj 33);;以修改文字为33号颜色为例       )     )   )   (vla-regen doc 1) ) )